加载中…让Excel活动单元格所在行和列都着上背景颜色的方法
(2015-02-05 15:26:31)
标签：
itexcelexecl使用技巧excel活动单元格醒目 |
分类： 使用技巧 |
在Excel中，为了增强活动单元格的对比性，有时候我们常常需要修改其背景颜色、字体、字号等，用来区分和其它单元格的对比!
x =
ActiveCell.Column
Columns(x).Interior.ColorIndex = 3
y =
ActiveCell.Row
Rows(y).Interior.ColorIndex = 3
- 需求1、在EXCEL中，点击单元格时，行和列都以同一种颜色呈“十字架”与其他显示区别。
如下图１
http://s6/mw690/001uw2Vegy6VgLgmEKhc5&690
图１ 十字架形式的单元格显示
- 需求2、在EXCEL中，点击单元格时，只有选中的单元格颜色发生变化。 如下图２
首先，我们来操作需求1。如何让Excel活动单元格所在行和列都着上背景颜色，首先看下图３。
图３
上图中，即Q3单元格，被鼠标选中，说明是活动的单元格，如何做才能做到如上图的效果，Q3活动单元格所在的行和列，其背景颜色都着上颜色，这样可以方便我们观察单元格，正确的录入数据，在核对时也更醒目。
这得使用VBA代码来完成，方法如下：
１）首先在Excel窗口中，按下键盘上的组合键：Alt +
F11 这个时候，会弹出VBA窗口。
２）右键点击左边列表中的
Sheet2（你想在那个sheet上设置效果就选那个）
并选中查看代码（或者双击效果也是一样）。这样就会弹出一小个VBA输入窗口。如下图 ４
图４ 设置
３）在小窗口中的上面，左边选择Worksheet名称，右边选择SelectionChange事件。下面就可以在其内部输入代码了，如图５
代码如下，你可复制到你的窗口即可。
Private Sub Worksheet_SelectionChange(ByVal
Target As Range)
Columns().Interior.ColorIndex =
0
End Sub
４）最后，保存VBA窗口并关闭（可按ctrl+S），回到Excel窗口，效果就出来了。
知识扩展：
Columns().Interior.ColorIndex =
0
x =
ActiveCell.Column
Columns(x).Interior.ColorIndex =
3
如上代码的功能，是让活动单元格所在列着上背景颜色的代码。
y = ActiveCell.Row
Rows(y).Interior.ColorIndex =
3
如上代码的功能，是让活动单元格所在行着上背景颜色的代码。
图６
操作方法：
1）打开excel，按ALT +
F11键，
2）选择你要对哪一个工作表进行设置，如sheet1，双击打开编程界面，如图７
3）输入如下代码：
Private Sub
Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex =
8
End Sub
注意： Target.Interior.ColorIndex = 8
中的数字8表示你的设定的颜色值，可自行调整喜欢的颜色。
4）按CTRL＋Ｓ 键保存即可。返回就可以看到你要的结果，如果上图。
喜欢
0
赠金笔
前一篇：[转载]再看关键链进度计划
后一篇：学会PERT计算项目完工概率