作者：绿色风
分类：
时间：2022-08-18
浏览：274
楼主
天南地北 |
Q：如何分段设置身份证号码显示颜色？
 QQ截图20140412173400.png
A：可以使用如下方法实现
方法一：VBA操作（简单高效）
- Sub 身份证号码分段格式设置()
- Dim rng As Range, rng2 As Range
- On Error Resume Next
- Set rng = Application.InputBox("请选择身份证号码分段格式设置的区域", "请选择", , , , , , 8)
- If rng Is Nothing Then Exit Sub
- For Each rng2 In rng
- rng2.Font.ColorIndex = 3
- rng2.Characters(7, 4).Font.ColorIndex = 4
- rng2.Characters(15).Font.ColorIndex = 4
- Next rng2
- End Sub
Characters设置文本字符串格式，具体用法参考附件
 QQ截图20140412174931.png
方法二：使用网页脚本操作（对于超过15位的数值稍微略微复杂）在B2中输入
- ="<table><FONT COLOR=RED>'"&LEFT(A2,6)&"</FONT><FONT COLOR=GREEN>"&MID(A2,7,4)&"</FONT><FONT COLOR=RED>"&MID(A2,11,4)&"</FONT><FONT COLOR=GREEN>"&RIGHT(A2,4)&"</FONT>"
下拉至B5，然后通过复制粘贴为数值后借助剪贴板实现，请看动画
 设置文字颜色.gif
PS:貌似那个单撇不好去除，可以使用其他不可见特殊字符代替
还可以使用WORD查找替换操作，貌似也要做特殊处理，即强制文本标识付
方法三：WORD查找替换
第一步： 查找内容: ([0-9]{6})([0-9]{4})([0-9]{4})([0-9]{4}) 替换为:'\1(\2)\3(\4)
 第一步.png
第二步： 查找内容:\((*)\) 替换为:^&
 第二步.png
|
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一