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

質問

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

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

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

回答No.1

marbin · ベストアンサー

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

http://security.okwave.jp/qa4667858.html?ans_count_asc=20

補足

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

回答No.5

hige_082

まずは「禁止事項」の「丸投げ・依頼」をよく読むこと
自分ができること、出来た所までは提示しないと
いけないみたいですよ
と、言うことで、サンプルです

選択したセルと、一つ下のセルが処理対象です
上記のような理由から、指定文字(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　の中の構文を毎日考えておりました。
もう一度やってみます！

回答No.4

marbin

リンク先の
For Each In～Next
を使います。

回答No.3

marbin

参考になると思います。

http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_for_next.html

補足

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

回答No.2

marbin

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