セル内の文章が部分的に太字になっており、そういったセルが大量にあります。
この状態で、セル内の太字部分のみを赤い文字に変更したいです。
置換処理が、どのような記述になるかご教示ください。
ベタな方法ですが、セルのフォントスタイルを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入門:セルのフォント・塗りつぶし・罫線を設定する
サンプルコードの色付けは「はてな記法」の「シンタックス・ハイライト」という機能を使っています。使い方は以下をご覧ください。
2011/11/06 16:05:03なるほど、はてなの機能なんですね。
先ほどのサンプルコード、試したところ完璧です。ありがとうございました。
2011/11/06 16:13:35