ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[求助] 向前辈们求一个“查找文档中不成对的符号标为红色”的宏

[复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2015-11-8 16:00 | 显示全部楼层
413191246se 发表于 2015-11-8 13:21
139:你这段话,我不太明白。我建议——在数组中不要放空格,像黑圈1后面带四种空格或,.,。我已经用宏解 ...

师傅好!
在数组中放空格,是因我整理的资料中,有很多很多这种现象,我想把它整理好,您用宏帮我解决了像黑圈1后面带四种空格或,.,。但我还有很多很多其它形式的标题编号后面也带有四种空格或,.,。必需用手动处理,我求助看似像黑圈1后面带四种空格或,.,。手动处理方法,我是想得到一个类似的公式,以后放什么形式的标题编号,自己可随意添加。

TA的精华主题

TA的得分主题

发表于 2015-11-8 17:30 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
13907933959 发表于 2015-11-8 13:07
版主前辈好!
啊、是这样,那能否劳请版主前辈考虑全角标点符号,再给一个。

使用全角标点是特意而为?如果不是,我觉得可以先把所有全角标点统一转换为半角,这样一来这个问题就不是问题了。

TA的精华主题

TA的得分主题

 楼主| 发表于 2015-11-8 18:39 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
kqbt 发表于 2015-11-8 17:30
使用全角标点是特意而为?如果不是,我觉得可以先把所有全角标点统一转换为半角,这样一来这个问题就不是 ...

版主前辈好!
使用全角标点是特意而为,因我整理的绝大部分是中医资料。

TA的精华主题

TA的得分主题

发表于 2015-11-8 22:25 | 显示全部楼层
针对“附件5”重新调整了一下代码,除了增加部分全角标点,把跨段落匹配视为不成对。

TA的精华主题

TA的得分主题

 楼主| 发表于 2015-11-9 07:05 | 显示全部楼层
kqbt 发表于 2015-11-8 22:25
针对“附件5”重新调整了一下代码,除了增加部分全角标点,把跨段落匹配视为不成对。

版主前辈好!
我在附件5例文上试了一下,好象查找的标点符号还是有遗漏的现象。

TA的精华主题

TA的得分主题

发表于 2015-11-9 08:45 | 显示全部楼层
本帖最后由 kqbt 于 2015-11-9 08:51 编辑
13907933959 发表于 2015-11-9 07:05
版主前辈好!
我在附件5例文上试了一下,好象查找的标点符号还是有遗漏的现象。

直接上传代码有时没有反应,有时被拦截,不知何故?以附件形式上传看看:
标注不成对标点.rar (12.91 KB, 下载次数: 16)

TA的精华主题

TA的得分主题

 楼主| 发表于 2015-11-9 09:51 | 显示全部楼层
kqbt 发表于 2015-11-9 08:45
直接上传代码有时没有反应,有时被拦截,不知何故?以附件形式上传看看:

版主前辈好!

我在我的附件5例文和您的附件上试了,查找不成对的标点符号准确无误,感谢版主前辈为了晚辈这个外行提出的问题多次回复,由于本人完全是个外行,又迫不得以的帮我中医师傅整理6个多G的文字资料,遇到的问题非常多,所以经常到论坛上求助,先后得到过多位前辈们的帮忙,413191246se 前辈这半年时间我几乎天天纠缠他,他总是和您一样有问必答,我实在是不好意思这样天天纠缠他,可遇到问题凭自己的水平解决不了,不得不厚着脸皮继续缠着他,有时自己都觉得烦,可他总和以前一样,这点真让我感动!
好了不说了,感谢版主前辈,希望以后能继续得到您的帮助!谢谢!

另外、我今天上传代码也是被拦截,也不知何故?

TA的精华主题

TA的得分主题

 楼主| 发表于 2015-11-9 16:02 | 显示全部楼层
kqbt 发表于 2015-11-9 08:45
直接上传代码有时没有反应,有时被拦截,不知何故?以附件形式上传看看:

版主前辈好!
想劳请版主前辈再把26楼附件里的,标注不成对标点符号宏,编一个循环遍历文件夹的宏,在里面标注不成对标点符号突出显示鲜绿色,再增加一种单纯的红色(不是突出显示)2个颜色可任意屏蔽掉一个。(26楼附件里的,标注不成对标点符号宏,也增加一种单纯的红色(不是突出显示)2个颜色可任意屏蔽掉一个)这样就更方便。

TA的精华主题

TA的得分主题

发表于 2015-11-9 20:18 | 显示全部楼层
13907933959 发表于 2015-11-9 16:02
版主前辈好!
想劳请版主前辈再把26楼附件里的,标注不成对标点符号宏,编一个循环遍历文件夹的宏,在里 ...

是不是这个意思:突出显示鲜绿 或 显示红色  可自行选择其一?

TA的精华主题

TA的得分主题

 楼主| 发表于 2015-11-10 09:53 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
kqbt 发表于 2015-11-9 20:18
是不是这个意思:突出显示鲜绿 或 显示红色  可自行选择其一?

版主前辈好!
原来您是把里面不成对标点符号标注为突出显示鲜绿色,很醒目,但在修改的过程中要多一个步骤完成,我想求您再增加一种单纯的红色(不是突出显示),就是把里面不成对标点符号直接标为红色,这2个颜色可任意用上逗号屏蔽掉一个,用突出显示也可,用单纯的红色也可。
另外、昨天忘记了,可否有办法把里面查找到不成对标点符号显示出共有多少个?如能就更好了。有劳版主前辈了!

不知怎么会事,今天论坛的网页又很难点进去。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-11-24 16:16 , Processed in 0.034104 second(s), 8 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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