如何让VBA代码针对所有工作簿都适用

ysw196 · 发表于 2012-1-10 09:07

前天找了一个高亮显示单元格区域的VBA代码程序，但是只对当前工作表管用，如何操作能让他对电脑上的所有工作簿都管用？请教各位高手了！

烧饼 · 发表于 2012-1-10 09:24

只用修改要调用的工作表路径就可以了

兄弟可以上附件的呀

zhaogang1960 · 发表于 2012-1-10 10:03

这个要求应该使用类模块，也可以把类模块放在一个加载宏上，启动有类模块的工作簿或加载宏后就可以“让他对电脑上的所有工作簿都管用”
请上传附件看看

zhaogang1960 · 发表于 2012-1-10 10:12

用条件格式给你做了一个，你自己修改一下类模块中的代码即可：

如何让VBA代码针对所有工作簿都适用.rar (6.34 KB, 下载次数: 425)

ysw196 · 发表于 2012-1-10 13:33

就是这个附件，应该怎么做，能说一下步骤吗？谢谢，VBA我是一点也不懂的！谢谢各位！

zhaogang1960 · 发表于 2012-1-10 14:32

ysw196 发表于 2012-1-10 13:33
就是这个附件，应该怎么做，能说一下步骤吗？谢谢，VBA我是一点也不懂的！谢谢各位！

附件中有两个工作表：
Sheet1中有
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlColorIndexNone
Target.Interior.ColorIndex = 8
End Sub
Sheet2中有
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
Cells.Interior.ColorIndex = xlNone
Set rng = Application.Union(Target.EntireColumn, Target.EntireRow)
rng.Interior.ColorIndex = 24
End Sub
改为“对所有工作簿都适用”后还是要判断工作表名，如果工作表名是Sheet1则执行第一段，工作表名是Sheet2执行第二段：

技巧16 高亮显示单元格区域.rar (6.6 KB, 下载次数: 123)

hiyou · 发表于 2012-1-10 14:39

发了一个单独贴说明
http://club.excelhome.net/forum. ... d=815968&extra=

ysw196 · 发表于 2012-1-10 16:25

哎，本人这方面水平太差，还是搞不定！

ysw196 · 发表于 2012-1-10 17:06

如何制作加载宏，让VBA程序对所有的打开的工作簿都管用？

zhaogang1960 · 发表于 2012-1-10 17:15

6楼代码不能使用？如果不能用请先说明：什么情况下使用Sheet1中的程序，什么情况下使用Sheet2中的程序
下面是6楼代码在本工作簿和其他工作簿Sheet1和Sheet2中的效果：

		自动登录	找回密码
密码			免费注册

[求助] 如何让VBA代码针对所有工作簿都适用

点评