excel里有一个按钮单击自动打印，想单击一次这个按钮或添加一个按钮自动单击这个按钮固定次数，如何操作

发布网友发布时间：2022-10-27 19:43

共3个回答

热心网友时间：2023-09-29 02:45

1，循环执行
Sub CommandButton1_Click()
Dim X, Y As Integer
Y=要循环的次数
For X = 1 To Y
这里写要执行的语句。
Next
End Sub
2，添加按钮循环调用
Sub CommandButton2_Click() '按钮2
Dim X, Y As Integer
Y=要循环的次数
For X = 1 To Y
CommandButton1_Click() '调用按钮1
Next
End Sub

热心网友时间：2023-09-29 02:46

弄个按钮，粘贴代码
Sub Macro2()
For k = 1 To 20
a = Chr(65 + c)
Range(a & ":" & a).Select
If Selection.EntireColumn.Hidden = True Then
c = c + 1
Else
Selection.EntireColumn.Hidden = True
Exit For
End If
Next
End Sub

热心网友时间：2023-09-29 02:46

你说的固定次数，那效果就相当于打印N份，是这个意思吗？追答把 printout 改为
worksheet("供货凭证").printout copies:=5
这个5就是你要打印的份数。

热心网友时间：2023-09-29 02:45

热心网友时间：2023-09-29 02:46

你说的固定次数，那效果就相当于打印N份，是这个意思吗？追答把 printout 改为
worksheet("供货凭证").printout copies:=5
这个5就是你要打印的份数。