如何用VBA添加条件格式并保存

lazybird

老师们帮忙看看，用VBA添加条件格式后退出窗体，再重新打开窗体条件格式就失效了，如何用代码添加条件格式并保存下来呢？
（注：把代码添加到Form load/open不算解决方案哦，我的意思是永久保存）

todaynew

lazybird 发表于 2013-8-28 10:55
获得焦点的话同样要为上百个文本框添加事件，也很麻烦啊。（有快捷的办法么？）
我希望能够在第一次打开窗 ...

用不用Form Load事件都没多大差异。如果用Form Load事件就是在该事件中遍历控件，以使其设置条件格式。如果不用该事件，就是在另外一个窗体上，通过按钮按照设计视图模式打开要设置控件属性的窗体，然后遍历该窗体上的控件，并设置条件格式即可。

admin

条件格式你是否退出时清除了?

lazybird

没有啊，你看我发的附件。

ynjxw

那何必用代码，直接设置就可以。

ynjxw

数据库也存在问题，关闭窗体就发生错误。

lazybird

楼上的 。。。不要离题啊，直接设置，或者反复设置，都是不算解决方案的。 实际中我面临的问题是有上百个文本框（每个条件都是不一样的），一个个手动设置会累死人而且容易出错，打开窗体时加载又会导致窗体打开很慢。

lazybird

没有人解答啊 。。。 管理员能帮忙提高下悬赏吗？  {:soso_e113:}

ynjxw

既然不能写在Form load/open 中就写在成为当前或获得焦点，不然怎么运行写的代码。

lazybird

获得焦点的话同样要为上百个文本框添加事件，也很麻烦啊。（有快捷的办法么？）
我希望能够在第一次打开窗体的时候运行一遍程序把条件格式添加进去并保存下来，这样以后每次打开的时候检查一下添加过了没有，如果添加过了就直接打开窗体，这样就很快。