エクセルで乗数部分の書式設定

質問

エクセルで立方メートルm3の3を上付にしたり、化学式の指数部を下付にするのはかなり面倒ですが、マクロでこの作業を簡単にしたいと思っています。ところがマクロを作ること自体が初心者なもので、このサイトで見つけて化学式の方は解決したのですが、それを参考に作ろうにもどこをどーいじっていーものやらさっぱりわからず、中々ビンゴのマクロが作れません。どなたかお力添えを。

回答No.3

nishi6

分かりやすく書いたつもりです。変更したい範囲を選択して実行します。
化学式やこれらのマクロを、ツール→マクロ→マクロ→オプションでショートカットキーに割り当てれば操作性もよくなると思います。

以下は標準モジュールに貼り付けます。ご参考に。

Public Sub m3_Uetuki()
　　Dim rg As Range 'セル
　　Dim L As Integer 'カウンタ
　　Dim Shiki As String '式(文字列)
　　Dim moji As String 'mか？

　　For Each rg In Selection
　　　　Shiki = rg.Text

　　　　For L = 1 To Len(Shiki) - 1 '文字の長さ-1を調べる
　　　　　　Select Case Mid(Shiki, L, 1) '調べる文字
　　　　　　　　Case "m", "ｍ" '半角または全角のm
　　　　　　　　　　Select Case Mid(Shiki, L + 1, 1) '次の文字
　　　　　　　　　　　　Case "3", "３" '半角または全角の3
　　　　　　　　　　　　　　'上付き文字にする
　　　　　　　　　　　　　　rg.Characters(L + 1, 1).Font.Superscript = True
　　　　　　　　　　　　Case Else
　　　　　　　　　　End Select
　　　　　　　　Case Else
　　　　　　End Select
　　　　Next
　　Next
End Sub

お礼

ありがとうございました。
助かりました。