让领导看傻！可以自动缩放的Excel表格来了！

兰色以前做数据分析工作，在公司分析会上经常会遇到一个尴尬的问题。投影屏上演示分析数据时，由于很多领导和同事眼近视，屏幕上的字太小看不清，比如下面的表格，离屏的稍远一些字就看不清了：

（当然你可以把表格比例放大，但你要不停的放大缩小放大缩，太麻烦）

今天兰色用VBA做了一个小功能，完美解决这个难题。

在H1单元格中输入数字1，然后再选表格时，就会自动放大字体，颜色变为红色。删除H1中的数字1后，取消放大功能。

在开会时演示这个表格，老板眯着眼都可以看清表中的数字，是不是比较帅？！

想在你的表格中也有这样的功能？和兰色一起操作吧

操作步骤：

1、添加代码

在工作表标签上右键 – 查看代码打开VBE窗口- 把下面的代码粘贴右侧的代码框空白处，关于弹出的VBE窗口

Dim xrow As Long, As Byte, xsize As Byte

Sub hange(ByVal As Range)

On Error Next

If 1 Or .Row = 1 Then

Rows(xrow).Font.Size = xsize

Rows(xrow).Font. =

Exit Sub

End If

If xrow > 1 Then

Rows(xrow).Font.Size = xsize

Rows(xrow).Font. =