<p data-bjh-box="video"
親,你公司的工資表是人事部編制,還是財務部編制呢?
每月給你出具工資條嗎?沒有
聽說很多小夥伴製作工資條時,表頭是一個一個複製,那可是相當費時的,不給出具有情可願吧!
今天小編就教大家製作工資條的幾種方法,不管你公司幾千人,分分鐘就把工資條解決了,讓你公司的人事、財務一起來學學吧!
方法一;複製粘貼法
先複製表頭,再複製一條工資數據,重複上步直到完成。具體操作沒有演示圖。
優點:如果職工較多,就要面臨加班加點,加班工資到手,再讓老闆發現月月辛苦加班加點,漲工資都有可能喲!
方法二:輔助列法
1、如上圖,在工資表右邊增加兩個輔助列;
2、選中新增的輔助列單元格區域,按Ctrl+G或F5鍵,依次選擇【定位條件】-【空值】-【確定】;
3、插入新行:按Ctrl+Shift+=(等號)鍵,選擇【整行】,點擊【確定】返回工作區;
4、複製工資表表頭:點擊行號1選中表頭行,按Ctrl+C鍵複製;
5、選中A列,按Ctrl+G或F5鍵,依次選擇【定位條件】-【空值】-【確定】,
6、最後按Ctrl+V鍵粘貼表頭,完成工資條製作。
演示如下圖:
方法三:函數法
1複製工資表的標題,並在標題下方第一個單元格輸入屏幕提示公式=INDEX(A:A,ROW()/3+2),選中公式單元格向右拖動填充數據;如果你的工資表是三行標題,那麼公式的的2改成3即可,多行標題以此類推;
2、選中這三行,按住右角下填充柄,向下拖動直到工資表數據完成。工資條就生成了;
演示視頻如下:
方法四:編程法
1、按Alt+F11鍵打開VBA窗口,點擊【插入】菜單,選擇【模塊】
2、複製以下代碼到模塊右側的代碼窗口:
Sub gzt()
Dim i As Integer, n As Integer, x As Integer
Application.ScreenUpdating = False
'Worksheets("工資條").Select
With Worksheets("工資表2")
i = .Range("a65536").End(xlUp).Row - 1
k = .Range("a65536").End(xlUp).Row + 1
For x = 4 To i
n = [a65536].End(xlUp).Row
.Range("2:3").Copy .Rows(n + 2)
.Rows(x).Copy Rows(n + 4)
Next x
End With
Application.ScreenUpdating = True
End Sub
3、在工資表中插入一個命令按鈕,滑鼠右鍵,選擇【指定宏】,在彈出的窗口中選擇【gzt】宏程序。點擊按鈕即可完成工資條製作。
效果圖如下:
你學會了嗎?記得給小編轉發、點讚喲!需要什麼教程可以在評論區留言