根据A1单元文本隐藏/显示按钮（控件按钮代码）

jb_008

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Range("A1") > 2 Then
   
3. CommandButton1.Visible = 1
   
4. Else
   
5. CommandButton1.Visible = 0
   
6. End If
   
7. End Sub
   
8. Private Sub CommandButton1_Click()
   
9. 重排窗口
   
10. End Sub
    

复制代码