▽1
●
cx20 ●200ポイント ベストアンサー |
ベタな方法ですが、セルのフォントスタイルを1文字ずつ判断して、太字なら赤字にするという処理で、置換が可能です。
以下は1セルのみ置換するサンプルです。
Sub ChangeFontStyle() Dim myRange Set myRange = ActiveSheet.Range("A1") Dim i ' セルの文字数だけループする For i = 1 To Len(myRange.Value) ' 指定した位置の文字が太字ならば If myRange.Characters(i, 1).Font.Bold Then ' フォントの色を赤色に変更する myRange.Characters(i, 1).Font.ColorIndex = 3 ' 赤 End If Next End Sub
■ Excel(エクセル)VBA入門:セルのフォント・塗りつぶし・罫線を設定する