如何给自动加载宏设置快捷键？

cyhwy · 发表于 2024-11-14 08:37

下面两个都不好使

Private Sub Workbook_Open()
Application.OnKey "^{q}", "savetxt"
End Sub
Sub Auto_Open()
Application.OnKey "^{q}", "savetxt"
End Sub

cyhwy · 发表于 2024-11-14 08:37

上面的我放到工作薄里，下面的我放到模块里

大灰狼1976 · 发表于 2024-11-14 09:21

可能的原因：
1、OnKey过程写好后没有执行过；
2、savetxt过程没有写在标准模块里
3、过程名错误

cyhwy · 发表于 2024-11-14 09:58

执行了说参数不可选

大灰狼1976 · 发表于 2024-11-14 14:20

请把savetxt完整代码也发上来，并说明在哪个模块里

cyhwy · 发表于 2024-11-15 11:23

请把savetxt完整代码也发上来，并说明在哪个模块里
放在了标准模块里面

tdpzby · 发表于 2024-11-15 11:40

Private Sub Workbook_Open()
Application.OnKey "^q", "savetxt"
End Sub

这样写就够了

大灰狼1976 · 发表于 2024-11-15 11:54

cyhwy 发表于 2024-11-15 11:23
请把savetxt完整代码也发上来，并说明在哪个模块里
放在了标准模块里面

抱歉，我上班时间不便下载附件。

cyhwy · 发表于 2024-11-16 16:20

tdpzby 发表于 2024-11-15 11:40
Private Sub Workbook_Open()
Application.OnKey "^q", "savetxt"
End Sub

就是这么弄得，本身运行正常，但一旦放在自动加载宏里，就会弹出参数不可选的错误

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