vba - LinkedCell 到 Checkbox 在 VBA 中调用 onAction 子例程？

Question

每当将复选框勾选/未插入复选框时，我都会有大量的复选框打电话给子例程。现在我想获取调用子复选框的链接单元格的地址。我试过了

Application.Caller.LinkedCell

但我得到“需要对象”错误，我猜是因为 Application.Caller 返回一个字符串。

有什么方法可以获得linkedCell的地址吗？

感谢您的任何帮助！

Answer 1

这假设您正在使用Checkbox“表单”菜单中的 a，因为我认为无法Application.Caller识别ActiveX控件。它使用了一个奇怪的命名ControlFormat属性Shape（A Checkbox is a Shape）：

Sub GetLinkedCell()
Dim shp As Shape
Dim chk As ControlFormat

Set shp = ThisWorkbook.Worksheets(1).Shapes(Application.Caller)
Set chk = shp.ControlFormat
MsgBox chk.LinkedCell
End Sub