Excel小技巧分享-自动缩放的表格来了

相信大家都会有这样的经历，在分析会上经常会遇到一个尴尬的问题。投影屏上演示分析数据时，由于同事近视或坐的太远，屏幕上的字太小看不清，比如下面的表格，离屏的稍远一些字就看不清了：

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

今天就分享一个小功能，可以解决这个难题。

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

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

想在你的表格中也有这样的功能？下面一起来操作吧

注：

本例中是把H1单元格作为是否启用放大字体的开关，你可以自定义位置，比如你把H1改为 A1,那么当在A1输入1时就会启用字体放大功能。

字体颜色、字体大小可以根据实际情况自行调整。

操作步骤：

1、添加代码

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

Dim xrow As Long, Xcolor As Byte, xsize As BytePrivate 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.Rowxsize = Target.Font.Size
Xcolor = Target.Font.ColorIndex
Rows(xrow).Font.Size = 24
Rows(xrow).Font.ColorIndex = 3
End Sub

上面可以用，注释版

Dim xrow As Long, Xcolor As Byte, xsize As Byte
Private Sub Worksheet_SelectionChange(ByVal Target As Range)   --发生在选中单元格时On Error Resume NextIf [h1] <> 1 Or Target.Row = 1 Then            --选中单元格在第一行Rows(xrow).Font.Size = xsizeRows(xrow).Font.ColorIndex = XcolorExit SubEnd IfIf xrow > 1 Then                               --选中单元格大于第一行Rows(xrow).Font.Size = xsizeRows(xrow).Font.ColorIndex = XcolorEnd Ifxrow = Target.Rowxsize = Target.Font.SizeXcolor = Target.Font.ColorIndexRows(xrow).Font.Size = 24        --字体大小Rows(xrow).Font.ColorIndex = 3   --字体颜色End Sub

2、另存文件

文件 - 另存为启用宏的工作簿格式

到此，我们的自动缩放表格就完成啦，思路决定你的出路。

VBA是Excel开发语言，你想实现什么功能，用VBA编写代码即可完成。不会VBA的同学也没有关系，学会复制粘贴也是一个技巧~

Excel小技巧分享-自动缩放的表格来了相关推荐

python处理大量excel数据-使用python将大量数据导出到Excel中的小技巧分享
(1) 问题描述:为了更好地展示数据,Excel格式的数据文件往往比文本文件更具有优势,但是具体到python中,该如何导出数据到Excel呢?如果碰到需要导出大量数据又该如何操作呢? 本文主要解决以 ...
python输出数据到excel-使用python将大量数据导出到Excel中的小技巧分享
(1) 问题描述:为了更好地展示数据,Excel格式的数据文件往往比文本文件更具有优势,但是具体到python中,该如何导出数据到Excel呢?如果碰到需要导出大量数据又该如何操作呢? 本文主要解决以 ...
python导出百万数据到excel_使用python将大量数据导出到Excel中的小技巧分享
使用python将大量数据导出到Excel中的小技巧分享今天小编就为大家分享一篇使用python将大量数据导出到Excel中的小技巧心得,具有很好的参考价值,希望对大家有所帮助.一起跟随小编过来看看 ...
excel的if函数中android,excel中if函数使用小技巧分享
excel中if函数使用小技巧分享[案例实操] 今天有同事问到笔者一个问题:"在EXCEL中,如何使用函数实现如下功能:在A1单元格填写A,B1单元格自动填写100,当A1单元格的内容更改为 ...
两表格合并_六个高效办公Excel小技巧，让你提前下班两小时！
每天下午一点,PPT技能进步一点大家中午好呀! 大家好这是我们的抖音号 @PPT模板抖音搜索"PPT1080" 就可以啦更多福利等你来拿! 小编发现抖音里无奇不有有关于Ex ...
EXCEL/WPS小技巧（自动填充排序，身份证生日号码的提取）
EXCEL/WPS小技巧(自动填充排序,身份证生日号码的提取) Excel/wps的自动填充排序方法一方法二身份证生日号码的提取 Excel/wps的自动填充排序方法一 Excel和wps的操 ...
python将数据导出到excel_使用python将大量数据导出到Excel中的小技巧分享
使用python将大量数据导出到Excel中的小技巧分享来源:中文源码网浏览: 次日期:2018年9月2日 [下载文档: 使用python将大量数据导出到Excel中的小技巧分享. ...
excel 行高上下留白_拒绝加班，工作中最常用的57个Excel小技巧来了！
今天高顿君分享的 Excel小技巧,全是工作是最常用且简单易操作的,共57个,希望对同学们有所帮助.(适合版本 Excel2007及以上) 一.文件操作 1.为excel文件添加打开密码文件 - 信 ...
java excel 合并两个单元格内容无法换行_12个简单高效的EXCEL小技巧，让你秒变职场达人！...
小伙伴们早上好,今天小编和大家分享一组简单高效的Excel小技巧,点滴积累,也能提高办公效率哦. 1.填充合并单元格在工作表中尽量不使用合并单元格,否则就是重复工作量.那么对已有合并单元格的工作表, ...
数学建模论文写作小技巧分享
学习网址 :哔哩哔哩网站[数学建模论文写作小技巧分享] 数学建模论文写作小技巧分享数学建模-论文-各部分-写作-指导数学建模[建模竞赛与论文写作] 目录 P1 [必看]代码.论文查重问题怎么 ...

Excel小技巧分享-自动缩放的表格来了

Excel小技巧分享-自动缩放的表格来了相关推荐

最新文章

热门文章