[已解决]急！急！！

gwzhcyc2008

           希望高手们帮我做个表吧！           要求是，当你点击任何一个单元格，它的A列同行会变红颜色，他的同列第一行那个单元格，变红色。

最佳答案

月排行榜 / 总排行榜

sunjing-zxl

2012-1-9 14:17

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Dim Ro As Long, Co As Long
   
3.     Cells.Interior.Pattern = xlNone
   
4.     Ro = Target.Row
   
5.     Co = Target.Column
   
6.     Rows(Ro).Interior.Color = 255
   
7.     Cells(1, Co).Interior.Color = 255
   
8. End Sub
   

复制代码

附件： 改变颜色.rar (7.89 KB, 下载次数: 31)

2012-1-9 14:19 上传

点击文件名下载附件

跳转到最佳答案楼层

sunjing-zxl

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Dim Ro As Long, Co As Long
   
3.     Cells.Interior.Pattern = xlNone
   
4.     Ro = Target.Row
   
5.     Co = Target.Column
   
6.     Rows(Ro).Interior.Color = 255
   
7.     Cells(1, Co).Interior.Color = 255
   
8. End Sub
   

复制代码

附件： 改变颜色.rar (7.89 KB, 下载次数: 31)

2012-1-9 14:19 上传

点击文件名下载附件

菜鸟锐

支持楼上的！！！！！

wdkjs

不错不错，学习一下！