Excel VBA格式化不一致的文本字符串似乎是一个巨大的挑战,因此我正在寻找一种解决方案来格式化下表:
该表可能包含必须手动检查的大行行,因此使其具有尽可能高的可读性很重要。不幸的是,列C包含一个非常长且混乱的文本字符串,该字符串不一致,并且不能更改,因为它是从另一个系统导入的。
因此,我想执行以下操作:
我做过一些研究,并在以下地方找到了部分答案:
...我通过使用代码获得:
Columns("C").Select
Selection.FormatConditions.Add Type:=xlTextString, String:="the_good_indicator", _
TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16752384
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ColorIndex = 43
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions.Add Type:=xlTextString, String:="00111222333", _
TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16752384
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13561798
.TintAndShade = 0
End With
我将感谢您对如何为此类不一致的文本字符串设置格式的任何帮助或想法。