在Excel中,为了增强活动单元格的对比性,有时候我们常常需要修改其背景颜色、字体、字号等,用来区分和其它单元格的对比!
这得使用VBA代码来完成,方法如下:
首先在Excel窗口中,按下键盘上的组合键:Alt + F11
这个时候,会弹出VBA窗口。
①右键点击左边列表中的 Sheet1 并选中查看代码。这样就会弹出一小个VBA输入窗口。
②在小窗口中的上面,左边选择Worksheet名称,右边选择SelectionChange事件。下面就可以在其内部输入代码了,代码如下:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Columns().Interior.ColorIndex = 0 ' reset all colomns to white
x = ActiveCell.Column
Columns(x).Interior.ColorIndex = 6 ' yellow
y = ActiveCell.Row
Rows(y).Interior.ColorIndex = 6
End Sub
最后,保存VBA窗口并关闭,回到Excel窗口,效果就出来了。