助力产业智慧升级,云服务器首年88元起,更有千元代金券礼包免费领!

搜搜吧

搜搜吧 门户 软文 转载 查看内容

老会计分享可以自动缩放的Excel表格!

2019-9-29 12:23| 发布者: 一起学会计| 查看: 32| 评论: 0|原作者: 一起学会计

摘要: 做数据分析工作时,在公司分析会上经常会遇到一个尴尬的问题。投影屏上演示分析数据时,由于很多领导和同事眼近视,屏幕上的字太小看不清,比如下面的表格,离屏的稍远一些字就看不清了:(当然你可以把表格比例放大 ...
做数据分析工作时,在公司分析会上经常会遇到一个尴尬的问题。投影屏上演示分析数据时,由于很多领导和同事眼近视,屏幕上的字太小看不清,比如下面的表格,离屏的稍远一些字就看不清了:
(当然你可以把表格比例放大,但你要不停的放大缩小放大缩,太麻烦)
770240b139194f43a8ff5e8c88b4449f.jpg
下面用VBA做了一个小功能,完美解决这个难题,快来学习吧!
在H1单元格中输入数字1,然后再选表格时,就会自动放大字体,颜色变为红色。删除H1中的数字1后,取消放大功能。
340c4978be4640e9902f8a667a778b43.jpg
在开会时演示这个表格,老板眯着眼都可以看清表中的数字,是不是比较帅?! 想在你的表格中也有这样的功能吗?快来一起学习如何操作吧!
操作步骤:
1、 添加代码
在工作表标签上右键 - 查看代码打开VBE窗口- 把下面的代码粘贴右侧的代码框空白处,关于弹出的VBE窗口
e563827c6df94ca4b93ecedd2bdcb948.jpg
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、 另存文件
文件 - 另存为启用宏的工作簿格式
02e122c2924f4d52bc722545fd8a526e.jpg
设置完成!值得注意的是,添加代码后,当前工作表中将右键粘贴功能将失效,你可以打开剪粘板进行复制粘贴。如果想彻底取消,把代码删除即可

搜搜吧社区温馨提示:
搜搜吧(www.sosoba.org)十分重视网络版权及其他知识产权的保护,针对网络侵权采取如下版权政策:
1、本站有理由相信网友侵犯任何人的版权或作品,(图文,文字,下载,视频,非法传播),本站有权不事先通知即删除涉嫌侵权的作品和内容
2、本站将采取必要的网络技术手段,确认为侵权作品或内容的用户有权进行警告、屏蔽、删除的行为,尽可能的防止侵权行为的发生
3、搜搜吧影视资源均收集自互联网,没有提供影片资源存储,也未参与录制上传,若本站收录的资源涉及您的版权或知识产权或其他利益,我们会立即删除
4、搜搜吧,删帖,投诉,举报,侵权,若本站侵犯您的权益,附上身份及权利证明,请直接发送邮件到 kefu-sosoba@qq.com 我们将在一个工作日内删除

鲜花

握手

雷人

路过

鸡蛋

相关阅读

最新评论

资讯分类

推荐图文

文章排行

关闭

搜搜吧社区公告上一条 /1 下一条

Powered by www.sosoba.org X3.4© 2013-2019 搜搜吧社区 小黑屋|手机版|Archiver|地图|关于我们|腾讯云代金券|帮助中心|soso吧社区
广告服务/项目合作: kefu-sosoba@qq.com  侵权举报邮箱: kefu-sosoba@qq.com  搜搜吧建站时间:创建于2013年07月23日
免责声明:本站所有的内容均来自互联网以及第三方作者自由发布,版权归原作者版权所有,搜搜吧不承担任何的法律责任,若有侵权请来信告知,我们立即删除!
本站热搜:搜搜吧,搜搜,搜搜网,搜一下,搜吧,soso,sousou,快搜,soso搜搜,好搜,搜索,soso问问,搜搜问问,搜搜小说,搜搜图片,搜狗搜索,微信搜索,图片搜索,百度搜索,手机搜索,网盘搜索

GMT+8, 2019-10-23 06:14 , Processed in 1.093750 second(s), 14 queries , Gzip On, MemCache On.

返回顶部