ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 2779|回复: 37

[求助] 修改需求:快速统计和标注单元格2种颜色red 或者Black(忽略标点符号和数字)

[复制链接]

TA的精华主题

TA的得分主题

发表于 2023-2-25 13:30 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 qlmgu 于 2023-2-26 15:43 编辑

各位老师,为了统计文本性质极其数量,我需要统计单元格内的字体是黑色还是红色,遇到混合色程序可以不去判断,留空即可,不需要统计字色数量。

已经有这里的老师、微.软论.坛热心人士帮忙设计了多个程序,本人非常感谢帮助我的专业人员:他们的程序测试结果很准确。但是遇到文本字数比较多(每个单元格最多可以有500字,4-5千条数据)时,程序运行要花几十分钟甚至更长时间。已经检索过多篇帖子的方案,都无法解决时间长的难题。今天偶然看到10多年前香川群子老师写的一个程序,可以在很短时间内完成字体颜色数量的统计(与我的需求不同的是:统计结果未填入表格),心中又燃起希望,所以再次来请教各位老师,能否帮我解决这个难题。感谢各位老师。
判断字体颜色.png
判断字体颜色忽略标点数字.rar (17.24 KB, 下载次数: 13)


下图的结果也可以


不判断混合色也可以.png





TA的精华主题

TA的得分主题

发表于 2023-2-25 20:00 | 显示全部楼层
需要频繁读取range中字符的颜色,时间很难压缩

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-2-25 20:20 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
smiletwo 发表于 2023-2-25 20:00
需要频繁读取range中字符的颜色,时间很难压缩

感谢smiletwo老师指教,我一直在用您的程序。原来我也是这样想,只是看到香川群子老师的程序可以秒杀出结果,所以又来请教了。

TA的精华主题

TA的得分主题

发表于 2023-2-25 21:14 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 smiletwo 于 2023-2-25 21:17 编辑

image.jpg

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-2-25 21:21 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 qlmgu 于 2023-2-25 21:22 编辑

感谢smiletwo老师出手相助。我尽快测试程序,已经看到您的程序对颜色的判断是我希望的结果。

TA的精华主题

TA的得分主题

发表于 2023-2-25 21:27 | 显示全部楼层
                  

判断字体颜色忽略标点数字.rar

16.19 KB, 下载次数: 10

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-2-25 22:07 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 qlmgu 于 2023-2-25 22:31 编辑

回复smiletwo老师:测试结果对颜色的判断完全正确。就是换成较长文本,3千多条记录后,时间确实很长。看来我的这个思路不太客观,要改了。再次感谢您的帮助。如果您有空,我想问问,用我附件里香川群子老师的程序,有否可能返回具体行的颜色?

TA的精华主题

TA的得分主题

发表于 2023-2-25 23:24 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
qlmgu 发表于 2023-2-25 22:07
回复smiletwo老师:测试结果对颜色的判断完全正确。就是换成较长文本,3千多条记录后,时间确实很长。看 ...

附件的代码,是对单元格整体字体颜色的判断,不是单个字符

TA的精华主题

TA的得分主题

发表于 2023-2-26 08:36 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 wanghan519 于 2023-2-26 09:01 编辑

解析xml的思路行不通,删掉了。。。

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-2-26 09:02 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
wanghan519 发表于 2023-2-26 08:36
只能提供个思路,具体操作试了一下,好麻烦。。。

感谢wanghan519老师的指导。至于模拟文件里的颜色问题,是我临时制作文件的原因吧。也是以香川群子老师的程序能够识别颜色作为例子,真实文件里的颜色是vba匹配关键词产生的。我的需求就是区别和标注黑色,黑色和两种颜色都有三种情况。序号是方便我核对数据的,和表格序号差一个数,是从第二行开始。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-18 22:50 , Processed in 0.036629 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表