0

エクセル２０００でインデントを解除するマクロを書こうとしていますが、なかなか成功しません。ご存知の方がいらっしゃいましたら、ご教示ください。 具体的には、A1～F１５のセルのどこかに“◆りんご”という言葉が入ります。
ワークシートは３つあり、基本入力のシート・変換シート・帳票シートで、基本入力シートに入力したものをコピーし、変換シートに貼り付けます。帳票シートには =変換!A1 のような計算式が入っていて、変換シートをそのまま複写するような形になっています。
A1～F１５の各セルには左インデント１の設定をしていて、左が一字分下がって表示されるようにしています。
“◆りんご”はその時々によってA1～F１５のどこに入ってくるか判りません。
この言葉が入ったときに、ゴシック体にし、なおかつインデント設定を解除するマクロを実行したいと思っています。

以下のようなマクロを書いてみましたが、ゴシック体への変換はうまくいくのですが、どうしてもインデントの解除ができません。
どのように組めば良いでしょうか？
どうぞよろしくお願い致します。


Sheets("帳票").Activate
Range("A33").Select

With Selection.Font
.Name = "ＭＳ ゴシック"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With



For Each c In Range("A1:F15")
p = InStr(c, "◆りんご")
If p > 0 Then
c.Characters(Start:=p, Length:=4).Font.Name = ActiveCell.Font.Name


With Application.ReplaceFormat
.HorizontalAlignment = xlLeft
.AddIndent = False
.IndentLevel = 0
End With

End If

Next

End Sub

質問者が選んだベストソリューション

Yahoo!知恵袋 5125日前