Google Sheets：根据B2值将C2单元格切换为复选框

条件格式和普通公式无法直接修改单元格的控件类型，必须通过VBA宏实现需求，以下是两种可行方案：

方案一：自动触发的工作表事件宏 #

这个方案会在B2的值改变时自动执行操作：

1. 打开目标Excel文件，按下Alt + F11打开VBA编辑器
2. 在左侧工程面板找到对应的工作表（如Sheet1），双击打开代码编辑窗口
3. 粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$2" Then
        Dim cb As CheckBox
        ' 清除C2已存在的复选框
        For Each cb In Me.CheckBoxes
            If cb.TopLeftCell.Address = "$C$2" Then
                cb.Delete
                Exit For
            End If
        Next cb
        
        ' 当B2为"valid proof"时添加复选框
        If Target.Value = "valid proof" Then
            Set cb = Me.CheckBoxes.Add(Cells(2, 3).Left, Cells(2, 3).Top, Cells(2, 3).Width, Cells(2, 3).Height)
            cb.LinkedCell = "$C$2" ' 复选框状态同步到C2单元格（TRUE/FALSE）
            cb.Caption = "" ' 隐藏复选框标题，仅显示选择框
        End If
    End If
End Sub

4. 将文件保存为启用宏的工作簿（.xlsm），关闭VBA编辑器
5. 现在修改B2的值为"valid proof"时，C2会自动生成复选框；改为其他值时，复选框会被删除，C2恢复文本状态

方案二：手动运行的宏（按需执行） #

如果不需要自动触发，可使用手动执行的宏：

1. 按Alt + F11打开VBA编辑器，插入一个新模块（右键工程面板→插入→模块）
2. 粘贴以下代码：

Sub ToggleCheckboxInC2()
    Dim cb As CheckBox
    ' 清除C2的复选框
    For Each cb In ActiveSheet.CheckBoxes
        If cb.TopLeftCell.Address = "$C$2" Then
            cb.Delete
            Exit For
        End If
    Next cb
    
    ' 根据B2值判断是否添加复选框
    If Range("B2").Value = "valid proof" Then
        Set cb = ActiveSheet.CheckBoxes.Add(Range("C2").Left, Range("C2").Top, Range("C2").Width, Range("C2").Height)
        cb.LinkedCell = "$C$2"
        cb.Caption = ""
    End If
End Sub

3. 保存为.xlsm格式，关闭编辑器
4. 按下Alt + F8，选择ToggleCheckboxInC2宏运行即可

注意事项 #

• 必须保存为.xlsm格式，否则宏会丢失
• 若需要扩展到B列多行对应C列，可修改代码中的地址判断逻辑，比如将Target.Address = "$B$2"改为Target.Column = 2来监控整个B列

内容的提问来源于stack exchange，提问作者Fouad Fareed