1.用excel做加班時間表

與 30萬 粉絲一起學(xué)Excel

2.加班時長excel公式

活躍一下氣氛，送書活動繼續(xù)開始老規(guī)則，從留言區(qū)隨機(jī)抽取3位粉絲，贈送書籍《Excel效率手冊 早做完，不加班》這位粉絲很厲害，自從研究了VBA，很多以前需要1個小時的問題，現(xiàn)在只需要10秒鐘這就是VBA的威力。

3.加班計時表格怎么打

VBA里面有一23232個萬能循環(huán)語句，超好用，盧子一遇到問題就喜歡用這個，今天也推薦你使用如果你這幾天有學(xué)習(xí)，應(yīng)該很快猜到，就是For Next循環(huán)1.批量更改工作表名稱昨天已經(jīng)用循環(huán)語句生成12個表，不過實際工作中會對這些工作表名稱進(jìn)行改名字，比如1月-12月。

4.加班時間表格式制作

昨天提到Sheets(2)，就代表第2個工作表，如果要知道第2個工作表名稱，就用Sheets(2).Name現(xiàn)在要將表2的名稱改成2月，就可以用下面的代碼Sheets(2).Name="2月"里面的數(shù)字2可以通過變量i得到，這樣完整的代碼就處理了。

5.加班表格模板小時

運行后，工作表的名稱就變成1月-12月，是不是很簡單？Sub 批量更23232改工作表名稱()    For i = 1 To 12        Sheets(i).Name = i & "月"    Next

6.用excel做加班時間表每個人的匯總

End Sub

7.加班小時表格制作

2.制作目錄當(dāng)工作表很多的時候，就要制作一個目錄，方便后期查找。

8.加班時間excel怎么處理

寫公式的時候單元格是用A1表示，而VBA是用Range ("A1")，略有不同第幾行可以由變量i獲得，因此可以寫Range ("A" & i)這里剛好有10個工作表，就寫1 to 10，完整的代碼就出來了。

9.加班時間表格怎么做

Sub 制作目錄()    For i = 1 To 10      23232  Range("A" & i) = Sheets(i).Name    NextEnd Sub

10.excel表加班時長計算表

假如現(xiàn)在工作表的個數(shù)不確定呢？這里又涉及到一個新單詞Sheets.Count，這個就是統(tǒng)計有多少個工作表這么多單詞記不住怎么辦？沒關(guān)系，你只要記住最前面的就行，后面輸入一個.就會提示相關(guān)的這個跟函數(shù)的輸入差不多，都是邊寫邊提示。

Sub 制作目錄()    For i = 1 To Sheets.Count        Range("A" & i) = Sheets(i).Name    NextEnd Sub

當(dāng)然，你這里也可以寫得更專業(yè)一點，聲明變量Dim i As23232 Byte聲明：Dim 變量名 As 數(shù)據(jù)類型專業(yè)點的代碼就出來了Sub 制作目錄()Dim i As Byte    For i = 1 To Sheets.Count。

        Range("A" & i) = Sheets(i).Name    NextEnd Sub數(shù)據(jù)類型有非常多，這里先記住2個就行，Byte和Integer都適合這個案例。

3.綜合運用，現(xiàn)金日記賬匯總每一家銀行日記賬格式都一樣，余額都放在E列，現(xiàn)在要實現(xiàn)將銀行還有對應(yīng)的最后余額提取到匯總表。

先來看最終效果，點下匯總按鈕，1秒鐘就搞定，還給你一個提示對話框"報告盧子，提取完畢"。

前面一直有提到目錄的代碼Sub 目錄()    D23232im i As Integer        For i = 2 To Sheets.Count            Range("a" & i) = Sheets(i).Name。

        NextEnd Sub接下來，怎么提取每個銀行的E列最后一個有金額的值。先不看VBA，用技巧實現(xiàn)。隨便點E列下方空白單元格，按一下Ctrl+↑，就回到E列最后一個有金額的值了。

在最后余額的下方，選一個沒有內(nèi)容的空單元格比如E3000，E5000都行，因為余額在哪個單元格不確定，為了確保在這個單元格的下方，直接寫一個非常大的單元格，比如E60000，也就是Range("E60000")。

。方向有下左右上，xlup就23232是上，也就是Range("E60000").End (xlUp)。

向上以后，是要提取這個單元格的值Value，也就是Range("E60000").End(xlUp).Value。

到此，需要的都有了Sub 匯總()    Dim i As Integer        For i = 2 To Sheets.Count            Range("a" & i) = Sheets(i).Name。

Range("b" & i) = Sheets(i).Range("E60000").End(xlUp).Value        NextEnd Sub如果要發(fā)給其他人使用，經(jīng)常會加個提示對23232話框

MsgBox "報告盧子，提取完畢"，不加也行，沒啥影響最終代碼Sub 匯總()    Dim i As Integer        For i = 2 To Sheets.Count            Range("a" & i) = Sheets(i).Name。

            Range("b" & i) = Sheets(i).Range("E60000").End(xlUp).Value        Next    MsgBox "報告盧子，提取完畢"

End Sub將原來的內(nèi)容清除掉，運行代碼，驗證效果。

學(xué)了幾天VBA，有沒感覺到，其實VBA也不是很難，以前那些很難實現(xiàn)或者很繁瑣的事兒交23232給VBA就對了，全自動生成如果想跟盧子深入學(xué)習(xí)VBA，可以報名下面的課程宏與VBA課程報名學(xué)習(xí)方法：采用視頻教學(xué)，微信群答疑的形式。

學(xué)習(xí)期限：視頻長期看，答疑1年。報名費用：168元，VIP會員免費。長按二維碼，報名課程

加盧子微信chenxilu2019，發(fā)送付款截圖，邀請進(jìn)群恭喜粉絲：銀河、L.Anthony、李琳，獲得書籍《Excel效率手冊 早做完，不加班》，加盧子微信領(lǐng)取推薦：集齊4種自動生成目錄方法，總有一個適合你！。

上篇：女人為什么要學(xué) VBA ？！

聊一下，你這幾天學(xué)VBA的感受怎么樣？

請把「Excel不加班」推薦給你的朋友別忘了點贊支持盧子哦↓↓↓