我正在开发一个 Excel 插件，它将在构建工作簿之前从 Web 服务获取数据。
在示例工作簿中，作为要求的一部分，我得到了一些单元格是 1 或空的。
这些是SUMmed，结果存储在其他地方。
我不是特别喜欢这个，我正在想办法为这些字段使用复选框，但仍将单元格值保持为 1 或 0（用于选中和未选中）。
这给了我几个问题：
利用我广泛的研究能力 (Google)，我发现我可以添加一个复选框并将其与一个单元格相关联，以便选中/取消选中将单元格值设置为 TRUE 或 FALSE。如果这是唯一的选择，我可能会处理它（叹气！）但是这可以通过插件中的 c# 代码来完成吗？
【问题讨论】：
标签： c# excel checkbox excel-2010 excel-addins
我发现这很有帮助。我改变了代码，以便可以将大量单元格指定为复选框，每个单元格都可以在保持基础值的同时被勾选：
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim TickBoxes As Range
'Specify the range of cells you want to be tickboxes
Set TickBoxes = Union(Range("A1"), Range("B2:D8"), Range("E9:G15")) 'etc
If Intersect(TickBoxes, Target) Is Nothing Then Exit Sub
Target.Font.Name = "Marlett"
Cancel = True
If Target.Value = 1 Then
Target.Value = 0
Target.NumberFormat = ";;;"
Else
Target.Value = 1
Target.NumberFormat = Chr(34) & "a" & Chr(34) & ";;;"
End If
End Sub
没那么聪明，但希望对某人有用！
艾伦·K
【讨论】：
这是一个使用单元格 B9
的示例它是使用双击而不是单击
实现的在工作表代码区输入以下事件宏：
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim B9 As Range
Set B9 = Range("B9")
If Intersect(B9, Target) Is Nothing Then Exit Sub
B9.Font.Name = "Marlett"
Cancel = True
If B9.Value = 1 Then
B9.Value = 0
B9.NumberFormat = ";;;"
Else
B9.Value = 1
B9.NumberFormat = Chr(34) & "a" & Chr(34) & ";;;"
End If
End Sub
双击 B9 将切换检查。
因为是工作表代码，所以非常容易安装和自动使用：
如果您有任何疑虑，请先在试用工作表上进行尝试。
如果您保存工作簿，宏将与它一起保存。 如果您使用的是 2003 年以后的 Excel 版本，则必须保存 文件为 .xlsm 而不是 .xlsx
要删除宏：
要了解有关宏的更多信息，请参阅：
http://www.mvps.org/dmcritchie/excel/getstarted.htm
和
http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx
要了解有关事件宏（工作表代码）的更多信息，请参阅：
http://www.mvps.org/dmcritchie/excel/event.htm
必须启用宏才能正常工作！
注意：
可以使用标准的左键单击来实现事件，但代码要多一些。
【讨论】：