excel鼠标点击单元格字体变颜色 取消选择后恢复 并返回选中单元格的行数

Question

比如我选取a1到d1的任意一个单元格 字体就变味蓝色 选取a1到d1中其他的单元格之前选中的就恢复黑色，并且在a2单元格显示所选单元格的行数 如何用vba实现？谢谢了

Answer 1

行数不就是，都是1嘛？
是列号？
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim tr, tc
tr = Target.Row
tc = Target.Column
If tr > 1 And tc > 4 Then Exit Sub
Range("A1：D1").Font.ColorIndex = 0
Target.Font.ColorIndex = 5

[A2] = tc '显示选择单元格的列号
End Sub追问

非常感谢！如果选择其他的单元格后之前选择的单元格字体能恢复之前的颜色吗？