ExcelTip.Net留存知识帖 ---【注:附件之前被网盘供应商清空后,现已修复-现已修复-现已修复为本地下载!】
现在位置:首页 > 我的酷贴 > 综合应用 > 如何分段设置身份证号码显示颜色

如何分段设置身份证号码显示颜色

作者:绿色风 分类: 时间:2022-08-18 浏览:274
楼主
天南地北
Q:如何分段设置身份证号码显示颜色?


QQ截图20140412173400.png  


A:可以使用如下方法实现
方法一:VBA操作(简单高效)
  1. Sub 身份证号码分段格式设置()
  2.     Dim rng As Range, rng2 As Range
  3.         On Error Resume Next
  4.         Set rng = Application.InputBox("请选择身份证号码分段格式设置的区域", "请选择", , , , , , 8)
  5.         If rng Is Nothing Then Exit Sub
  6.         For Each rng2 In rng
  7.             rng2.Font.ColorIndex = 3
  8.             rng2.Characters(7, 4).Font.ColorIndex = 4
  9.             rng2.Characters(15).Font.ColorIndex = 4
  10.         Next rng2
  11. End Sub

Characters设置文本字符串格式,具体用法参考附件

QQ截图20140412174931.png  

方法二:使用网页脚本操作(对于超过15位的数值稍微略微复杂)在B2中输入
  1. ="<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总版主之一

评论列表
sitemap