Excelの入力規則について(全角カナ)

Question

エクセルについての質問です。

特定の列について必ず全角カナで入力するように制限したいです。

ただし、全角カナ以外で入力しようとした際にポップアップを出して、
使用者が入力できないように制限するのではなく、
入力した内容が自動的にカナで入力されるように制限したいです。
また、入力後に変換ボタンなどで全角カナ以外の文字列に変換出来ないように制限したいです。
このようなことは可能でしょうか。

例えば、データの入力規則にて
[日本語入力]->[日本語入力]の項目を「オフ(英語モード)」の場合、
日本語は入力すら出来ません。このように、キーボードからの入力で
全角カナのみしか入力できないように出来ないでしょうか。

Answer 1

入力規則で「全角カタカナ」を選べば IME が全角カタカナになります。

IME が全角カタカナモードになっているのにわざわざそれを変更して別のものを入力しようとする天の邪鬼対策は、ポップアップエラーで十分だと思います。

それでも天の邪鬼の入力をカタカナに変換したいのであれば、方法は無いことはありませんが、きちんとしようとするとかなり面倒くさくなるので、どこまで許すかを決める必要があるでしょう。

追記

最後の一文の表現を修正しました。

Answer 2

まずは入力規則の日本語入力を全角カタカナにしましょう。
あとはVBAに以下のコードを追加してください。
これでどれだけ制限できるかはわかりませんが、試してみてください。
If Target.Row = 1 And Target.Column = 1 Then
この行を制御したいセルの位置に修正してください。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row = 1 And Target.Column = 1 Then
        If Target.Phonetics.Count > 0 Then
            Target.Value = Target.Phonetic.Text
        End If
        s = Target.Value
        s = StrConv(s, vbKatakana)
        s = StrConv(s, vbWide)
        Target.Value = s
    End If
End Sub

Comments

[Zuishin]

漢字があった場合は Application.GetPhonetic (https://msdn.microsoft.com/ja-jp/library/office/ff820792.aspx)が使えますね。記号や数字は削除でしょうか。

[ttyp03]

入力した場合ならPhonetic.Textで取れますけど、コピペされるとダメですね。
Application.GetPhoenicを使うことになると思いますけど、IMEからの取得になるので、意図した変換になるかはわからないですよね。
あとは質問者さんの調整で、カタカナに変換しきれなかった文字は削除するなどのコードを追加してもらえればいいかなと思います。

[Zuishin]

そうですね。まず Phonetic.Text を取得し、できなかった場合に Application.GetPhonetic を使うという手順でしょうか。単語が複数入力されていた場合や送り仮名のある場合にはループで処理するということで。

まあどこで妥協するかですね。ttyp03 さんの書かれたように半角とひらがなを処理するくらいが妥当な落としどころかもしれません。

[KTMEI]

ありがとうございます！
こちらのやり方で、半角とひらがなに対して処理できるように出来ました！

尚、ステップ実行で追っていると、無限ループ(処理の中で値を変更しているため、
Changeが呼ばれる続けてしまう)になっているようだったので、
メソッドの始まりと終わりに、以下のコードも追加しました。
Application.EnableEvents = False
　　：--処理--
Application.EnableEvents = True

※VBA初めてなので、「メソッド」という呼び方が正しいのか不明ですが・・・。

助かりました！ありがとうございます！

[ttyp03]

ああ、すみません。
その方法でイベントの連鎖の抑制ができましたね。
逆に参考になりました。

＞※VBA初めてなので、「メソッド」という呼び方が正しいのか不明ですが・・・。
イベントの処理なので、「関数」でしょうかね。
オブジェクト内の関数でしたら「メソッド」になると思います。