以前做数据分析工作，在公司分析会上经常会遇到一个尴尬的问题。投影屏上演示分析数据时，由于很多领导和同事眼近视，屏幕上的字太小看不清，比如下面的表格，离屏的稍远一些字就看不清了：
（当然你可以把表格比例放大，但你要不停的放大缩小放大缩，太麻烦）
今天用VBA做了一个小功能，完美解决这个难题。
在H1单元格中输入数字1，然后再选表格时，就会自动放大字体，颜色变为红色。删除H1中的数字1后，取消放大功能。
在开会时演示这个表格，老板眯着眼都可以看清表中的数字，是不是比较帅？！
想在你的表格中也有这样的功能？一起操作吧
操作步骤：
1、添加代码
在工作表标签上右键 - 查看代码打开VBE窗口- 把下面的代码粘贴右侧的代码框空白处，关于弹出的VBE窗口
Dim xrow As Long, Xcolor As Byte, xsize As Byte
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If [h1] <> 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 = 3
End Sub
注：本例中是把H1单元格作为是否启用放大字体的开关，你可以自定义位置，比如你把H1改为 A1,那么当在A1输入1时就会启用字体放大功能。
2、另存文件
文件 - 另存为启用宏的工作簿格式
设置完成！值得注意的是，添加代码后，当前工作表中将右键粘贴功能将失效，你可以打开剪粘板进行复制粘贴。如果想彻底取消，把代码删除即可。
VBA是Excel开发语言，你想实现什么功能，用VBA编写代码即可完成。等你学会了VBA，你才会知道Excel的无所不能。
相关推荐：
【税务培训】- 这个画红圈功能，99%的Excel用户没用过！
【税务培训】- 想偷看我的表格？哼！你的Excel水平还不够~
【税务培训】- 这16个Excel函数，帮你完成80%的数据统计工作
这里有更多的财税信息、更专业的政策解读、最激烈的热点碰撞，还有海量的免费课程体验，欢迎加入财税讨论群(微信号：linkedf-fans)
上海工商
沪公网安备 31010502004199号
