【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
お礼
有難うございました。 これで負担が少なくなります!