聚焦选中单元格VBA代码

郭浩
郭浩
郭浩
186
文章
2
评论
2016年3月30日06:19:20 评论 50 540字阅读1分48秒

打开Excel文件,按alt+F11,双击要使用此功能的Sheet名,并将以下代码粘贴到右侧空白区域。

聚焦选中单元格VBA代码

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 = 3
    Columns(Selection.Column).Resize(, Selection.Columns.Count).Interior.ColorIndex = 3
End Sub

使用效果如下:

聚焦选中单元格VBA代码

以下为颜色参考:
3   红色
6   黄色
10  绿色
11  深蓝色
14  青色
18  梅红色
21  深紫色

郭浩
  • 本文由 发表于 2016年3月30日06:19:20
  • 除非特殊声明,本站文章均为原创,转载请务必保留本文链接
又一个宏,这次是关于查询的 办公软件

又一个宏,这次是关于查询的

马上春节了,事情不多,今天上午又帮人做了一个查询的宏。 源文件是个极其不规范的表格,里面在数据源中存在很多合并单元格,数据也并非都在一列中,好在每个数据区域还算比较有规律(有固定的行、列数量),索引关...
匿名

发表评论

匿名网友 填写信息

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: