工资条问题
发布网友
发布时间：2022-05-05 02:16
共1个回答
热心网友
时间：2022-06-28 14:16
把以下代码放入excel的VBE环境中，按F5运行即可
VBE启动：Alt+F11
Sub PrintSalBar()
Application.DisplayAlerts = False
Sheets.Add , Sheets(1)
Sheets(1).Select
Range("a1:t4").Select
Selection.Copy
Sheets(2).Select
Range("A1").Select
ActiveSheet.Paste
Columns("B:D").Select
Selection.Delete
PrintEvery
Sheets(2).Delete
Sheets(1).Select
Range("A1").Select
Application.DisplayAlerts = True
End Sub
Function PrintEvery()
If Trim(Range("A4")) <> "" Then
Application.Dialogs(8).Show
For i = 5 To Sheets(1).Range("A65536").End(xlUp).Row
Sheets(2).Range("A4") = Sheets(1).Range("A" & i)
Sheets(2).Range("B4") = Sheets(1).Range("E" & i)
Sheets(2).Range("C4") = Sheets(1).Range("F" & i)
Sheets(2).Range("D4") = Sheets(1).Range("G" & i)
Sheets(2).Range("E4") = Sheets(1).Range("H" & i)
Sheets(2).Range("F4") = Sheets(1).Range("I" & i)
Sheets(2).Range("G4") = Sheets(1).Range("J" & i)
Sheets(2).Range("H4") = Sheets(1).Range("K" & i)
Sheets(2).Range("I4") = Sheets(1).Range("L" & i)
Sheets(2).Range("J4") = Sheets(1).Range("M" & i)
Sheets(2).Range("K4") = Sheets(1).Range("N" & i)
Sheets(2).Range("L4") = Sheets(1).Range("O" & i)
Sheets(2).Range("M4") = Sheets(1).Range("P" & i)
Sheets(2).Range("N4") = Sheets(1).Range("Q" & i)
Sheets(2).Range("O4") = Sheets(1).Range("R" & i)
Sheets(2).Range("P4") = Sheets(1).Range("S" & i)
Sheets(2).Range("Q4") = Sheets(1).Range("T" & i)
Application.Dialogs(8).Show
Next
End If
End Function
