Dim




    
 chkBox As CheckBox
Set chkBox = ActiveSheet.CheckBoxes("Checkbox1") '将“Checkbox1”替换为复选框的名称
MsgBox chkBox.LinkedCell '显示与复选框关联的单元格

这将返回一个字符串,该字符串是与复选框关联的单元格的地址。你可以在需要的地方使用这个地址来操作与复选框关联的单元格。

请注意,上面的代码假定你正在处理的工作表上只有一个名为“Checkbox1”的复选框。如果有多个复选框,你需要相应地修改代码来处理不同的控件名称。

  •