小女子求助:条件格式颜色计数VBA(已更新问题)

yoursister

wzsy2_mrf 发表于 2019-3-15 16:38
能不用格式颜色的地方坚决不用，只在需要醒目提示的地方如特殊报表等根据需要用一下即可。这样文件大小及数 ...

跪谢大神指教

yoursister

jiangxiaoyun 发表于 2019-3-15 16:35
你这样处理，块不了的。因为要读取条件格式的颜色，就必然要使用单元格，改用数组输出数据，也快不了那里 ...

可否只计算其中部分列：第I列至第EY列，其余的列都不用计算。
可否麻烦大神再优化一下代码。。。
拜谢大神！

yoursister

jiangxiaoyun 发表于 2019-3-15 08:21
函数统计颜色是不行的。

超级感谢大神的神代码！

小妹我稍微改写了一下您的代码，已经用在我的6000行乘150列的XLSM工作表里了，而且运行无误，差不多每1秒钟可以算出1行的“积分值”，大约【两小时】能够把这6000行的每行“积分值”算出来。

但是遇到了另一个问题：我明天都要在现有基础上新增加大约100行的数据，同时每天会对现有的部分列的条件格式颜色做一些微调，会导致每天晚上要按那个按钮多次，结果是每天晚上都要熬夜等多次【两小时】。。。

因此，有个愿望：能不能在现有代码里加一个“只重算B列中选区”那部分的积分值。例如：我选取B50:B99作为选区，按那个按钮的效果是只重算B50:B99的积分值，而B列中的其他行都不用重算，这样应该能大大节约无效计算时间。。。

跪求大神再次出手相助。。。

jiangxiaoyun

将你现在的sheet复制一个，当作数据库。
然后原来的sheet当作数据录入，每天计算运行100行。
计算好后再复制到数据库就可以了。
搞那么复杂干嘛。

yoursister

jiangxiaoyun 发表于 2019-3-16 15:21
将你现在的sheet复制一个，当作数据库。
然后原来的sheet当作数据录入，每天计算运行100行。
计算好后再 ...

好注意！
另外，我优化了一下，5000行算积分现在只要20秒钟了，哈哈哈
跪谢大神