当前位置：首页 → 问答吧 → 修改代码，满足条件的列区域着色。

修改代码，满足条件的列区域着色。

时间：2011-08-11

来源：互联网

求助修改为：满足条件列区域着色
如点击 B5，则B5：B104 着色；
点击 C5，则C5：C104 着色；
...........
点击 CW5，则CW5：CW104 着色；

[ 本帖最后由 w00021 于 2011-8-11 10:47 编辑 ]

附件

求助点击列着色.rar(7.41 KB)

2011-8-11 09:33, 下载次数: 9

作者: w00021 发布时间: 2011-08-11

是这个意思吗?
高亮显示

复制内容到剪贴板

代码:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Row < 5 Then Exit Sub
If Target.Column > 5 Then Exit Sub
[a5:e65536].Interior.ColorIndex = xlNone
Range("A" & Target.Row & ":E" & Target.Row).Interior.ColorIndex = 40
End Sub

附件

求助点击列着色.rar(7 KB)

2011-8-11 10:34, 下载次数: 7

作者: mineshine 发布时间: 2011-08-11

不对呀
如点击 B5，则B5：B104 着色；
点击 C5，则C5：C104 着色；

作者: w00021 发布时间: 2011-08-11

If Target.Column > 25 Then Exit Sub

作者: 白云2011 发布时间: 2011-08-11

B5：B104 着色
C5：C104 着色
改区域即可
Range(Cells(5, Target.Column), Cells(104, Target.Column)).Interior.ColorIndex = 40

作者: mineshine 发布时间: 2011-08-11

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
If Target.Row <> 5 Or Target.Count > 1 Then Exit Sub
c = Target.Column
Range(Cells(5, c), Cells(104, c)).Interior.ColorIndex = 40
End Sub

作者: yaozong 发布时间: 2011-08-11

谢谢各位老师的关注、给予的帮助！！深表感谢！！！
美中不足是——不能“定位”着色的“首列” 。

[ 本帖最后由 w00021 于 2011-8-11 12:11 编辑 ]

作者: w00021 发布时间: 2011-08-11

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Row < 5 Then Exit Sub
If Target.Column > 5 Then Exit Sub
[a5:e65536].Interior.ColorIndex = xlNone
Range(Cells(5, Target.Column), Cells(104, Target.Column)).Interior.ColorIndex = 40
Cells(5, Target.Column).Select '“定位”着色的第5列
End Sub

作者: mineshine 发布时间: 2011-08-11

修改代码，满足条件的列区域着色。

附件

代码:

附件

热门阅读

热门下载