老衲得了几分钟空儿, 来回答一下罢.
首先, 先打开"开发工具"界面, 如果不会, 可以看老衲从前的回答.
Step 2: 直接打开Visual Basic
![]()
Step 3: 进去之后建立一个事件. 请注意看红框
![]()
Step 4: 在这个事件中添加如下代码
![]()
代码明细:- Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim selectedRange As RangeSet selectedRange = Target.Range("a1")Cells.Interior.ColorIndex = 0 '清除背景色'selectedRange.EntireColumn.Interior.ColorIndex = 6 '设置列颜色为亮黄selectedRange.EntireRow.Interior.ColorIndex = 6 '设置行颜色为亮黄End Sub
复制代码 Step 5: 完成了. 运行一下
![]()
最后保存成xlsm即可.
![]()
PS: 可以看到代码中使用的是ColorIndex来标示颜色. 这个很不直观, 所以老衲再提供一个表格
![]()
试试看吧~~~~
|