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

在Excel中,通过VBA代码实现表格字体自动放大功能,解决了投影演示时字小看不清的问题。只需在特定单元格输入1,表格即会放大并改变字体颜色,方便远程查看。操作简单,通过查看代码添加VBA宏实现。
摘要由CSDN通过智能技术生成

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

 

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

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

 

在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
AutoDBGrid V1.0 自动缩放数据表格 V1.0 控件作者:与月共舞工作室 周劲羽 控件源码:包含完整源码 下载网址:http://yygw.126.com Eamil :yygw@yeah.net; yygw@sina.com 发布形式:明信片控件 您可以自由复制、传播和用于免费软件中 但未经作者允许,请勿用在共享软件、商业软件等盈利性场合中 使用中有任何问题请与作者联系 如果您对该控件满意,请发一封贺卡或邮件给作者以示支持!  有大家的支持,作者才有动力编写更多的免费控件回报大家!  开发平台:Windows 98 SE + Delphi 5.0 运行平台:D3D4D5 最后更新:2001.3.20 V1.0 作者简介:姓名:周劲羽 昵称:与月共舞 OICQ:991144 EMail:yygw@yeah.net 或 yygw@sina.com 备 注:作者打算建设“中国免费Delphi控件开发者联盟”,诚邀有志于中国免费软件事业的同道,也请大家多提意见。 网站暂定为:http://freevcl.yeah.net,敬请关注! 控件说明: --------- 1.控件功能: 本控件允许数据表格在改变大小时自动调整内部字段宽度,以适应显示。 同时,控件还可重定义表格标题内容,特别适合连接到动态数据源的数据表格。 1.控件属性: About 版权窗口 AutoSize 是否允许表格自动缩放 AddAll 将当前连接表格的所有字段增加到Titles中 MinFixed 缩放时限制最小宽度 MinCharWidth 限制最小宽度时,一个单位字符的最小显示宽度 Titles 用户自定义的表格标题 FieldName 字段名称 Title 字段显示名称 Width 字段显示比例宽度(字符数) 2.控件方法: Reset 刷新显示,强制表格自动缩放 3.控件事件: OnGetTitle 控件从内部列表中取得一个字段的标题、宽度后触发该事件。 OnGetTitleFail 控件在内部列表中找不到相应字段显示信息时触发该事件。 4.使用方法: 1)确定你需要用该控件显示的所有字段。 2)在Titles中为每一个字段增加一项,设置好字段名、显示名、宽度。 3)你也可以在将表格连接到数据源后,点击AddAll由控件自动将所有字段增加到Titles中,再进行修改。 3)根据需要设置MinFixed和MinCharWidth。 4)如果你连接了数据源并打开了表格,还可以在设计时进行可视化调整。 5.注意事项: 控件用到了DsgnIntf单元,默认设置下Delphi搜索路径中不包括该单元,用户需要手动设置。 该单元目录为:{Delphi安装目录}SourceToolsApi。 1)打开Delphi主菜单Tools下的Enviroment Options选项。 2)在Library页面中点Library Path最右边的按钮。 3)将DsgnIntf单元所在的路径加入到其中。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值