こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

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

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

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

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

投稿日時 - 2019-05-24 16:56:48

QNo.9619642

困ってます

質問者が選んだベストアンサー

簡単にですが
「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 '再試行」の前に'を追加すれば、スペースを禁止ではなく削除にできます。

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

投稿日時 - 2019-05-24 18:00:08

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問