如A列輸入身份證號:51010719970308623x
想要得到的效果是623x的顏色為紅色
就是說，當我在A列下一次輸入身份證號碼時，后四位的顏色自動變成我設定的紅色
求大佬幫忙，作業中遇到的問題，感謝
uj5u.com熱心網友回復：
這個，不能吧，恐怕得輸完后用 VBA宏來進行那幾個字符的顏色設定；或者就分開用單獨的單元格來放置這最后是四位。uj5u.com熱心網友回復：
條件格式只能針對單元格設定樣式，不能針對單元格中的部分文字設定樣式uj5u.com熱心網友回復：
只能使用VBA，有時間學下，里面一些簡單的東西還是比較好掌握的uj5u.com熱心網友回復：
建議用mid函式截取出所需的數字后對其進行顏色設定uj5u.com熱心網友回復：
自己錄制一個宏，改改代碼，加個回圈就解決了。Sub ??()
'
' ?? ??
'
' ????? Ctrl+e
'
Range("O18").Select
ActiveCell.FormulaR1C1 = "'123456"
With ActiveCell.Characters(Start:=1, Length:=3).Font
.Name = "Calibri"
.FontStyle = "????
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
With ActiveCell.Characters(Start:=4, Length:=3).Font
.Name = "Calibri"
.FontStyle = "????
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.Color = -4165632
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
Range("O21").Select
End Sub
123456
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/22077.html
上一篇：Word利用宏進行批處理翻譯提示“編譯錯誤：程序太大”
下一篇：有沒有人會黑客攻防的？