〖实践中学习〗Excel点击单元格文字自动变大变颜色，提高浏览舒适度

Excel情报局

OFFICE爱好者大本营

用1%的Excel基础搞定99%的职场工作

做一个有价值感的Excel公众号

Excel是门手艺 玩转需要勇气

数万Excel爱好者聚集地

2021年4月25日 周日

【Excel情报局｜文案回收铺子】

但行好事，莫问前程
你尽管善良，福报都在来的路上

有时候，我们在Excel的对账浏览数据的时候，会造成眼睛疲劳，容易对数据造成错误的判断，那么我们是不是可以让我们的表格变成像下面所示的那样：如果点击对应行的任意单元格，就可以使该行的数据颜色变红且放大呢？这样可以更加准确的浏览数据。

首先我们先准备一张Excel表格。

我们先在表格中的任意一个空白的单元格输入数字“1”。本例中我们选择的单元格是B8单元格。

右击工作表名称标签，点击“查看代码”，将下面一段代码复制粘贴到VBA代码录入界面。然后点击关闭VBA窗口。

Dim xrow As Long, Xcolor As Byte, xsize As BytePrivate Sub Worksheet_SelectionChange(ByVal Target As Range)On Error Resume Next If [B8] <> 1 Or Target.Row = 1 Then Rows(xrow).Font.Size = xsize Rows(xrow).Font.ColorIndex = Xcolor Exit Sub End If If xrow > 1 Then Rows(xrow).Font.Size = xsize Rows(xrow).Font.ColorIndex = Xcolor End If xrow = Target.Row xsize = Target.Font.Size Xcolor = Target.Font.ColorIndex Rows(xrow).Font.Size = 24 Rows(xrow).Font.ColorIndex = 3End Sub

最后我们就实现了点击对应行的任意单元格，就可以使该行的数据颜色变红且放大的效果。

代码解释：

其中代码当中“B8”和“1”，可以根据我们在哪个单元格中输入什么数字，依据实际情况进行灵活修改。

其中代码中的“24”和“3”分别代表字体的字号大小和填充颜色代码，可以根据我们自己的显示的喜好灵活进行修改，实现变化字号和填充颜色。

视频演示：

Excel学习视频下载专区：

公众号后台聊天窗口回复关键字“我要学习”获取百度网盘下载提取码

百度云下载链接：(复制到手机或电脑浏览器地址栏打开输入提取码)

https://pan.baidu.com/s/1VzuHfu9LTgYokcb6b4w4mQ

阅读完文章之后，希望大家在文末帮我点亮“在看”，坚持的路上需要有你们的鼓励！

请这样在【Excel情报局】历史文章中通过关键字进行模糊搜索

①第1步：进入【Excel情报局】微信公众号，点击底部菜单“情报.xls”

②第2步：点击“历史文章”按钮

③第3步：顶部搜索框内输入你要搜索的关键字，比如“合并”，点击确定，进行搜索。参照下面视频操作：

OFFICE Excel2016版本下载专区

方式①Excel2016版安装包(含永久激活工具) 百度网盘

下载链接：
https://pan.baidu.com/s/11eE-oGEyHojXHoYSuDbBAA