LinkedCell to Checkbox在VBA中调用onAction子例程？

Question

每当勾选/取消选中复选框时，我都会有大量的复选框调用子程序。现在我想将地址输入到调用sub的复选框的链接单元格。我试过了

Application.Caller.LinkedCell

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

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

感谢您的帮助！

Answer 1

这假设您使用“表单”菜单中的Checkbox，因为我认为Application.Caller无法识别ActiveX控件。它使用ControlFormat的奇怪命名的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