質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

90.35%

  • Excel

    1629questions

    Excelは、マイクロソフト社が開発しているデータ集計や分析を行う表計算ソフトの一つです。文書作成や表計算、資料作成などの多彩な機能を備えており、統合パッケージであるMicrosoft Officeに含まれています。

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

解決済

回答 2

投稿

  • 評価
  • クリップ 0
  • VIEW 1,671

KTMEI

score 36

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

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

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

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

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 2

+3

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

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

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

追記

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

投稿

編集

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

checkベストアンサー

+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

投稿

編集

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2017/03/13 11:18 編集

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

    キャンセル

  • 2017/03/13 11:22

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

    キャンセル

  • 2017/03/13 11:43

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

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

    キャンセル

  • 2017/03/13 13:28

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

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

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

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

    キャンセル

  • 2017/03/13 13:34

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

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

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 90.35%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

同じタグがついた質問を見る

  • Excel

    1629questions

    Excelは、マイクロソフト社が開発しているデータ集計や分析を行う表計算ソフトの一つです。文書作成や表計算、資料作成などの多彩な機能を備えており、統合パッケージであるMicrosoft Officeに含まれています。

閲覧数の多いExcelの質問