1、2020EXCEL工資條VB制作方法VB法現(xiàn)在許多單位都實(shí)現(xiàn)了工資代儲(chǔ)，但每月的工資清單（工資條）還得要發(fā)給職工。如果用Excel程序處理的工資表，打印后每頁只有一個(gè)表頭，剪裁成條后除了每頁的第一名職工外，其余的就沒有表頭了，這樣將使職工無法清楚工資條的數(shù)字對(duì)應(yīng)什么具體名目。怎樣才能給每個(gè)職工的工資條加上工資表表頭呢?這里筆者將解決方案介紹給大家。首先根據(jù)每個(gè)職工工資具有唯一電腦序號(hào)的特點(diǎn)，使用VB里的判斷語句，讓循環(huán)從第一個(gè)電腦序號(hào)開始，如果Excel表中相鄰兩行的電腦序號(hào)不同，就在這兩行之間插入一個(gè)空白行，然后使用循環(huán)語句，把表頭的內(nèi)容依次復(fù)制粘貼到每個(gè)空白行。下面是具體的操作步驟在Exc

2、el中打開需要制作工資條的工資表文件。打開“工具”/“宏”（如果在菜單中沒有看見“宏”，讓鼠標(biāo)在菜單上稍停留或者按向下的雙箭頭就會(huì)出現(xiàn)），選擇“VisualBasic編輯器”(圖1)打開VBA編輯器窗口，在VBAProject的工程資源管理器中雙擊Sheet1，會(huì)出現(xiàn)代碼編輯窗口，在代碼編輯窗口輸入如下代碼(圖2)為2564)600*2Subgongzitiao()Application.ScreenUpdating=False'為避免破壞表一，將表一內(nèi)容完整復(fù)制到表二Sheets(1).A1.CurrentRegion.CopySheets(2).A1'定義循環(huán)變量的最大值不

3、小于表二中職工數(shù)的二倍(我校職工總數(shù)a=(Application.WorksheetFunction.CountA(Sheets(2).a1:a2'如果第一列(職工的工資電腦序號(hào))上下單元格的值不相等，則在它們之間插入一個(gè)空白行Fori=3ToaIfSheets(2).Cells(i，1)<>Sheets(2).Cells(i+1，1)And(Sheets(2).Cells(i，1)<>"")ThenSheets(2).Rows(i+1).InsertEndIf'如果第一列中的單元格為空，則將表中A2:M2(工資清單表頭項(xiàng)目)復(fù)制到此

4、行IfSheets(2).Cells(i，1)=""ThenSheets(2).A2:M2.CopySheets(2).Cells(i，1)EndIfNextApplication.ScreenUpdating=TrueEndSub檢查源代碼編輯無誤后，在VBA窗口中打開菜單“運(yùn)行”/“運(yùn)行宏”，將彈出“宏”窗口，你只需單擊“運(yùn)行”即可。待宏運(yùn)行完畢，再回到 Excel ，單擊工資表下方的“Sheet2于是在每?jī)蓚€(gè)相鄰職工間就插入了工資清單項(xiàng)目(圖3)，再用打印機(jī)打印并裁條后，就可以發(fā)放給每位職工了。該操作在Excel2000下調(diào)試通過兩行間插入空白行SubMacro1()

5、Fori=2To99IfCells(i,1)<>Cells(i-1,1)ThenIfCells(i,1)<>""ThenRows(i).InsertShift:=xlDown:i=i+1EndIfNextEndSubSubkongbai()Application.ScreenUpdating=FalseSheets(1).A1.CurrentRegion.CopySheets(3).A1a=3000Fori=2ToaIfSheets(3).Cells(i,2)<>Sheets(3).Cells(i+1,1)And(Sheets(3).Cells(i,2)<>"")ThenSheets(3).Row