本文转载自公众号:学习向,作者:向健。
首先看看最终效果 :
VBA代码为:
Private Sub worksheet_selectionchange(ByVal target As Range)
If target.Count = 1 And target.Row > 1 Then
Rows("1:" & Rows.Count).Interior.Color = xlNone
target.EntireRow.Interior.Color = vbGreen
End If
End Sub
接下来是操作步骤……
1.点击开发工具→Visual Basic
2.双击你想要高亮行的工作表名称→在右侧的编辑窗口粘贴代码
3.关闭VBA编辑窗口,返回工作表,点击鼠标,是不是鼠标点击的单元格所在的行已经高亮显示了,大功告成
PS:高亮显示颜色可以更改,把“target.EntireRow.Interior.Color = vbGreen”代码行等于号后边的“vbGreen”改成其它颜色的RGB值就可以了,如:target.EntireRow.Interior.Color =RGB(251, 187, 13),就是下图效果
什么?你说你的EXCEL没有开发者选项这个工具栏,那么点击“开始→选项”按照下图设置一下就好了!