[[20080227155334]]　『セルの入力設定』（teru）　ページの最後に飛ぶ

『セルの入力設定』（teru）
セルの入力をカタカナで固定するにはどうしたらよいでしょうか？？

 入力規則の日本語入力？
 カタカナ全般でなく全角、半角で分かれるようですが。
 BJ

日本語入力半角､全角両方教えて欲しいです。すみません・

 全角カタカナにしても、半角カタカナや英数字は入力できてしまいますね。
 他はこれといった方法が思いつきません、というか解りません。
 すみません。
 BJ

 入力規則の数式自体に長い式を入れる方法もあるようですが
 ここではD,E列にリストを用意してvlookupを利用します。D,E列は一つの例です。

 	D	E
 1	ア	ｱ
 2	イ	ｲ
 3	ウ	ｳ
 4	エ	ｴ
 5	オ	ｵ
 6	カ	ｶ
 7	キ	ｷ
 8	ク	ｸ

 以下、ワヲン まで用意し、濁音や長音も必要ならそれらも用意。

 入力規則を設定する範囲を選択して（例えばA1:A10）
 データメニューから[入力規則]→[設定]タブ　で
 入力値の種類：ユーザー設定
 数式の欄に： =A1=VLOOKUP(A1,$D$1:$D$46,1,0)
                            ↑vlookupの範囲は全角カタカナのリストの範囲に適宜修正
 OKボタン。この時「数式はエラーと判断されます。続けますか？」
 と出るので「はい」を選択。
 もう一度[入力規則]から[エラーメッセージ]タブ で「タイトル」や「エラーメッセージ」を設定。
 [日本語入力]タブ で「全角カタカナ」選択して OK

 半角カタカナも別列に同様手順で設定しvlookupの範囲を修正。
 [エラーメッセージ]以下も半角用に設定。
 全角、半角を分けないのならリストを一列にまとめる。
 この場合、[日本語入力]タブでの設定は全角、半角２つ同時の設定はできないようです。
 あいうえお...等のひらがなもリストを用意すれば同じように出来ると思います。

 入力規則はあまり使わないし、簡単に試しただけですが、
 とりあえずこれで規則設定出来るようです。

 どっかで不具合が出たらスミマセン。    （jun53）

 やはりダメなようです。一文字入力に限定されるようです。
 他の方の回答をお待ちください。ごめんなさい。    （jun53）

 実用的でないかもしれまへんが、こんな方法はあります。
 全角カタカナのばやいです。
 ＼Sheet1／（そのシートのですヨ）シートタブを右クリック→コードの表示→下の
 コードをコピペ
 戻ってA列に何か入力してみてくらはい。(A列限定になってます）
 　　　　　　（弥太郎）
 '-----------------------------
 Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column <> 1 Then Exit Sub
    With CreateObject("vbscript.regexp")
        .Pattern = "^[ア-ンーァヴ]+$"　’訂正
        If Not .test(Target) Then
            Application.EnableEvents = False
            MsgBox "全角カナしか入力でけまへん"
            Target = ""
            Target.Select
            Application.EnableEvents = True
            Exit Sub
        End If
    End With
 End Sub

 あっ、ラーメンが・・・＾＾
 ていせぇ、ていせぇ（汗
   　　　　（弥太郎）

 ついでに半角カナのみの分も。
 両方OKのばやいは、[　の中に両方を書き込みます。
 注意すべきは同じシートでチェンジイベントは一シート一つに限られます。
 　　　　（弥太郎）
 '-----------------------
 Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column <> 1 Then Exit Sub
    With CreateObject("vbscript.regexp")
        .Pattern = "^[ｱ-ﾝﾞﾟｰｧ-ｮｯ]+$"
        If Not .test(Target) Then
            Application.EnableEvents = False
            MsgBox "半角カナしか入力でけまへん"
            Target = ""
            Target.Select
            Application.EnableEvents = True
            Exit Sub
        End If
    End With
 End Sub

 .Pattern = "^[ア-ンーァ]+$
 としないと全角カナの小文字のアが入らないのは私だけでしょうか？
 ィ～ォは入るのに。。。
 （dack）

 dackはん、検証おおきに～＾＾。
 ほんまでんなぁ。ほかにも不具合があるかもしれまへん。（汗
 もちょっと試してみますワ。
    　　　　（弥太郎）

 出てきた出てきた。
 ヴァージニアのヴがヒットしまへん。
 追加しときまっさ。
   　　（弥太郎）

 横から失礼
 シート全体を反転させて
 「データ」「入力規則」「日本語入力」から「全角カタカナ」を指定したあとに
 「ツール」「保護」「シートの保護」等で保護してしまえば
 他人が打つときには全角カタカナになりそうですが
 こんな単純では駄目？
 （やまもと）
 追記：すいません。「ツール」以下は忘れてください。<m(__)m>勘違いです
 さらに追記：上の方にちゃんと記述がありましたね。読み飛ばしてしまいました。失礼しました

コメント返信：

[ 一覧(最新更新順) ]

[[20080227155334]] 『セルの入力設定』（teru） ページの最後に飛ぶ

[[20080227155334]]　『セルの入力設定』（teru）　ページの最後に飛ぶ