根据返回 true 的复选框增加单元格的值

Question

我试图在每次复选框返回 true 时增加单元格的值，但我尝试过的所有内容最终都以循环形式结束。有什么方法可以让我做到这一点吗？

我尝试使用 B2=if(A2="true", B2+1, B2) 但最终变成了循环。

Answer 1

您可以使用 Visual Basic for Applications (VBA) 根据复选框切换来递增值。

1. 在 Excel 文档中，按

   Alt + F11

   。
2. 在左侧面板的“Project - VBAProject”下双击您的工作表。
3. 粘贴以下脚本（根据需要更改目标单元格）：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A2")) Is Nothing Then
        If Target.Value = True Then
            Range("B2").Value = Range("B2").Value + 1
        End If
    End If
End Sub

4. 关闭编辑器。
   
   

此脚本读取 A2 中的复选框。每当切换时，B2 就会增加 1。