如何做一个所有工作薄都能用的宏

baiyunem

目前用的是excel2010
因为工作需要，想做个宏，在所有工作薄都能用
宏很简单

1. Sub SX()
   
2. On Error Resume Next
   
3. Dim Rng As Range
   
4.     Set Rng = ActiveSheet.Range("A4:K9").Find("颜色")
   
5.     If Not Rng Is Nothing Then
   
6.         Rng.Select
   
7.         Selection.AutoFilter
   
8.     End If
   
9. End Sub

复制代码

最初实现是使用个人宏工作薄，将这个宏写到里面，然后工具栏添加个按钮，点一下就运行了。
后来忽然发现这样会导致每次关闭excel的时候，都需要点两次关闭，原因是第一次关的是当前工作薄，而剩下那个excel空白框，其实是个人工作薄里的宏文件，这样感觉不能接受，本来我就是为了方便加的一个小代码，反而变得不方便了，要关2次。

请教各位有没有其它办法，可以做到不用个人宏文件共享宏，或者，能解决关2次excel的尴尬

baiyunem

额，下午突发奇想搞定了。

一、创建个excel文件，保存格式为启用宏的.xlsm文件，然后把需要的宏写到这个文件里，找个地方存着，不用丢个人宏文件夹，那个文件夹有问题，一不小心就会变成需要关两次excel，很尴尬

二、执行的代码最后面加一句workbooks("123.xlsm").close，这样宏运行完了就会自己关了

三、在打开了这个excel文件时候，在工具栏创建个这个宏的按钮，这样打开任何excel文件，这个宏都会乖乖呆在工具栏


好尴尬，发了贴，自己又解决了，找了半天都没找到删贴的按钮

benhsu

把宏存成.xlam加载宏的格式后加载就可以了

baiyunem

benhsu 发表于 2023-2-17 13:36
把宏存成.xlam加载宏的格式后加载就可以了

好，我试试这个办法