代码如何在整个工作簿运行

小NN · 发表于 2023-3-11 17:01

本帖最后由小NN 于 2023-3-11 20:05 编辑

有一个代码，只能在sheet中插入，单个sheet中可以运行。

请教：
1.是否可以在Alt+F11打开VBA后全选sheet名称，给每个sheet都插入这个代码？
2.或是直接可以设置整个工作簿都可以执行这个代码？

目前代码在sheet1中，只有sheet1可用，怎么能全选复制到每个sheet可用，或是怎么修改代码使这个工作簿的所有sheet可用。

追风少年丶斌 · 发表于 2023-3-11 19:01

把代码写到类模块里

excel玉米 · 发表于 2023-3-11 19:38

循环工作薄中的每个工作表也行

小NN · 发表于 2023-3-11 22:16

追风少年丶斌发表于 2023-3-11 19:01
把代码写到类模块里

试了，好像不行，上传了压缩包，麻烦看看。

小NN · 发表于 2023-3-11 22:21

excel玉米发表于 2023-3-11 19:38
循环工作薄中的每个工作表也行

请教具体操作方法，上传了压缩包。

zjzyj · 发表于 2023-3-12 00:05

本帖最后由 zjzyj 于 2023-3-12 09:47 编辑

代码放在ThisWorkbook，是Workbook_SheetChange，不是Workbook_Change

追风少年丶斌 · 发表于 2023-3-12 08:42

我今天研究下类模块实现

追风少年丶斌 · 发表于 2023-3-12 10:02

汗颜啊！
回复了这么久，还是不知道如何回复附件。
也或许是我没有权限
难顶啊

【超级会员V5】通过百度网盘分享的文件：单元格修改自动批…
链接:https://pan.baidu.com/s/1SyyqDtkwc0gsdUJ9rpH7pg?pwd=6666
提取码:6666
复制这段内容打开「百度网盘APP 即可获取」

追风少年丶斌 · 发表于 2023-3-13 17:26

咋没声了，我要小花花

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

[求助] 代码如何在整个工作簿运行

评分

评分