vba - Excel 2010 - 错误 : Cannot run the macro SelectCell using . onAction

Question

我一直在互联网上寻找解决此问题的方法，但由于某种原因，我永远找不到与使用 .onAction 选择特定单元格直接相关的任何内容。

我正在使用另一个问题的答案作为引用:

https://stackoverflow.com/a/18199035

在循环遍历形状的部分中，脚本为每个形状分配一个 .onAction 事件。每当这在 Excel 2010 中运行时，我都会收到错误消息:

Cannot run the macro "SelectCell "Sheet 1","$C$10"". 
The macro may not be available in this workbook or all macros may be disabled.

我是 excel 的 VBA 脚本的新手，所以我不知道它是否是格式，但我知道它与这一行有关。

.OnAction = "'SelectCell """ & ws.Name & """,""" & cll.Address & """'"

我为 SelectCell 创建了一个子过程，以显示作为调试发送的值。同样的错误。

我尝试让 excel 允许所有宏并禁用所有宏，但它对错误没有影响。

如果有人对我哪里出错或我可以用来进一步教育自己的任何资源有任何想法，将不胜感激。

Answer 1

这(常规模块中的两个潜艇)对我有用。

Sub SelectCell(sht As String, rng As String)
    ThisWorkbook.Sheets(sht).Range(rng).Select
End Sub

Sub Assign()
    ActiveSheet.Shapes(1).OnAction = "'SelectCell """ & _
            Selection.Parent.Name & """, """ & _
            Selection.Address() & """'"
End Sub

如果 SelectCell在工作表代码模块中，则需要包含工作表代码名称:

Sub Assign()
    ActiveSheet.Shapes(1).OnAction = "'Sheet1.SelectCell """ & _
            Selection.Parent.Name & """, """ & _
            Selection.Address() & """'"
End Sub