范围内的复选框答案

【问题标题】：Checkboxes in a range范围内的复选框
【发布时间】：2015-12-30 11:46:44
【问题描述】：

我有一张带有复选框和名称的表格。我需要一个特定的单元格来仅显示与复选框相关的单元格的值。例如。

当我按下 Lorena 的复选框时，单元格 A1 显示 Lorena，如果我选中 Ricardo 的复选框，则单元格 A1 必须显示 Ricardo。有什么办法吗？我需要处理 15 条记录。

谢谢！

【问题讨论】：

我建议您使用选项按钮而不是复选框，因为复选框用于多选。我可以帮忙使用选项按钮。

【解决方案1】：

在这种情况下，选项按钮会更好地工作，因为听起来只有一个选定的值，一组复选框不起作用。选项按钮将确保在任何时候只选择一个值。我在下面有一组示例代码，用于一组三个及其工作的附加图像。为了实现 15 条记录，只需将选项按钮从 3 个扩展到 15 个即可。

为了使这个示例正常工作，只需添加三个选项按钮并保留它们的默认名称。然后使用他们默认拥有的“点击”事件来触发一个函数，将他们的标题发布到单元格 A1 中。确保选项按钮具有您要输入的名称的标题。

Option Explicit

Sub PrintName(name As String)
    Cells(1, 1).Value = name
End Sub

Private Sub OptionButton1_Click()
    PrintName OptionButton1.Caption
End Sub

Private Sub OptionButton2_Click()
    PrintName OptionButton2.Caption
End Sub

Private Sub OptionButton3_Click()
    PrintName OptionButton3.Caption
End Sub

【讨论】：

为什么不使用application.caller？这样您就可以对所有按钮使用一个宏...
谢谢你们俩。我不知道如何使用application.caller