Question

一个excel文档里包含多个sheet，如何快速定义所有表都使用同一个宏？

除了将宏一个个复制到每一个表以外，有没有什么方法一次编辑就搞定？

Answer 1

有多种方法，如果这个宏只需要在这个工作簿存在时才使用，那么就新建一个模块放进去，或者放到thisworkbook下（图1），如果希望在这台电脑上任意工作簿都可以用，那么就放到个人宏工作簿下（图2）。

Answer 2

录制的宏，一般都是在工作簿的“模块”下，调用宏是不受工作表的限制的。

但是，由于录制时操作或某些设置的缘故，生成的代码有时是有“Sheet1."这样的对象指定。

对于这样的代码，自然不能应用到其他工作表中。

所以，要想让宏在每张表都能用，看一下该宏的代码，把”Sheet1"之类的内容，改为“ActiveSheet"即可。

追问

比如这样一个宏呢？——
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 1 To 3
Target.Speak
Next
End Sub

没有sheet1这样的字样。
但是我想所有的表都用这样一个简单的宏，每次都手工复制粘贴，虽然工作量不大但是感觉比较蠢。

追答

首先，这已经不是常规意义的”宏“了

而且，因为Sub过程是Private的，所以，也不可能被其他函数调用。

如果想要让所有表共用，并且是响应SelectionChange事件，那么，你可以在VBA中双击

"ThisWOrkbook”，在弹出的窗口中选择SelectionChage后，将代码写在里面，即可。