让Excel活动单元格所在行和列都着上背景颜色的VBA代码

2016-02-19 15:10 44 1 收藏

今天图老师小编给大家展示的是让Excel活动单元格所在行和列都着上背景颜色的VBA代码,精心挑选的内容希望大家多多支持、多多分享,喜欢就赶紧get哦!

【 tulaoshi.com - Excel教程 】

在Excel中,为了增强活动单元格的对比性,有时候我们常常需要修改其背景颜色、字体、字号等,用来区分和其它单元格的对比!

本教程,让我们一起来学习,如何让Excel活动单元格所在行和列都着上背景颜色,首先看下图。

让Excel活动单元格所在行和列都着上背景颜色的VBA代码

(本文来源于图老师网站,更多请访问https://www.tulaoshi.com)

上图中,即C3单元格,被鼠标选中,说明是活动的单元格,如何做才能做到如上图的效果,C3活动单元格所在的行和列,其背景颜色都着上颜色,这样可以方便我们观察单元格,正确的录入数据。

这得使用VBA代码来完成,方法如下:

首先在Excel窗口中,按下键盘上的组合键:Alt + F11

这个时候,会弹出VBA窗口。

①右键点击左边列表中的 Sheet1 并选中查看代码。这样就会弹出一小个VBA输入窗口。

②在小窗口中的上面,左边选择Worksheet名称,右边选择SelectionChange事件。下面就可以在其内部输入代码了,代码如下:

(本文来源于图老师网站,更多请访问https://www.tulaoshi.com)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Columns().Interior.ColorIndex = 0

x = ActiveCell.Column

Columns(x).Interior.ColorIndex = 13

y = ActiveCell.Row

Rows(y).Interior.ColorIndex = 13

End Sub

最后,保存VBA窗口并关闭,回到Excel窗口,效果就出来了。

知识扩展:

部分代码解释:

Columns().Interior.ColorIndex = 0

x = ActiveCell.Column

Columns(x).Interior.ColorIndex = 13

如上代码的功能,是让活动单元格所在列着上背景颜色的代码。

y = ActiveCell.Row

Rows(y).Interior.ColorIndex = 13

如上代码的功能,是让活动单元格所在行着上背景颜色的代码。

来源:https://www.tulaoshi.com/n/20160219/1609053.html

延伸阅读
标签: 电脑入门
首先选中一个单元格,在右击菜单中选中插入按钮,如下图所示。 打开单元格插入对话框,这时你可以看到下图中的四个选项; 1、活动单元格右移:表示在选中单元格的左侧插入一个单元格; 2、活动单元格下移:表示在选中单元格上方插入一个单元格; 3、整行:表示在选中单元格的上方插入一行; 4、整列:表示在选中单元格的左侧插入一行;
标签: 电脑入门
Excel有1048576行16384列,可有时我们做表只需要其中一点点,其他空的部分,虽然不会被打印出来,但摆在那里感觉上去很多余,能不能把多余删除掉? 真的去删除是不可能的,只能用隐藏行、列了,只不过选取的时候,总不能手工从第9行一直拉到第1048576行吧,所以这里需要用到一系列Excel快捷键:SHIFT+CTRL+方向键 在这个题目里,选第9行,...
标签: 电脑入门
在Excel单元格中加上背景字?50有时,为了应付不大会使用EXCEL的人操作方便或给填写表格的人说明此处应该填写的内容,但当只用者双击单元格进行编辑的时候该背景文字自动消失。 为满足上述要求应在一个单元格加上字段名或某些提示性的字,EXCEL是否可以?批注不行!数据有效性不行!我需要是一直显示当双击的时候文字才消失! 问题补充: 就像...
标签: excel
教你自动调整Excel单元格行高和列宽   有没有觉得Excel单元格比较窄,写的文字经常会出格的?或者,单元格高度不够,我们的文字字号大了就显示不出来的?如果你有这些困扰,就赶快来看看怎么自动调整Excel单元格的行高和列宽吧,我们下面就以在Excel2013中自动调整列宽为例来讲解一下吧。 方法一 1、用Excel2013打开一篇工作...
标签: 电脑入门
步骤一:选择菜单栏中的→ 这时会弹出页面设置的窗口,选择选项卡,在栏内选择 (单色打印)选项,然后点便可。 至此,整个exel不打印单元格颜色和底纹的设置就完成了,明白了吧,最关键的地方就是要对打印进行只用单色打印,这样打印出来的文稿就没有颜色和底纹了。

经验教程

245

收藏

79
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部