下拉式清單裡選擇"篩選不重複的資料" - Excel程式區

帖子: 104
主題: 32
精華: 0
積分: 144
點名: 0
作業系統: windowsXP
軟體版本: 2007
閱讀權限: 20
性別: 男
註冊時間: 2013-2-25
最後登錄: 2022-9-2

論壇贊助勳章

11^# 跳轉到 »

發表於 2013-3-12 10:48 | 顯示全部帖子

第37列
.Range("A:C").Copy 查詢表.[C7] '資料表:自動篩選出的資料複製到查詢表

大大，

請問【Range("A:C")】要如何修改呢？我套用我資料表("A:R")還是偵錯。

帖子: 104
主題: 32
精華: 0
積分: 144
點名: 0
作業系統: windowsXP
軟體版本: 2007
閱讀權限: 20
性別: 男
註冊時間: 2013-2-25
最後登錄: 2022-9-2

論壇贊助勳章

12^#

發表於 2013-3-12 11:06 | 顯示全部帖子

回復 21# GBKEE

謝謝。

工時系統excel20130312.rar (75.26 KB)

帖子: 104
主題: 32
精華: 0
積分: 144
點名: 0
作業系統: windowsXP
軟體版本: 2007
閱讀權限: 20
性別: 男
註冊時間: 2013-2-25
最後登錄: 2022-9-2

論壇贊助勳章

13^#

發表於 2013-3-12 14:30 | 顯示全部帖子

謝謝大大！找出原因了^^

但是總工時的公式怎麼寫呢？

其實最重要的是工時Orz..

帖子: 104
主題: 32
精華: 0
積分: 144
點名: 0
作業系統: windowsXP
軟體版本: 2007
閱讀權限: 20
性別: 男
註冊時間: 2013-2-25
最後登錄: 2022-9-2

論壇贊助勳章

14^#

發表於 2013-3-12 16:01 | 顯示全部帖子

本帖最後由 lifedidi 於 2013-3-12 16:02 編輯

If .Parent.AutoFilterMode = False Then .AutoFilter
         .AutoFilter Field:=2, Criteria1:=ComboBox1
         For Each a In .Columns(2).Cells.SpecialCells(12)
         If a <> "" Then
         d(a.Value) = ""
         Else
         Exit For
      End If
      Next

請問大大！這程式碼的變數有哪些呢？我試了一下午還是找不出來，

【For Each a In .Columns(2).Cells.SpecialCells(12)】

這是指第二列的什麼？specialcells(12)→12指的是?

我按F8一個一個跑，都會跳過NEXT，請指教，感謝！

謝謝

帖子: 104
主題: 32
精華: 0
積分: 144
點名: 0
作業系統: windowsXP
軟體版本: 2007
閱讀權限: 20
性別: 男
註冊時間: 2013-2-25
最後登錄: 2022-9-2

論壇贊助勳章

15^#

發表於 2013-3-12 18:07 | 顯示全部帖子

哇賽！我了解了！謝謝大大！我繼續研究~

帖子: 104
主題: 32
精華: 0
積分: 144
點名: 0
作業系統: windowsXP
軟體版本: 2007
閱讀權限: 20
性別: 男
註冊時間: 2013-2-25
最後登錄: 2022-9-2

論壇贊助勳章

16^#

發表於 2013-3-14 14:05 | 顯示全部帖子

請問大大：
有三個textbox分別是1、2和3
1和2是key時間用，3是把2-1
舉例：textbox1 key入 08:00
textbox2 key入 12:00
textbox3 自動顯示 4:00 (也就是2-1)
目前寫到

Private Sub UserForm_Initialize()

Text1.Value = Format( "HH:MM:SS")
Text2.Value = Format("HH:MM:SS")
TextBox3 = Val(TextBox2) - Val(TextBox1)

End Sub

請問哪裡有錯呢？請指導！感謝你！

帖子: 104
主題: 32
精華: 0
積分: 144
點名: 0
作業系統: windowsXP
軟體版本: 2007
閱讀權限: 20
性別: 男
註冊時間: 2013-2-25
最後登錄: 2022-9-2

論壇贊助勳章

17^#

發表於 2013-3-14 16:34 | 顯示全部帖子

GBKEE大大你好：

TextBox1及TextBox2是空格給使用者keyin的

TextBox3也是為時間格式 ex: TextBox1 key入 8:20
TextBox2 key入 11:55
TextBox3 顯示出 3:35
對照圖↓

請問第七列與第八、九列的功能是一樣的嗎？

" ' "不只有註解的功能，還有其他作用？