相信大家都会有这样的经历,在分析会上经常会遇到一个尴尬的问题。投影屏上演示分析数据时,由于同事近视或坐的太远,屏幕上的字太小看不清,比如下面的表格,离屏的稍远一些字就看不清了:
(当然你可以把表格比例放大,但你要不停的放大缩小放大缩,太麻烦)
今天就分享一个小功能,可以解决这个难题。
在H1单元格中输入数字1,然后再选表格时,就会自动放大字体,颜色变为红色。删除H1中的数字1后,取消放大功能。
在开会时演示这个表格,同事眯着眼都可以看清表中的数字,是不是比较帅?!
想在你的表格中也有这样的功能?下面一起来操作吧
注:
本例中是把H1单元格作为是否启用放大字体的开关,你可以自定义位置,比如你把H1改为 A1,那么当在A1输入1时就会启用字体放大功能。
字体颜色、字体大小可以根据实际情况自行调整。
操作步骤:
1、添加代码
在工作表标签上右键 - 查看代码,打开VBE窗口- 把下面的代码粘贴右侧的代码框空白处,关于弹出的VBE窗口
Dim xrow As Long, Xcolor As Byte, xsize As Byte Private Sub Worksheet_SelectionChange(ByVal Target |