作者：绿色风
分类：
时间：2022-08-18
浏览：212
楼主
liuguansky |
Q：如何将银行卡号的最后六位统一设置成红色字体（银行卡号位数相同）？
6013822000 625 642658
6013822000 625 639599
6013822000 615 842839
6013822000 625 642625
6013822000 624 842391
6013822000 625 642682
6013822000 624 842607
6013822000 624 842417
6013822000 624 842433
6013822000 624 842458
6013822000 624 042701
6013822000 624 842409
A：
罗版代码- Sub 最后6位字符调大字体()
- Application.ScreenUpdating = False
- Dim rng As Range
- For Each rng In Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row)
- rng.Characters(Start:=16, Length:=6).Font.Size = 18
- Next rng
- Application.ScreenUpdating = True
- End Sub
 设置后6位字体大小.rar
|
2楼
douyaya |
第一次知道还有这个功能呀...谢谢..学习了.. |
3楼
200240 |
拷贝了代码，今后就可以直接用了。
不过用word的方法更巧妙
谢谢！ |
4楼
aifre |
为什么**作来操作去还是不行呢，而且第一行的格式总是少一格的。 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一