如何让选中单元格的所在行变色？？

Gflygon · 发表于 2015-10-20 19:29

先说我的要求吧，就是选中的单元格所在行变成黄色，上一选中的单元格所在行则变回白色。
例如：我现在选中[A1]，则A1整行变成黄色；然后我又选中[B1]，则B1整行变成黄色，同时A1整行变回白色。
求大侠赐教~~感谢！

phsu · 发表于 2015-10-20 19:42

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static OldRow As Long
Static Count As Integer
Count = Count + 1
If Count = 1 Then
      Rows(Target.Row).Interior.Color = vbYellow
Else
      Rows(Target.Row).Interior.Color = vbYellow
      Rows(OldRow).Interior.Color = xlNone
End If
OldRow = Target.Row
End Sub

jellyguoyunl · 发表于 2015-10-20 19:42

下论坛里下载个工具箱就可以了

huang1314wei · 发表于 2015-10-20 21:26

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Cells.Interior.ColorIndex = xlNone: Exit Sub
Cells.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.ColorIndex = 6
End Sub
代码写在sheet中

Gflygon · 发表于 2015-10-21 09:34

phsu 发表于 2015-10-20 19:42
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static OldRow As Long
Static ...

谢谢帮忙，测试可以

Gflygon · 发表于 2015-10-21 09:34

huang1314wei 发表于 2015-10-20 21:26
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Cells.Int ...

简单、速度快、非常感谢

punny · 发表于 2018-10-14 21:30

huang1314wei 发表于 2015-10-20 21:26
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Cells.Int ...

简单好用，感谢分享。

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

[求助] 如何让选中单元格的所在行变色？？