[已解决]帮忙修改下，在线等Target.Entirerow.Interior.Color = vbRed

ranrise

Target.Entirerow.Interior.Color = vbRed

这句的意思是让选中单元格所在的整行变成红色，
我现在要求改成：不是整行变色，而是选中单元格所在行的第1列至第10列
变成红色，该怎么改代码？
需要满足：连续或不连续选中单元格的情况

谢谢各位了

最佳答案

月排行榜 / 总排行榜

美斯特邦威

2013-10-9 15:42

ranrise 发表于 2013-10-9 15:39
谢谢，如此之快，但有个问题，这代码只适合单行。选中的如果是连续多行或不连续多行都不行啊

1. For Each c In Target.Cells
   
2. Cells(c.Row, 1).Resize(1, 10).Interior.Color = vbRed
   
3. Next

复制代码

跳转到最佳答案楼层

美斯特邦威

1. Cells(Target.Row, 1).Resize(1, 10).Interior.Color = vbRed

复制代码

ranrise

美斯特邦威 发表于 2013-10-9 15:36

谢谢，如此之快，但有个问题，这代码只适合单行。选中的如果是连续多行或不连续多行都不行啊

上清宫主

好象楼上还要改以适合楼主的“需要满足：连续或不连续选中单元格的情况”

美斯特邦威

ranrise 发表于 2013-10-9 15:39
谢谢，如此之快，但有个问题，这代码只适合单行。选中的如果是连续多行或不连续多行都不行啊

1. For Each c In Target.Cells
   
2. Cells(c.Row, 1).Resize(1, 10).Interior.Color = vbRed
   
3. Next

复制代码

ranrise

上清宫主 发表于 2013-10-9 15:40
好象楼上还要改以适合楼主的“需要满足：连续或不连续选中单元格的情况”

对头，就是这个意思，恳请大侠帮助～～～～

LJF136151

初学者，复制代码玩了下，target.rom直接改成数字，挺好玩

suye1010

试试看这样行不行呢?

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. Intersect(Columns("A:J"), Target.EntireRow).Interior.Color = vbRed
   
3. End Sub

复制代码

美斯特邦威

suye1010 发表于 2013-10-9 17:03
试试看这样行不行呢?

必须行，而且还避免了当选择整列时用了循环太慢引起的"死机"

ranrise

suye1010 发表于 2013-10-9 17:03
试试看这样行不行呢?

这个应该更简洁些，没有用循环语句