【Excel】 *を上付き文字にするマクロ

質問

Excelで統計の図表を作成する際、
P値に付随する、その有意性を表す*（アスタリスク）を上付き文字に設定することが頻繁にあるのですが、面倒で困っています。

マクロで組みたいのですが、
LIKE演算子で*を設定する方法はどうすればいいのでしょうか？
チルダを使用した"~*"でも無理だったのですが、方法があれば教えてください。

よろしくお願いします。

※以下に現在暫定的に使用している、"数値"、"."、"-"以外の文字を上付きに設定するマクロを書いておきます。

Sub 数字のみ上付き設定()
Dim セル As Range
Dim 値 As String
Dim 文字の位置 As Integer
For Each セル In Selection
For 文字の位置 = 1 To Len(セル.Value)
値 = Mid(セル, 文字の位置, 1)
If 値 Like "[0-9]" <> True And 値 Like "." <> True And 値 Like "-" <> True Then
セル.Characters(Start:=文字の位置, Length:=1).Font.Superscript = True
End If
Next 文字の位置
Next セル
End Sub

回答No.1

yukika-37 · ベストアンサー

If文を以下のように修正するのはどうでしょう

If 値 Like "[*]" Then
セル.Characters(Start:=文字の位置, Length:=1).Font.Superscript = True
End If

Excel2003ではうまくいきました。

アスタリスクは特別な意味を持っている記号です。
以下をご参照ください。
http://www7.plala.or.jp/imajo/ke/samp/help/Like.htm

参考URL：

http://www7.plala.or.jp/imajo/ke/samp/help/Like.htm

お礼

…その手がありましたね。
なぜ気付かなかったんでしょう^^;

解決できました。
ありがとうございました。

P.S.
Office環境を書いてなくてすみませんでした。
Office2007でもうまくいきました。