有没有一种方法可以创建一个将开始禁用的打印按钮,当我的A1单元格值= 1时,它将被禁止打印woksheet,完成后它将再次禁用自身?这是一个ActiveX按钮。
答案 0 :(得分:3)
将其放入工作表的专用代码表(右键单击工作表名称选项卡,查看代码),并在必要时进行编辑以引用正确的ActiveX按钮。
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
CommandButton1.Enabled = CBool(Range("A1") = 1)
End If
End Sub
Private Sub CommandButton1_Click()
Range("a1").ClearContents
'do all the printing code here
MsgBox "printing ..."
End Sub