VBA大算标签代码存档

VBA大算标签代码存档

 

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Sub test() <br><br>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