如何根据Excel中的单元格值启用或禁用按钮？

在本文中，我将介绍一些方法，根据Excel工作表中的单元格值启用或禁用按钮。

使用VBA代码根据两列数据启用或禁用两个按钮

使用VBA代码根据两个单元格值启用或禁用按钮

使用VBA代码根据两列数据启用或禁用两个按钮

例如，在工作表中有两个命令按钮，如果A列有数据，则按钮1启用，按钮2禁用；如果C列包含数据，则按钮2启用，按钮1禁用。要解决此问题，以下VBA代码可能会对您有所帮助。

1. 右键单击包含按钮的工作表，然后从上下文菜单中选择查看代码，参见截图：

2. 在Microsoft Visual Basic for Applications窗口中，请将以下代码复制并粘贴到空白模块中：

VBA代码：根据两列启用或禁用两个按钮：

Private Sub Worksheet_Change(ByVal Target As Range)
    CommandButton1.Enabled = False
    CommandButton2.Enabled = False
    If Application.WorksheetFunction.CountA(Range("C:C")) > 0 Then
        CommandButton2.Enabled = True
    End If
    If Application.WorksheetFunction.CountA(Range("A:A")) > 0 Then
        CommandButton1.Enabled = True
    End If
End Sub

注意：在上述代码中， CommandButton1和CommandButton2 是按钮名称，A:A和C:C 是用于启用或禁用两个按钮的两列，请根据需要进行更改。

3. 然后保存并关闭代码窗口，现在，您将根据需要获得以下结果：

（1.）如果在A列中输入数据，则按钮1启用且按钮2禁用，参见截图：

（2.）如果在C列中输入数据，则按钮2启用且按钮1禁用，参见截图：

（3.）A列和C列都有数据时，两个按钮均启用，参见截图：

（4.）如果A列和C列均无数据，则两个按钮均禁用，参见截图：

使用VBA代码根据两个单元格值启用或禁用按钮

如果您想根据两个单元格值启用或禁用命令按钮，例如，当A1中的值大于B1中的值时，按钮启用，否则，按钮禁用。以下VBA代码也可以为您提供帮助。

1. 右键单击包含按钮的工作表，然后从上下文菜单中选择查看代码，在Microsoft Visual Basic for Applications窗口中，请将以下代码复制并粘贴到空白模块中，参见截图：

VBA代码：根据两个单元格值启用或禁用按钮：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim TargetAdd As String
    Dim xTemp As Double
    On Error GoTo ExitSub
    TargetAdd = Target.Address
    CommandButton1.Enabled = False
    If (TargetAdd = Range("A1").Address) Or (TargetAdd = Range("B1").Address) Then
        If Range("A1") > Range("B1") Then
            CommandButton1.Enabled = True
        End If
    End If
ExitSub:
End Sub

注意：在上述代码中，A1和B1是您使用的单元格值，CommanButton1是按钮名称，请根据需要进行更改。

2. 然后保存并关闭代码窗口，现在，如果A1中的单元格值大于B1，则按钮启用；否则，如果A1中的单元格值小于B1，则按钮禁用，参见截图：