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ベストアンサー
- 回答日時:
If文を以下のように修正するのはどうでしょう
If 値 Like "[*]" Then
セル.Characters(Start:=文字の位置, Length:=1).Font.Superscript = True
End If
Excel2003ではうまくいきました。
アスタリスクは特別な意味を持っている記号です。
以下をご参照ください。
http://www7.plala.or.jp/imajo/ke/samp/help/Like. …
参考URL:http://www7.plala.or.jp/imajo/ke/samp/help/Like. …
…その手がありましたね。
なぜ気付かなかったんでしょう^^;
解決できました。
ありがとうございました。
P.S.
Office環境を書いてなくてすみませんでした。
Office2007でもうまくいきました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
あるあるbotに投稿したけど採用されなかったあるある募集
あるあるbotに投稿したけど採用されなかったあるあるをこちらに投稿してください
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
Word2000で*(アスタリスク)が上付きになってしまう
Word(ワード)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
(Excel)数字記入セルの数値の後...
-
貼り付けで複数セルに貼り付けたい
-
【エクセル】IF関数 Aまたは...
-
セルをクリック⇒そのセルに入力...
-
エクセルのセルの枠を超えて文...
-
Excelで数式内の文字色を一部だ...
-
エクセルで指定したセルのどれ...
-
Excel 例A(1+9) のように番地の...
-
Excelでのコメント表示位置
-
【Excel】 セルの色での判断は...
-
Excelでセルの上下にはみ出る文...
-
エクセル オートフィルタで絞...
-
Excelで住所を2つ(町名迄と番...
-
対象セル内(複数)が埋まった...
-
エクセルで縦に1112223...
-
Excel2003 の『コメント』の編...
-
エクセルでオブジェクトを常に...
-
エクセルvba (ByVal Targ...
-
エクセルの一つのセルに複数の...
-
エクセルでセルにユーザー名を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
貼り付けで複数セルに貼り付けたい
-
【エクセル】IF関数 Aまたは...
-
Excelで数式内の文字色を一部だ...
-
エクセルで指定したセルのどれ...
-
(Excel)数字記入セルの数値の後...
-
枠に収まらない文字を非表示に...
-
セルをクリック⇒そのセルに入力...
-
Excelでのコメント表示位置
-
対象セル内(複数)が埋まった...
-
【Excel】 セルの色での判断は...
-
エクセル オートフィルタで絞...
-
エクセル “13ヶ月”を“1年1ヶ月...
-
Excel 例A(1+9) のように番地の...
-
エクセルのセルの枠を超えて文...
-
エクセル 足して割る
-
excelの特定のセルの隣のセル指...
-
エクセルの一つのセルに複数の...
-
Excel for Mac使用中ポインタが...
-
エクセルで住所と建物名を分け...
-
EXCEL VBA セルに既に入...
おすすめ情報