excel - 限制单元格内容单选按钮样式

Question

我有 4 个单元格都可以输入数字(如下所示)，但我想知道如何限制它，以便四个单元格中只有 1 个可以大于“0”。例如，如果单元格中的 1 个 > 0，那么剩余的 3 个必须为 0。我也可以将它们创建为“是/否”验证，但我再次不确定如何删除"is"选项，如果另一个单元格已经声明"is"

Standard (24 months) per AP   |  0  |
Advanced (24 months) per AP   |  1  |
Complete (24 months) per AP   |  0  |
Complete + (24 months) per AP |  0  |

Answer 1

您可能想尝试 Worksheet_Change事件宏¹。

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B2:B5")) Is Nothing Then
        On Error GoTo bm_Safe_Exit
        Application.EnableEvents = False
        If Intersect(Target, Range("B2:B5")).Count = 1 Then
            If Intersect(Target, Range("B2:B5")).Cells(1).Value >= 1 Then
                Range("B2:B5") = 0
                Intersect(Target, Range("B2:B5")).Cells(1) = 1
            Else
                Range("B2:B5") = 0
            End If
        Else
            Range("B2:B5") = 0
        End If
    End If
bm_Safe_Exit:
    Application.EnableEvents = True
End Sub

¹这属于工作表的代码表。右键单击工作表的名称选项卡并选择 查看代码 .当 VBE 打开时，将上面的内容粘贴到标题为 Book1 - Sheet1 (Code) 的代码 Pane 中。进行任何调整，然后点击 Alt+Q 返回工作表。