任意checkbox的更改触发程序运行

kymg_ynxy · 发表于 2019-1-18 12:40

工作表中B列有很多checkbox，要根据checkbox的值的改变，决定在相对应行的C列写入A列的值，不想写很多checkbox click的小程序，想写一个任何checkbox click都可以触发的程序，并根据是哪个checkbox click做出判断，在相对应的行进行操作。请问该怎么写？

huang1314wei · 发表于 2019-1-18 12:44

用类模块来写

chis3 · 发表于 2019-1-18 12:45

上傳文件吧

kymg_ynxy · 发表于 2019-1-18 16:10

chis3 发表于 2019-1-18 12:45
上傳文件吧

试过上传附件，一直出错，上传不成功。

chis3 · 发表于 2019-1-18 19:36

kymg_ynxy 发表于 2019-1-18 16:10
试过上传附件，一直出错，上传不成功。

是不是你想要的效果

kymg_ynxy · 发表于 2019-1-20 19:25

chis3 发表于 2019-1-18 19:36
是不是你想要的效果

看代码貌似是我想要的效果，但我钩选checkbox之后好像没有什么反应啊？

chis3 · 发表于 2019-1-20 19:36

要運行一次
或你把代碼加到 activate 吧
每次頁激活就行

kymg_ynxy · 发表于 2019-1-20 19:49

本帖最后由 kymg_ynxy 于 2019-1-20 19:57 编辑

chis3 发表于 2019-1-20 19:36
要運行一次
或你把代碼加到 activate 吧
每次頁激活就行

刚试了一下，先运行一次按钮14里面的代码就可以了，是我想要的效果。但我把代码复制到我自己的工作簿里就不行了，总是在以下语句提示user-defined type not defined.

Public WithEvents cb As MSForms.CheckBox

kymg_ynxy · 发表于 2019-1-20 21:11

chis3 发表于 2019-1-20 19:36
要運行一次
或你把代碼加到 activate 吧
每次頁激活就行

好神奇哦，我把我的文件内容复制到你上传的附件里，代码怎么改都没事。但我把代码复制到我的文件里，为啥就不行咧？
还没学会，请高手点拔下！

chis3 · 发表于 2019-1-20 21:47

kymg_ynxy 发表于 2019-1-20 21:11
好神奇哦，我把我的文件内容复制到你上传的附件里，代码怎么改都没事。但我把代码复制到我的文件里，为啥 ...

你把類模塊都複製了嗎

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

[求助] 任意checkbox的更改触发程序运行