VBAでセル内の指定した文字を太字にしたい

例）　a　を太字にしたい。
　　A　　
1　abcd
2　abad
3　cbda
4　bcad

エクセルVBAで、セル内の指定文字を一括で太字にしたいのですが、可能でしょうか？
例ですと　a　を太字にしたいのですが　a　の位置は決まっておりません。
位置が指定できれば可能ですが、指定できない場合はどのようにすればよろしいでしょうか？

どなたかご存知の方、ご教授願います。

No.1 ベストアンサー 回答者： marbin 回答日時： 2009/01/28 12:41

↓と全く同じ方法でいけると思います。

http://security.okwave.jp/qa4667858.html?ans_cou …

この回答への補足

全てのセルを変換する方法がどうしてもわかりません・・

補足日時：2009/01/28 14:44

No.5 回答者： hige_082 回答日時： 2009/01/30 01:01

まずは「禁止事項」の「丸投げ・依頼」をよく読むこと

自分ができること、出来た所までは提示しないと
いけないみたいですよ
と、言うことで、サンプルです

選択したセルと、一つ下のセルが処理対象です
上記のような理由から、指定文字(a)を太字にするのではなく、色付けてみました

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2009/1/30 ユーザー名 :
'

'
Dim i, ii As Integer
For i = 0 To 2
For ii = 1 To 4
If ActiveCell.Offset(i).Characters(Start:=ii, Length:=1).Caption = "a" Then
With ActiveCell.Offset(i).Characters(Start:=ii, Length:=1).Font
.Name = "ＭＳ Ｐゴシック"
.FontStyle = "標準"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 3
End With
End If
Next ii
Next i
End Sub

セルの中の文字を1文字づつ指定、比較、書式の変更
繰り返し処理、セルの移動と、質問者さんのやりたい事は
すべて含まれています（太字にするコードも含まれていますよ）
基本のコードは、マクロの記録で作成しました
マクロの記録は覚えた方が良いです

以上、解らないことはヘルプを見てください
アレンジもご自分でお願いします

この回答への補足

申し訳ございません。
For Each In～Next　の中の構文を毎日考えておりました。
もう一度やってみます！

補足日時：2009/01/30 08:52

No.4 回答者： marbin 回答日時： 2009/01/28 15:44

リンク先の

For Each In～Next
を使います。

No.3 回答者： marbin 回答日時： 2009/01/28 15:21

参考になると思います。

http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/v …

この回答への補足

アクティブせるを移動させていけばよいのでしょうか？？

補足日時：2009/01/28 15:26

No.2 回答者： marbin 回答日時： 2009/01/28 12:42

この同時多発ぶりを見ると課題か何かかな？