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

zhaogang1960 · 发表于 2012-1-10 18:27

下面附件是按照7楼hiyou老师方法，不用类模块另存为的加载宏：
还是判断工作表名是Sheet1则执行第一段，工作表名是Sheet2执行第二段

liucqa · 发表于 2012-1-10 20:20

学习

一巴掌拍死你 · 发表于 2012-1-10 20:27

zhaogang1960 发表于 2012-1-10 14:32
附件中有两个工作表：
Sheet1中有
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Rows(Target.Row).Interior.ColorIndex = 6
Columns(Target.Column).Interior.ColorIndex = 6
Cells(Target.Row, Target.Column).Interior.ColorIndex = 2
End Sub

ysw196 · 发表于 2012-1-11 13:15

只要sheet2的程序就行，把他做成加载宏，只要启动EXCEL就可以用的那种，或者做成按钮，点击它就可以用！

zhaogang1960 · 发表于 2012-1-11 13:48

ysw196 发表于 2012-1-11 13:15
只要sheet2的程序就行，把他做成加载宏，只要启动EXCEL就可以用的那种，或者做成按钮，点击它就可以用！

高亮显示单元格区域.rar (6.96 KB, 下载次数: 151)

ysw196 · 发表于 2012-1-11 16:53

谢谢楼上的朋友，麻烦你了，已经可以用了！

lxw6 · 发表于 2012-2-10 16:57

本帖最后由 lxw6 于 2012-2-10 17:13 编辑

下载了15楼的文件，使用效果非常好。
有个小问题，如果对某单元格范围设置了颜色，点击别的单元格，设置的颜色会消失。应该加个判断即可解决

剑仙-逍遥 · 发表于 2016-8-23 08:12

好东西值得分享

qjy321 · 发表于 2018-3-19 14:40

zhaogang1960 发表于 2012-1-10 10:12
用条件格式给你做了一个，你自己修改一下类模块中的代码即可：

怎样能让VBA代码都能适用所有工作簿中的“目录”工作表。

qjy321 · 发表于 2018-4-4 11:18

zhaogang1960 发表于 2012-1-11 13:48

老师，帮我看一下这个文件http://club.excelhome.net/thread-815781-2-1.html

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

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