EXCEL セル内の一部文字色を太字にしたい。

EXCEL2003を使用しています。
アンケートの集計を行っています。
C・D・E列にコメントが入力されています。
その列それぞれのセル内の一部が、赤・青・緑と色分けされているので、その色の付いた文字を太字に変えたいのですが、どうしたらいいのでしょうか？
使用している色は、黒・赤・青・緑です。
VBAで変えられそうですが、全くわかりませんので、ご回答の程、どうぞよろしくお願いいたします。
また、色の数値の出し方も併せて教えてください。

No.5 ベストアンサー 回答者： bonaron 回答日時： 2008/12/09 17:30

No4 の訂正です

> ? Activecell.Font.ColorIndex

? Activecell.Font.Color
に修正してください。

この回答へのお礼

この度は、大変お手数をお掛けし、また、お礼がとっても遅くなりまして、大変申し訳ありませんでした。（言い訳になってしまいますが、不幸があり。。）
おかけさまで、解決することができました。
何度もご回答をいただき、どうもありがとうございました。

お礼日時：2009/01/13 18:47

No.4 回答者： bonaron 回答日時： 2008/12/09 17:16

> ただ、緑字が太字になりませんが、どこをかえればいいのでしょうか？

緑と言ってもいろいろありますからね。
別の緑色だったのでしょう。
まず、その色のコードを調べましょう。
緑の含まれるセル1個を別のシートなり、ブックなりにコピーして、
緑の文字以外をすべて削除してください。
そのセルに移動しておき
イミディエイトウィンドウで
? Activecell.Font.ColorIndex
を実行してください。

>　　Case vbRed, vbBlue, vbGreen

この行の vbGreen を
上記で表示された数字で置き換えます。
　　　Case vbRed, vbBlue, 50
のように。

No.3 回答者： bonaron 回答日時： 2008/12/09 00:15

太字にしたいセルを選択しておいて実行してください。

または、 Selection.Cells の部分を適当に変更してください。
Sub test1()
　　Dim rng As Range
　　Dim i As Integer
　　For Each rng In Selection.Cells
　　　　For i = 1 To rng.Characters.Count
　　　　　　With rng.Characters(i, 1).Font
　　　　　　　　Select Case .Color
　　　　　　　　　　Case vbRed, vbBlue, vbGreen
　　　　　　　　　　　　.FontStyle = "太字"
　　　　　　　　　　Case Else
　　　　　　　　End Select
　　　　　　End With
　　　　Next
　　Next
End Sub

色の出し方は
セルを適当な色で塗りつぶし
イミディエイトウィンドウで
? Activecell.Interior.ColorIndex
? Activecell.Interior.Color
を、それぞれ実行してみてください。

この回答への補足

ご回答いただき、どうもありがとうございます。
おかげさまで、赤・青字は太字になりました。
ただ、緑字が太字になりませんが、どこをかえればいいのでしょうか？
度々申し訳ありませんが、よろしくお願い致します。

補足日時：2008/12/09 13:25

No.2 回答者： kona4Q 回答日時： 2008/12/08 21:37

太字にしたいセルを選択→ツールバーの「B」を押します。

色の数値→数値の設定は無い？のではと。
色を、やや変更したいセル選択→書式→セル→フォントタブ→色の矢印→色を選択→ＯＫ。
または、書式→セル→パターンタブ→パターン矢印→網を選択→ＯＫ。

この回答へのお礼

不幸があり、お礼がとっても遅くなりまして、大変申し訳ありませんでした。（言い訳になってしまいますが。。）
ご回答いただき、どうもありがとうございました。

お礼日時：2009/01/13 18:45

No.1 回答者： nayuta_lot 回答日時： 2008/12/08 20:18

こんにちは、

セル内の"色のついた部分を選択"すれば、フォントを太文字にすれば
できますよ。

この回答へのお礼

不幸があり、お礼がとっても遅くなりまして、大変申し訳ありませんでした。（言い訳になってしまいますが。。）
ご回答いただき、どうもありがとうございました。

お礼日時：2009/01/13 18:45