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

daley · 发表于 2007-7-28 23:01

分享给选取的单元格、选取列、选取行以底色显示，并请高手们给该公式编写一个完整的代码，谢谢！！

在：行、列、活动单元格交叉显示；

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With ActiveCell
    Cells.Interior.ColorIndex = xlNone
    Rows(.Row).Interior.ColorIndex = 7
    Columns(.Column).Interior.ColorIndex = 7
    End With
End Sub

xzSw1FcR.rar (8.78 KB, 下载次数: 241)

[此贴子已经被作者于2008-10-17 20:36:37编辑过]

LangQueS · 发表于 2007-7-28 23:06

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

LangQueS · 发表于 2007-7-28 23:08

7yIVkJKz.zip (5.96 KB, 下载次数: 195)

daley · 发表于 2007-7-28 23:26

QUOTE:

以下是引用LangQueS在2007-7-28 23:06:38的发言：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Rows(Target.Row).Interior.ColorIndex = 34
Columns(Target.Column).Interior.ColorIndex = 34
End Sub

谢谢LangQueS版主提供的两句代码，符合我的要求，并引发所有代码的完善：

单个单元格：Target.Interior.ColorIndex = 34

符合整行：Rows(Target.Row).Interior.ColorIndex = 34

符合整列：Columns(Target.Column).Interior.ColorIndex = 34

daley · 发表于 2007-7-28 23:32

问题已经解决!!

[此贴子已经被作者于2007-7-28 23:33:28编辑过]

kingney008 · 发表于 2007-7-31 20:35

不过打开时，总是会有一个提示说：宏未注册呀，，什么安全性设置高不行，要数字签名的，，最惨就是经常会不灵的，反映会迟钝一点的！！就是说有时候显示有底色，有时候点其他的单元格又无底色

daley · 发表于 2007-7-31 21:42

QUOTE:

以下是引用kingney008在2007-7-31 20:35:11的发言：
不过打开时，总是会有一个提示说：宏未注册呀，，什么安全性设置高不行，要数字签名的，，最惨就是经常会不灵的，反映会迟钝一点的！！就是说有时候显示有底色，有时候点其他的单元格又无底色

不会啊,代码一切均正常。

qCyyiNvh.rar (6.68 KB, 下载次数: 221)

daley · 发表于 2007-7-31 21:43

QUOTE:

以下是引用cqfzq200707在2007-7-31 13:32:42的发言：
[em06]

未知阁下头晕何事？

kingney008 · 发表于 2007-7-31 21:48

我是个VBA菜鸟，，请问是不是打开一个EXCEL表后直接按ALT+F11后，在里面的宏编辑中输入阁下的宏后，就可以达到这个效果？

daley · 发表于 2007-7-31 22:36

QUOTE:

以下是引用kingney008在2007-7-31 21:48:38的发言：
我是个VBA菜鸟，，请问是不是打开一个EXCEL表后直接按ALT+F11后，在里面的宏编辑中输入阁下的宏后，就可以达到这个效果？

打开8楼的代码看看就清楚。

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