MS Office Excel 通过 VB 脚本指定选定单元格行列颜色

打开 MS EXCEL 文件,使用【ALT + F11】,打开编辑器,选择需要修改的 Sheet 页面,输入如下内容

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Cells.Interior.ColorIndex = xlNone

ActiveCell.EntireRow.Interior.ColorIndex = 35

ActiveCell.EntireColumn.Interior.ColorIndex = 35

End Sub

输入后如下所示:

 

 

保存后退出,选定任意单元格后效果如下所示。

 

PS:效果展示中删除了列的颜色展示。

 

posted @ 2022-05-01 15:29  范丰平  Views(459)  Comments(0Edit  收藏  举报