通过单击具有 VBA 代码的特定单元格来触发或运行宏，无法使其正常工作。 我尝试了很多不同的方式，但它从未实现过承诺。

如果您想拥有多个宏，在同一页面上运行不同宏的单元格 - 这可能吗？

这工作得很好，将为我节省大量时间 - 感谢您分享您的知识 - 非常感谢！

伟大的。 它运作良好......谢谢......

谢谢，但是合并的单元格呢？

我正在使用 OpenOffice 并右键单击工作表选项卡并选择了事件，然后从 MyMacros 中选择了这个宏。但是我在以下行出现错误：如果 Selection.Count = 1 然后 >>>“基本运行时错误，变量未定义...

我在这个宏中的完整代码是：


Private Sub Worksheet_SelectionChange（作为范围的ByVal目标）

将 val 作为字符串
REM val = Range("A2").Value

如果 Selection.Count = 1 那么
If Not Intersect(Target, Range("D24")) 什么都不是
REM 调用 MyMacro
val = Range("D24").Value
范围（“B27”）.Value = val
结束如果
结束如果
END SUB

Excel 2002 (XP)：如果通过选择“文件”并按“Shift”打开工作簿，则会禁用该工作表中的宏，问题是如果我选择“工具 > 宏 > 宏...”我可以运行宏无论如何，如何解决？

谢谢，但是点击几个单元格来运行几个宏怎么样。

感谢您提供此代码。 是否可以通过单击与其他单元格合并的单元格来使其工作？

您好，我试图使用此代码运行粘贴宏，但似乎无法弄清楚如何正确粘贴宏。

这是我原来的马可

子粘贴（）
'
' 粘贴宏
'

'
范围（“ B34”）。选择
ActiveSheet.PasteSpecial 格式:="HTML", Link:=False, DisplayAsIcon:= _
错误，NoHTMLFormatting:=True
END SUB


任何帮助表示赞赏

您好，感谢您的有趣主题。 例如，如果我想单击 Sheet4 中的 D1 并查看 Sheet2 中的宏结果怎么办！F3。

重要的是要强调宏只在工作表中运行。
我们这些使用常规 Visual Basic 编辑器的人通常最终将宏存储在当前工作表之外的其他位置。
在这种情况下，这些代码都不起作用。
我发现这段代码要简单得多，而且对我来说效果很好： 

Private Sub Worksheet_SelectionChange（ByVal Target As Excel.Range）
If Not Intersect(Range("d1"), Target) 什么都不是，那么
呼叫 aa
结束如果
END SUB
Sub aa() ' 把你的代码放在这里
范围（“D1”）。选择
选择.复制
范围（“F1”）。选择
ActiveSheet.PasteEnd 子
约翰·威尔斯
jnw.wells@gmail.com

对于那些希望这适用于合并单元格的人，最快和最脏的方法是更新第 2 行，如下所示：
选项显式

Private Sub Worksheet_SelectionChange（作为范围的ByVal目标）
如果 Selection.Count > 0 那么
If Not Intersect(Target, Range("D4")) 什么都不是
调用 MyMacro
结束如果
结束如果
End SubSelection.Count 用于确定在执行剩余宏之前是否进行了选择。 如果您的选择由四个已合并的单元格组成，Selection.Count 将等于 4，其余代码将永远不会执行。您也可以将第 2 行更改为合并的单元格的确切数量，但如果您这样做会导致问题合并其他单元格。

宏伟！ Grazie, era una vita che sognavo di poterlo fare, se può essere utile a qualcuno avendo necessità di eseguire più codici su più celle per
aumentare il numero di opzioni basta aggiungere le nuove istruzionisempre sotto la stessa option explicit altrimente ci viene detto che il riferimento al
工作表非 è univoco。 Mi spiego meglio evidenceemente su come ho adattato il codice con il mio esempio;

选项显式
Private Sub Worksheet_SelectionChange（作为范围的ByVal目标）
如果 Selection.Count = 1 那么
If Not Intersect(Target, Range("Y64")) 什么都不是
范围（“Y65：Y78”）。选择
范围（“Y65”）。激活
选择.清除内容
范围（“Y65”）。选择
结束如果
If Not Intersect(Target, Range("A33")) 什么都不是
范围（“A33”）。选择
选择.复制
ActiveWindow.WindowState = xlMinimized
发送键“^v”
发送键“{BACKSPACE}”
结束如果
结束如果
END SUB

Grazie ancora è stata un'autentica meraviglia！

马西莫

我对这个标题没有任何期望，但我越是惊讶。 作者做得很好。 我花了几分钟阅读和检查事实。 一切都非常清晰易懂。 我喜欢填补你知识空白的帖子。 这个就是这样的。

你好，

No encuentro la manera de hacer lo que necesito。 Espero de veras que me podáis ayudar。
Necesito que se lance una MACRO al hacer clic en una celda, pero no sé en qué celda va a ser, no lo puedo comparar con (si se ha seleccionado la celda A3, por ejemplo, que se lance la acción) porque por funcionalidades del fichero, las celdas se van a mover de sitio (se han podido insertar, mas o menos filas encima)。 Necesitaría poder saber qué celda es la que se ha seleccionado。
干草alguna manera de poder hacer eso？
非常感谢你提前。