『入力セルは半角』（診療）

A3からd190までのセルは必ず全角ではなく半角に変えたいです。
もし全角で入力した際に自動的に半角する方法ございますか？



＜ 使用 Excel：Excel2013、使用 OS：Windows8 ＞
----
 >診療 さん
 データ入力規則で、できます。
 (1)A3からd190までのセルを選択
 (2)データtabの「データ入力規則」を押す
 (3)データ入力規則の日本語入力tabにある
    日本語入力を「半角英数字」にして、ＯＫﾎﾞﾀﾝを押す。
（マリオ） 2017/02/08(水) 19:20
----
半角とは、英数記号カナのうち、どれを指していますか？　全部？
また、半角にできるもの以外は、全角のままにする必要がありますか？ それとも、全角入力は一切できなくてOK？

とりあえず、半角にできるものだけ半角とし、漢字のような半角がないものはそのままにするマクロ例なぞ。

 Private Sub Worksheet_Change(ByVal Target As Range)
    Dim R As Range

    If 4 < Target.Column Then Exit Sub

    Application.EnableEvents = False
    For Each R In Target
        If 1 <= R.Column And R.Column <= 4 Then
            R.Value = StrConv(R.Value, vbNarrow)
        End If
    Next R
    Application.EnableEvents = True
 End Sub
（???） 2017/02/08(水) 19:34
----
 (3)データ入力規則の日本語入力tabにある
    日本語入力を「半角英数字」にして、ＯＫﾎﾞﾀﾝを押す。

 この方法では、ボタン１つで全角入力モードに変更出来てしまいます。
 必ずに反してるので使えないですね。

 入力の種類を、ユーザー設定にして、数式欄に以下の式を入力します。
 数式無駄に長かった、以下で良かったです(修正20:16)
 =ASC(A2)=A2&""
 これで半角入力できる文字や数字は半角のみ、
 ひらがなや漢字などの全角のみの文字は全角で入力できるようになります。

 半角英数のみで良いなら、日本語入力を「使用不可」にすれば、キー操作での入力モード変更も受け付けないです。
 但し半角カタカナや・ひらがな・漢字・数式など、本当に半角英数以外は一切入力できなくなります。

 別セル表示で良いなら、=ASC(A1)とするだけです。

（sy） 2017/02/08(水) 20:08