[分享]给选取的单元格、选取列、选取行以底色显示

LangQueS · 发表于 2007-7-31 23:05

3种颜色的：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Rows(Target.Row).Interior.ColorIndex = 24          '高亮显示当前整行
Columns(Target.Column).Interior.ColorIndex = 34    '高亮显示当前整列
Target.Interior.ColorIndex = 40                    '高亮显示当前单元
End Sub

kingney008 · 发表于 2007-7-31 23:13

安全性还是得设置为低才可以用！！不知设置为低会不会有什么影响的，如果按默认的高的安全性的话好像反应就迟钝了

cqfzq200707 · 发表于 2007-8-1 09:23

我将第3楼的文档下载后，不能打开文档。

daley · 发表于 2007-8-1 11:22

QUOTE:

以下是引用cqfzq200707在2007-8-1 9:23:09的发言：

我将第3楼的文档下载后，不能打开文档。

3楼的文件正常啊!! 不是文档,而是EXCEL文件。

cqfzq200707 · 发表于 2007-8-1 11:59

谢谢楼上的朋友

[em23]

shengzeiding · 发表于 2007-8-2 08:12

有没有选中可以保存底色的程序请各位大侠帮忙!

jackpyl · 发表于 2007-8-3 10:25

以后做数据较大的表就不用眼花了很实用 ,复制代码就可以用方便, 可惜就是看不东从小就讨厌英文更别说VBA

daley · 发表于 2007-8-16 19:43

QUOTE:

以下是引用shengzeiding在2007-8-2 8:12:43的发言：

有没有选中可以保存底色的程序请各位大侠帮忙!

将这句代码删除即可,不过当鼠标每点击任意行或列将会产生底色!

Cells.Interior.ColorIndex = xlNone

小城人 · 发表于 2009-1-26 21:41

好贴，感谢分享

samdymin · 发表于 2009-6-7 10:39

谢谢，已解决

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