Excel VBAについて質問します｡ｾﾙ内の文章が部分的に太字になっており､そういったｾﾙが大量にあります｡この状態で､ｾﾙ内の太字部分のみを赤い文字に変更したいで…

人力検索はてな

ﾓﾊﾞｲﾙ版を表示しています｡PC版はこちら

Excel VBAについて質問します｡

ｾﾙ内の文章が部分的に太字になっており､そういったｾﾙが大量にあります｡
この状態で､ｾﾙ内の太字部分のみを赤い文字に変更したいです｡

置換処理が､どのような記述になるかご教示ください｡

●質問者: mutamutamuta
●ｶﾃｺﾞﾘ:ｺﾝﾋﾟｭｰﾀ
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

▽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入門：ｾﾙのﾌｫﾝﾄ･塗りつぶし･罫線を設定する
http://www.eurus.dti.ne.jp/yoneyama/Excel/vba/vba_font.html

mutamutamutaさんのｺﾒﾝﾄ
ありがとうございます､試してみますね｡とても助かりました｡ちなみに･･もうひとつ気になった事が＾＾；ご回答のｻﾝﾌﾟﾙ部分のようなｴﾃﾞｨﾀ画面調のHTML表示は､ご使用のｴﾃﾞｨﾀの出力ｵﾌﾟｼｮﾝ機能なのでしょうか？わかりやすいです｡

cx20さんのｺﾒﾝﾄ
ｻﾝﾌﾟﾙｺｰﾄﾞの色付けは｢はてな記法｣の｢ｼﾝﾀｯｸｽ･ﾊｲﾗｲﾄ｣という機能を使っています｡使い方は以下をご覧ください｡ >> ■ 入力したﾌﾟﾛｸﾞﾗﾑｺｰﾄﾞを色付けするｽｰﾊﾟｰpre記法ｼﾝﾀｯｸｽ･ﾊｲﾗｲﾄの実装について - はてなﾀﾞｲｱﾘｰ日記 http://d.hatena.ne.jp/hatenadiary/20061215/1166155734 <<

mutamutamutaさんのｺﾒﾝﾄ
なるほど､はてなの機能なんですね｡先ほどのｻﾝﾌﾟﾙｺｰﾄﾞ､試したところ完璧です｡ありがとうございました｡