Excelで英数大文字のみ、スペース禁止

質問

下記質問の回答No.6に関して質問です。
古い話で申し訳ありません。

https://oshiete.goo.ne.jp/qa/270629.html

このマクロの機能に加えて、スペースを禁止（または入っている場合は自動削除）することは可能でしょうか？
現在求めている機能に非常に近く活用したいのですが、あいにくマクロの知識がなく、自分で修正することができません。

以上、お手数お掛けしますがよろしくお願いします。

回答No.1

Mathmi · ベストアンサー

簡単にですが
「Case 97 To 122」を「Case 97 To 122,32」に変更。
これで半角スペース(文字番号32)もエラーチェックの対象になります。
全角スペース(文字番号8481)は、初めからエラー対象に入っています。

'Target = StrConv(moji, vbNarrow + vbUpperCase) '半角大文字にしてしまう
これを
'moji = StrConv(moji, vbNarrow + vbUpperCase) '半角大文字にしてしまう
'Target.Value=replace(moji," ","")'半角スペースを削除
に変更。
これで、全角、半角スペースも全て削除できる準備ができます。
アポストロフィー（'）でコメントアウトされているので、行頭の'を削除し、次の行の「Target.Select '再試行」の前に'を追加すれば、スペースを禁止ではなく削除にできます。

イベントなので、以上のマクロを入力規則マクロを適用したいシートに記述して下さい。