1.用excel做加班時(shí)間表

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

2.加班時(shí)長excel公式

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

3.加班計(jì)時(shí)表格怎么打

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

4.加班時(shí)間表格式制作

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

5.加班表格模板小時(shí)

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

6.用excel做加班時(shí)間表每個(gè)人的匯總

End Sub

7.加班小時(shí)表格制作

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

8.加班時(shí)間excel怎么處理

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

9.加班時(shí)間表格怎么做

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

10.excel表加班時(shí)長計(jì)算表

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

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

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

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

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

先來看最終效果，點(diǎn)下匯總按鈕，1秒鐘就搞定，還給你一個(gè)提示對話框"報(bào)告盧子，提取完畢"。

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

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

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

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

向上以后，是要提取這個(gè)單元格的值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)常會(huì)加個(gè)提示對23232話框

MsgBox "報(bào)告盧子，提取完畢"，不加也行，沒啥影響最終代碼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 "報(bào)告盧子，提取完畢"

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

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

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

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

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

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

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