变色

xing_chen

老师！我欲对运行代码的按钮进行颜色调节，就是：未点击前是一种颜色，点击运行后则按钮变为另种颜色。cidanji老师的代码虽好，但发现一个按钮我不能控制2个代码，敬请老师赐教。谢谢！
代码运行按钮彩色设计
https://club.excelhome.net/thread-1666137-1-1.html
(出处: ExcelHome技术论坛)

xing_chen

老师！审核完了吗

xing_chen

真漫长呀！

xing_chen

Shapes(Application.Caller).Fill.ForeColor.RGB = RGB(Rnd * 255, Rnd * 255, Rnd * 255)。此代码的颜色太多了，怎么设置2中颜色？敬请赐教

xing_chen

xing_chen 发表于 2023-6-30 15:43
真漫长呀！

RGB(Rnd * 255, Rnd * 255, Rnd * 255)怎么修改为2色

fanyoulin

改变颜色不难，问题你这种改变颜色有何意义？

xing_chen

fanyoulin 发表于 2023-6-30 16:38
改变颜色不难，问题你这种改变颜色有何意义？

谢谢老师！可以上传附件给我吗?

xing_chen

fanyoulin 发表于 2023-6-30 16:38
改变颜色不难，问题你这种改变颜色有何意义？

老师！我的意图是想将你的按钮变色代码和按钮的代码与其他的过程运行代码合并到1个代码中，即运行了过程后，则按钮变色，提示自己此代码已运行过了，不要重复。因为按钮太多，自己手头工作一旦暂停，再继续的时候往往会忘记到那一步了，经常是重新开始。但我的这想法不知道是否可行，或是否有其它办法替代。敬请老师赐教。

fanyoulin

xing_chen 发表于 2023-6-30 23:05
老师！我的意图是想将你的按钮变色代码和按钮的代码与其他的过程运行代码合并到1个代码中，即运行了过程 ...

这想法不合适，因为按钮通常是可以重复执行的，按钮不论是执行计算还是合并数据，总是要定期执行的，你这次运行设定了颜色，那下次再运行又该如何呢？
一般来说，一次性的代码是应该可以重复执行的，比如定期统计之类；如果流程比较长，需要分割成几个步骤分别执行的，那执行的次序要明显分开，执行的结果还需要返回一些关键标志，比如财务月结，在没有记账之前是无法月结的，而记账的前提则需要全部通过审核等等，这样就不会出现前后颠倒的情况；有了这些设定，按钮设定颜色是毫无必要的；

xing_chen

fanyoulin 发表于 2023-7-1 00:32
这想法不合适，因为按钮通常是可以重复执行的，按钮不论是执行计算还是合并数据，总是要定期执行的，你这 ...

谢谢老师的指导！早上好！针对老师的问题，我是这样想的：
1.我每次在运行本工作簿的全部代码后，再一次性将按钮的颜色统一设置回初始设置的颜色。
2.代码若不小心重复执行后，所生成的结果不是我当初要的结果，数据或乱或代码运行出错。VBA不能像excel中有撤回按钮回到上一步。
3我就是因为流程比较长，为便于理解，才将每个步骤都划分的细，导致代码太多。这样的后果是，过程中不可被人为打断，另1个原因是记忆力也差了，往往是脑子一分心做到哪里会忘记。
所以，我想通过按钮的颜色变化告诉自己代码运行到哪里了。