一个excel文档里包含多个sheet,如何快速定义所有表都使用同一个宏?
发布网友
发布时间：2022-04-23 03:52
共2个回答
热心网友
时间：2023-11-01 10:49
有多种方法，如果这个宏只需要在这个工作簿存在时才使用，那么就新建一个模块放进去，或者放到thisworkbook下（图1），如果希望在这台电脑上任意工作簿都可以用，那么就放到个人宏工作簿下（图2）。
热心网友
时间：2023-11-01 10:49
但是，由于录制时操作或某些设置的缘故，生成的代码有时是有“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后，将代码写在里面，即可。
