VBA实现Word中表格右键菜单快速添加序号、单元格加乘法计算，好像Excel一样快？

vistababy · 发表于 2024-3-15 16:41

本帖最后由 vistababy 于 2024-3-18 10:08 编辑

1、文件在附件中。将代码放到全局Normal.dotm模版中，运行一次“单元格右键菜单增加项目”，将在任何doc、docx文件的表格中起作用。
2、如果在右键菜单中选择“在当前表格顶端创建ABC列表头”，将出现如图2表头效果，方便看列号。（用完删除此表）不过此功能用的机会不多，可能感觉复制到excel处理一下再复制回来更快。
3、计算功能完全基于word域计算方式，请知悉，如果改了数，要重新计算，选中，按键盘上的快捷键F9就能自动更新金额。
4、使用工具中的“表格域转化为文本”功能以后，修改了数据，按F9将无法更新计算。
5、在添加序号的时候，如果按Ctrl键再点菜单项（弹出菜单之前不能按），将弹窗可手动输入起始数。
vba非专业人士，代码略显粗糙，但功能还是有的。

表格计算右键小工具.rar (39.86 KB, 下载次数: 157)

截屏_2024-03-15_15-59-56.gif

vistababy · 发表于 2024-3-15 16:45

本帖最后由 vistababy 于 2024-3-16 14:16 编辑

代码中用到了一些菜单对应的图标，就是FaceId那项，其后面的数值及图标可在这个网址查询：https://blog.csdn.net/qq_35097289/article/details/91489628

图标是可以随便改的。

文化属性666 · 发表于 2024-3-18 10:12

针对表格的VBA比较少，真的很实用，谢谢

vistababy · 发表于 2024-3-18 10:49

文化属性666 发表于 2024-3-18 10:12
针对表格的VBA比较少，真的很实用，谢谢

谢谢支持

1013182120 · 发表于 2024-3-21 11:58

小白一枚，第一步要怎么做，不会啊，出个小教程指导下呗。

vistababy · 发表于 2024-3-22 12:19

1013182120 发表于 2024-3-21 11:58
小白一枚，第一步要怎么做，不会啊，出个小教程指导下呗。

打开文件，按Alt+F11查看VBA代码，复制所有代码，点左上角的normal，打开至模块，新建模块，模块1，粘贴所有代码，光标定位到 “sub 单元格右键菜单增加项目”，按F5运行一下，或工具栏--视图---宏--查看宏，运行一下：单元格右键菜单增加项目，就能在所有word表格中使用了。
最基本的操作就这样了，自己百度一下也行

1013182120 · 发表于 2024-3-22 17:06

vistababy 发表于 2024-3-22 12:19
打开文件，按Alt+F11查看VBA代码，复制所有代码，点左上角的normal，打开至模块，新建模块，模块1，粘贴 ...

已添加，谢谢指导

fangmin723 · 发表于 2024-4-13 12:04

感谢大佬，分享，很实用！

rrxfw · 发表于 2024-4-15 11:22

谢谢分享，强大

rrxfw · 发表于 2024-4-15 14:16

谢谢大佬分享

		自动登录	找回密码
密码			免费注册

[原创] VBA实现Word中表格右键菜单快速添加序号、单元格加乘法计算，好像Excel一样快？

评分