如何通过VBA高亮显示EXCEL活动单元格所在行和列

 我来答

1个回答

#热议# 不吃早饭真的会得胆结石吗？

天雨下凡
推荐于2016-01-17 · 知道合伙人教育行家

天雨下凡
知道合伙人教育行家

采纳数：17564 获赞数：65140

爱电脑、爱数学、爱音乐；熟悉VB、C/C++、JAVA； EXCEL与VBA有所研究…… 数学，一些会，一些被忘却……

向TA提问私信TA

关注

展开全部

按ALT+F11，复制粘贴以下代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.EntireColumn.Address = Target.Address Then
        Cells.Interior.ColorIndex = xlNone
        Exit Sub
    End If
    If Target.EntireRow.Address = Target.Address Then
        Cells.Interior.ColorIndex = xlNone
        Exit Sub
    End If
    Cells.Interior.ColorIndex = xlNone
    Rows(Selection.Row & ":" & Selection.Row + Selection.Rows.Count - 1).Interior.ColorIndex = 35
    Columns(Selection.Column).Resize(, Selection.Columns.Count).Interior.ColorIndex = 20
End Sub

效果图如下：