excel2007中VBA宏代碼制作工資條的方法
時(shí)間:
曉生931由 分享
前段時(shí)間給大家寫(xiě)過(guò)“如何使用Excel的定位功能快速制作工資條”和“如何制作雙行成績(jī)單”這樣的經(jīng)驗(yàn),使用了兩種不同的方法。今天,學(xué)習(xí)啦小編就教大家在Excel2007中VBA宏代碼制作的方法(以制作工資條為例)。
Excel2007中VBA宏代碼制作工資條的步驟如下:
例如有如下圖所示的工資表。
在工資表標(biāo)題行上方插入一空行(如下圖所示)。
選中頂部第一行空白區(qū)域(A1:G1),設(shè)置邊框?yàn)樯舷驴蚓€(如下圖所示)。
單擊菜單欄“工具”—“宏”—“Visual Basic編輯器”或直接按下Alt+F11快捷鍵打開(kāi)VBA編輯窗口。
打開(kāi)的VBA窗口如下圖所示。
單擊菜單欄“插入”—“模塊”。
打開(kāi)模塊,并在模塊中輸入下列代碼:
Sub 工資條()
For i = 3 To 48 Step 3
Range("A1:G2").Copy
Rows(i).Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
Next
End Sub
備注:公式可以根據(jù)實(shí)際情況來(lái)修改哦。
保存后,可以單擊“運(yùn)行子過(guò)程”按鈕,就會(huì)在每個(gè)工資行上添加上標(biāo)題行。
現(xiàn)在效果如下圖所示。
刪除掉前三行,最后的效果如下所示。