每打印一页 所有编号按顺序自动排序如何实现

mx93868

麻烦各位朋友，帮忙看看这个问题怎么操作能实现，谢谢朋友们！！！

3190496160

这是vba才能做的事情

xjl565135022

模拟下想要的效果，不然别人很难猜

mx93868

xjl565135022 发表于 2024-9-4 10:55
模拟下想要的效果，不然别人很难猜

编号 每打印一页 之后 会自动按顺序生成

xjl565135022

确实要用VBA
Sub 打印()
Dim i%
print_count = InputBox("输入需要打印的页数")
For i = 1 To print_count * 3 Step 3
    Range("H3") = Format(i, "'000")
    Range("H16") = Format(i + 1, "'000")
    Range("H30") = Format(i + 2, "'000")
    Range("A1:I37").PrintOut
Next i
End Sub

mx93868

xjl565135022 发表于 2024-9-4 11:57
确实要用VBA
Sub 打印()
Dim i%

是不是可以再EXCEL里面添加一个按钮  然后把按钮赋予这段代码是么

xjl565135022

EXCEL记得启用宏，不然用不了的