本文以Excel2010为例进行讲解:
1、Alt+F11
打开需要操作的文件,按下键盘的快捷键 Alt+F11,出线如图所示的界面:
左边的框框就显示了当前工作簿中的工作表,选择需要的表格进行 双击 ,然后出线右边的框框,在里面输入所需要的代码:
附录代码:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Columns().Interior.ColorIndex = 0
x = ActiveCell.Column
Columns(x).Interior.ColorIndex = 4
y = ActiveCell.Row
Rows(y).Interior.ColorIndex = 4
End Sub
然后点击保存快捷键: Ctrl+S,保存,然后出现所需要的效果,如图所示: