lifedidi

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

大大，

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

lifedidi

回復 21# GBKEE


謝謝。

    工時系統excel20130312.rar (75.26 KB)

下載次數: 14

2013-3-12 11:06

lifedidi

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

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

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

lifedidi

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

謝謝

lifedidi

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

lifedidi

請問大大：
有三個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

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

lifedidi

GBKEE大大你好：

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

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

下載 (24.77 KB)

2013-3-14 16:11

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

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