工資條制作方法VB法

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

2、下面是詳細(xì)的操作步驟：1. 在 Excel 中翻開(kāi)需要制作工資條的工資表文件。2. 翻開(kāi)“工具”/“宏”(假如在菜單中沒(méi)有看見(jiàn)“宏”，讓鼠標(biāo)在菜單上稍停留或者按向下的雙箭頭就會(huì)出現(xiàn))，選擇“VisualBasic 編輯器”(圖 1)翻開(kāi) VBA 編輯器窗口，在 VBAProject 的工程資管理器中雙擊 Sheet1，會(huì)出現(xiàn)代碼編輯窗口，在代碼編輯窗口輸入如下代碼(圖 2)：為 2564)600 * 2Sub gongzitiaoApplication.ScreenUpdating = False假如第一列(職工的工資電腦序號(hào))上下單元格的值不相等，那么在它們之間插入一個(gè)空白行For i =

3、3 To aSheets(2).Rows(i + 1).Insert End If假如第一列中的單元格為空，那么將表中A2:M2(工資清單表頭工程)復(fù)制到此行NextApplication.ScreenUpdating = TrueEnd Sub3. 檢查代碼編輯無(wú)誤后，在 VBA 窗口中翻開(kāi)菜單“運(yùn)行”/“運(yùn)行宏”，將彈出“宏”窗口，你只需單擊“運(yùn)行”即可。4. 待宏運(yùn)行完畢，再回到 Excel，單擊工資表下方的“Sheet2”， 于是在每?jī)蓚€(gè)相鄰職工間就插入了工資清單工程(圖 3)，再用打印機(jī)打印并裁條后，就可以發(fā)放給每位職工了。該操作在 Excel 2000 下調(diào)試通過(guò)兩行間插入空白行：Sub Macro1 For i = 2 To 99If Cells(i, 1) Cells(i - 1, 1) ThenIf Cells(i, 1) “” Then Rows(i).Insert Shift:=xlDown: i = i + 1 End IfNext End SubSub kongbaiFor i = 2