Excel工資表自動生成工資條_詳細圖文教程
今天小編和大師分享一下EXCEL工資表主動生當作工資條的方式，這樣此后設置了工資條之后就不消再一個個去設置打印了。
東西/原料
- EXCEL2007
方式/步調
- 1
起首在電子表格那邊留空第一行，然后按照下圖輸入相關內容，在G1單位格設置題目占行，選擇G1單位格——數據——數據有用性——數據有用——設置——許可中選擇序列——來歷那邊輸入：1,2,3——點擊確定。按同樣方式在I1單位格設置數據有用性
- 2
第二步，插入兩個長方形，點擊插入——外形——選擇矩形，然后在第一行合適位置畫一個矩形并輸入：生當作工資——點擊格局，設置有立體感的矩形，選擇本身喜好的顏色。同樣方式插入另一個矩形并輸入：刪除數據。
- 3
第三步，同時按ALT+F11,打開VBA編纂器——點擊插入——模塊——在模塊那邊輸入生當作工資條的VBA代碼：
Sub 建造工資條()
Dim ks As Long
Dim js As Long
Dim bs As Long
Dim bz As Long
bs = Range("G1").Value + 1
js = Range("A65536").End(xlUp).Row
Application.ScreenUpdating = False
If Range("I1") = "是" Then
Rows("2:2").Insert Shift:=xlDown
Rows("2:2").ClearFormats
Rows("2:2").RowHeight = 18
bz = bs + 1
For i = (js + 1) To (bs + 3) Step -1
Rows("2" & ":" & bz).Copy
Rows(i).Insert Shift:=xlDown
Next
Rows("2:2").Delete Shift:=xlUp
End If
If Range("I1") = "否" Then
For i = js To (bs + 2) Step -1
Rows("2" & ":" & bs).Copy
Rows(i).Insert Shift:=xlDown
Next
End If
Application.ScreenUpdating = True
Application.CutCopyMode = False
End Sub
- 4
第四步，按照同樣的方式，在統一個模塊那邊也輸入刪除數據的代碼：
Sub 刪除數據()
Rows("2:65536").Delete Shift:=xlUp
End Sub
然后保留退出VBA編纂器。
- 5
第五步，右擊生當作工資條矩形——指心猿意馬宏——然后找到并選擇建造工資條的宏名稱——點擊確定，這樣就指心猿意馬生當作工資條的宏，同樣方式刪除數據矩形也指心猿意馬到刪除數據宏那邊。
- 6
最后，在表格的第2行起頭輸入每小我的工資環境——題目占行選擇：1（這個由本身決議）——是否隔行選擇：是——然后點擊生當作工資條，這時就會主動隔一行生當作工資條。
注重事項
- 但愿能幫忙到你
- 發表于 2019-06-22 21:34
- 閱讀 ( 644 )
- 分類：其他類型
0 篇文章
作家榜 ?
-
xiaonan123
189 文章
-
湯依妹兒
97 文章
-
luogf229
46 文章
-
jy02406749
45 文章
-
小凡
34 文章
-
Daisy萌
32 文章
-
我的QQ3117863681
24 文章
-
華志健
23 文章