VBA大算标签代码存档

VBA大算标签代码存档

 

Sub test()


Dim i As Integer
Dim M
Dim N
N = InputBox("请输入打印初始值：", "生产大箱标签模块___华益IT部开发", 1)
If N = "" Then
Exit Sub
End If
M = InputBox("请输入打印结束值：", "生产大箱标签模块___华益IT部开发", 1)
If M = "" Then
Exit Sub
End If

For i = N To M
Range("C9") = i
If i < 10 And i > 0 Then
Range("C9") = "00" & [C9]
End If
If i < 100 And i >= 10 Then
Range("C9") = "0" & [C9]
End If
ActiveSheet.PrintOut
Next
End Sub