基于单元格值excel创建带有启用和禁用的打印按钮

时间:2018-09-18 13:49:55

标签: excel vba printing controls enable-if

有没有一种方法可以创建一个将开始禁用的打印按钮,当我的A1单元格值= 1时,它将被禁止打印woksheet,完成后它将再次禁用自身?这是一个ActiveX按钮。

1 个答案:

答案 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