Excelの半角英数字の入力について

質問

Excelで、あるセル、又は行全体に入力するときに半角、全角の入力にかかわらず、入力したものは必ず半角に変わるようにするにはどうすればいいでしょうか？

また、漢字かつ英数字の混合文字列に対して、英数字だけは、全角で入力しても半角に変えてくれるようにするにはどうすればいいでしょうか？

回答No.1

kazuhiko5681 · ベストアンサー

はじめまして。
次のように操作してみて下さい。
１.新規ブックを開き、ＡＬＴ＋Ｆ１１を押してＶＢＥ(Visual Basic Editor)画面を表示させる。
２.ＶＢＥ画面左上にあるVBAProjectと書かれている下のSheet1にマウスをあわせ、ダブルクリックする。
３.下記のコードをＶＢＥ画面右の白い部分にコピー・ペーストする。

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
Target.Value = StrConv(Target.Value, vbNarrow)
Application.EnableEvents = True

End Sub

４.ＡＬＴ＋Ｆ１１を押し、Sheet1を表示させる。

セルに適当にデータを入力してみて下さい。すべて半角で表示されるはすです。

何か解らないことがありましたら、遠慮なくお知らせ下さい。

お礼

何度もご回答ありがとうございます。
この質問は終了します。
また、よろしくお願いします。