Excel VBA–报表演示,选中的单元格自动显示在A1,数据再多也能看清

当我们要拿一张数据量比较大的报表做演示时,是不是经常会这样?

演示者:今年 xxx 月的销售业绩不错,总计 xxx,比上月增长了 xx%。

领导们:你说的这数字在哪?

演示者:请您看投影上第 23 行第 w 列

半分钟过去了……

领导们:在哪?不如你指一下。

演示者:这呢。

领导们:哦,好,接着说,刚才讲到哪了?

这种演示效率非常低,浪费领导的时间,搞不好还会延误重点内容的汇报。所以,今天教大家一个方法,让选中的单元格内容自动显示在 A1 单元格,数据再多也不会找不到了。

案例:

如下图所示,鼠标点到哪个单元格,这个单元格的内容就自动显示在 A1 单元格。

解决方案:

按 Alt+F11 打开 VBE,输入以下代码:

Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim r, c As Integer'声明变量

r = Selection.Cells.Row'获取选中区域的行号

c = Selection.Cells.Column'获取选中区域的列号

Cells(1, 1) = Cells(r, c)'选中的单元格值显示在A1

End Sub

然后,再设置一下 A1 单元格的背景颜色和字体,让它放大、显眼。

最后冻结首行、首列:

选中 B2 单元格 --> 选择菜单栏的“视图”-->“冻结窗格”

这么简单,就完成想要的效果了:

Excel学习世界

转发、在看也是爱!

  • 发表于:
  • 原文链接https://kuaibao.qq.com/s/20190924A0MM5S00?refer=cp_1026
  • 腾讯「腾讯云开发者社区」是腾讯内容开放平台帐号(企鹅号)传播渠道之一,根据《腾讯内容开放平台服务协议》转载发布内容。
  • 如有侵权,请联系 cloudcommunity@tencent.com 删除。

扫码关注云+社区

领取腾讯云代金券