EXCEL颜色随动点击选中变色提醒的方法 随鼠标点击标记颜色(2)

如果想让行和列同时变色，把代码修改为：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.ScreenUpdating = False

[p1] = Target.Row

[q1] = Target.Column

Application.ScreenUpdating = True

End Sub

然后把条件格式的公式修改为

=OR(ROW()=$P$1,COLUMN()=$Q$1)

-------------------------------------



三、直接用宏

直接使用宏来进行操作无须再设置条件格式，这个更简单

宏如下：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　Rows().Interior.ColorIndex = 0
　　x = ActiveCell.Row
　　Rows(x).Interior.ColorIndex = 9
　　End Sub

接下来，会弹出VBA代码编写窗口，如下图！注意一定要在你要变色的单元格比如sheet1这个对象上面点右键选择查看代码，然后再把代码放到右侧的代码框，这样才会变色，不然无效