セル内の特定文字に対してマクロ実行したい

質問

セル内の特定文字（対象の文字はマウスで選定）に対しフォント変更のマクロを設定したいのですが方法はありましでしょうか？、マクロの内容は１）Ｐ明朝をＰゴシック且つ強調文字に変更、２）その逆の２種類のマクロをつくりたいのですが・・・・セル全体のマクロは出来るのですが、対象文字を選定するとマクロの作成が出来なくなります。使用ソフトはｗｉｎｄｏｗｓＸＰと2000です。エクセルのマクロはツールバーから新規マクロ作成で自動的に作る程度しか出来ません。よろしくお願いします。

回答No.2

imogasi

（１）シートにボタンを１つ貼りつけます。
（２）ボタンをダブルクリックして出てくる、VBE画面には
Private Sub CommandButton1_Click()
End Sub
が出てきます。
（３）下記の第2行目以下最後の行を除きコピーし、中間に貼りつけて、下記になるようにしてください。
Private Sub CommandButton1_Click()
Selection.ClearFormats
s = InputBox("第何文字目から、何文字")
p = Split(s, ",")
With Selection.Characters(p(0), p(1)).Font
.ColorIndex = 3
.Name = "HGSゴシックE"
.FontStyle = "エクストラボールド"
End With
End Sub
（４）操作
セルを選ぶ。
コマンドボタンをクリック。
セルの文字列の第何文字目から何文字フォントを変える
かを、3,3エンタのように入力
3文字目から3文字フォントが変ります。
文字色は質問に無いですが赤にしました。
書体もマクロの記録を取って、コピーして正確に貼りつけてください。スペースが半角であったりとミスが出やすいですから。
（５）InputBox文要求は無いに越したことは無いですが、数式バー上でしか文字列の一部を捉え（指定する）られず、捉えたStart,LengthはエクセルVBAでは変数に捉えられないと思います。
それで不本意ながら中途半端ですが、これが出来る回答が
出れば、私も勉強します。
APIなど使えば可能かなと思いますが、範囲を越えます。