恒生教育集团 企业财务税专家智库

客服热线
0371-6618 8877

图片展示

快捷导航

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

发表时间: 2019-10-21 10:27:46

作 者: 会计培训

来源: 恒生财务

关注: 55

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

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


(当然你可以把表格比例放大,但你要不停的放大缩小放大缩,太麻烦)


今天用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的无所不能。


 

财税筹划    上市辅导    风险管控    方案设计

代理记账    工商代理    商标注册    审计评估

    电话:0371-66188877

    邮箱:hscw777@126.com

    地址:河南自贸试验区郑州片区(郑东)金水东路
                       85号1号楼11层1101号

图片展示

Copyright © 2019 恒生财税集团 版权所有 豫ICP备14007789号-2    本站实名:郑州会计培训|会计培训加盟|恒生会计培训|恒生财务|恒生教育集团|会计培训|初级会计培训|郑州会计培训班