excel添加按钮打印和每次打印数值都会加1,如F3数值是003,没点一次打印+...
发布网友
发布时间:2024-07-02 11:55
我来回答
共1个回答
热心网友
时间:2024-10-10 00:59
点击A1单元格时执行打印命令,
B2单元格为打印编号,B2单元格格式要设置下否则前面的0会自动消除掉,设置方法:设B2单元格格式,自定义,输入000后确定。
首先在弹出的对话框内输入要打印的份数,确认后打印
复制如下内容到sheet1中
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Row = 1 Then '单击A1单元格执行如下内容
'前面一个1为列号,后面一个1为行号,更改相应数字后,点相应单元格执行以下内容
Dim x, y As Integer
x = InputBox("输入打印份数")
y = Range("b2")
For i = 1 To x
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("b2") = y + 1
Next
End If
End Sub
热心网友
时间:2024-10-10 01:01
点击A1单元格时执行打印命令,
B2单元格为打印编号,B2单元格格式要设置下否则前面的0会自动消除掉,设置方法:设B2单元格格式,自定义,输入000后确定。
首先在弹出的对话框内输入要打印的份数,确认后打印
复制如下内容到sheet1中
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Row = 1 Then '单击A1单元格执行如下内容
'前面一个1为列号,后面一个1为行号,更改相应数字后,点相应单元格执行以下内容
Dim x, y As Integer
x = InputBox("输入打印份数")
y = Range("b2")
For i = 1 To x
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("b2") = y + 1
Next
End If
End Sub
热心网友
时间:2024-10-10 01:04
点击A1单元格时执行打印命令,
B2单元格为打印编号,B2单元格格式要设置下否则前面的0会自动消除掉,设置方法:设B2单元格格式,自定义,输入000后确定。
首先在弹出的对话框内输入要打印的份数,确认后打印
复制如下内容到sheet1中
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Row = 1 Then '单击A1单元格执行如下内容
'前面一个1为列号,后面一个1为行号,更改相应数字后,点相应单元格执行以下内容
Dim x, y As Integer
x = InputBox("输入打印份数")
y = Range("b2")
For i = 1 To x
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("b2") = y + 1
Next
End If
End Sub