[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『入力セルは半角』(診療)
A3からd190までのセルは必ず全角ではなく半角に変えたいです。
もし全角で入力した際に自動的に半角する方法ございますか?
< 使用 Excel:Excel2013、使用 OS:Windows8 >
>診療 さん データ入力規則で、できます。 (1)A3からd190までのセルを選択 (2)データtabの「データ入力規則」を押す (3)データ入力規則の日本語入力tabにある 日本語入力を「半角英数字」にして、OKボタンを押す。 (マリオ) 2017/02/08(水) 19:20
とりあえず、半角にできるものだけ半角とし、漢字のような半角がないものはそのままにするマクロ例なぞ。
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にある 日本語入力を「半角英数字」にして、OKボタンを押す。
この方法では、ボタン1つで全角入力モードに変更出来てしまいます。 必ずに反してるので使えないですね。
入力の種類を、ユーザー設定にして、数式欄に以下の式を入力します。 数式無駄に長かった、以下で良かったです(修正20:16) =ASC(A2)=A2&"" これで半角入力できる文字や数字は半角のみ、 ひらがなや漢字などの全角のみの文字は全角で入力できるようになります。
半角英数のみで良いなら、日本語入力を「使用不可」にすれば、キー操作での入力モード変更も受け付けないです。 但し半角カタカナや・ひらがな・漢字・数式など、本当に半角英数以外は一切入力できなくなります。
別セル表示で良いなら、=ASC(A1)とするだけです。
(sy) 2017/02/08(水) 20:08
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.