1、直接在开发工具打开VB编程界面,或用ALT+F11快速调出编程界面
2、如图位置,双击sheet1,打开工程管理器
3、选中worksheet
4、复制代码--------复制代码开始--------Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim Rng As RangeSet Rng = Target.Range("a1") '选中目标单元格A1Cells.Interior.ColorIndex = 0 '清除所有背景色Rng.EntireColumn.Interior.ColorIndex = 40 '设置当前列颜色Rng.EntireRow.Interior.ColorIndex = 36 '设置当前行颜色End Sub--------代码结束--------
5、ctil+s保存回到录制该变成的工作簿
6、仅应用于选中的工作簿,无法应用于整个表格若想应用所有表格,建议使用开启个人宏工作簿