エクセルVBAで簡単に上付き文字を設定

質問

エクセルで数式バーの文字を反転させてボタンをクリックすれば上付き文字になるようなコマンドボタンを作りたいのですが反転文字の認識のさせ方がよくわかりません。VBAで数式バーの反転文字の認識のしかたを教えてください。（エクセル2003を使っています。）設定したい文字が多いため　ctrl+1 alt+b よりもボタンでポチッと設定したいのです。

回答No.2

pkh4989

これですかね。
Sub test()
　　'取消
　　With ActiveCell.Font
　　　　.FontStyle = "標準"
　　　　.Strikethrough = False
　　　　.Superscript = False
　　　　.Subscript = False
　　　　.OutlineFont = False
　　　　.Shadow = False
　　End With

　　'下付き(B)設定
　　ActiveCell.Characters(Start:=5, Length:=5).Font.Superscript = True
　　'
　　For wC = 1 To Len(ActiveCell)
　　　　If ActiveCell.Characters(Start:=wC, Length:=1).Font.Superscript = True Then
　　　　　　MsgBox "下付き(B)"
　　　　End If
　　Next
End Sub

お礼

本当にご回答ありがとうございます。
しかし、少し違います。具体的に質問しなくて申し訳ありません。
例えば
　　　A　　　B　　　C
１　H2O　CO2　Fe2OH3

などたくさんの文字列があり、文字数や上付き、下付きにしたい文字位置が異なる場合、今は”A1”セルの　H2O　の真ん中の　”2”を反転させてctrl+1->alt+b で下付に設定しています。また次に”B１”セルの最後の”2”を選択して同じ操作を繰り返すのですが、この作業をVBAでコマンドボタンやユーザー設定のツールバーなどをつかってセル内の文字を反転させてボタンをポチッて行いたいのです。