12
返回列表 上一主題 發帖

[發問] 下拉式清單裡選擇"篩選不重複的資料"

lifedidi

帖子
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")還是偵錯。

TOP

lifedidi

帖子
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)

TOP

lifedidi

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

論壇贊助勳章
13#
發表於 2013-3-12 14:30 | 顯示全部帖子
謝謝大大！找出原因了^^

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

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

TOP

lifedidi

帖子
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，請指教，感謝！

謝謝

TOP

lifedidi

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

論壇贊助勳章
15#
發表於 2013-3-12 18:07 | 顯示全部帖子
哇賽！我了解了！謝謝大大！我繼續研究~

TOP

lifedidi

帖子
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

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

TOP

lifedidi

帖子
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
對照圖↓


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

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

TOP

        靜思自在 : 欣賞別人就是莊嚴自己。
12
返回列表 上一主題