エクセル－ひらがなから半角カナへ

フリガナの話ではないよね。それだと、ややこしくなるのではっきりさせておいて。 ユーザー関数を作らないと出来ないでしょう。通常エクセル関数はない。 ＶＢＥの標準モジュールに Function kata(a) Application.Volatile (True) kata = StrConv(a, vbKatakana) End Function ーーーー Ｂ列Ｂ２に　=ASC(kata(A2)) 下方向に式を複写 Ａ列　　　Ｂ列 ひらがな 半角カタカナ おおさか オオサカ きむら キムラ おはようございます オハヨウゴザイマス

A1セルに「ひらがな」が入力されているとき、まず「書式」→「ふりがな」→「設定」で「半角カナ」を選択します 任意のセルに 　=PHONETIC(A1) で半角カナの「フリカ゛ナ」になりませんか

セルに入力済みのひらがなをPHONETICで全角カタカナに変換し、さらにASCで半角カタカナになりました。 A1　にほんご B1　=PHONETIC(A1)　　　→ニホンゴ C1　=ACS(B1)　　　　　　→ニホンゴ（半角カタカナ） となりました。 ちなみにPHONETICはフリガナを返す関数のようで、A1に入ってるのが漢字でもフリガナが返ってきます。 で、この組み合わせ技で A1　にほんご B1　=ACS(PHONETIC(A1)) とやってみたんですが、何故かブランクが返ってきましたので、2段階で変換するのが確実かと。

[イミディエイト] ? Katakana("ひらがな", 0) ヒラガナ　<----------------全角カタカナ ? Katakana("ひらがな", 1) ヒラガナ　　<----------------半角カタカナ ? Katakana("ひらがな") ヒラガナ　　<----------------半角カタカナ １、エクセルのシートタグを右クリックして[コードの表示]をクリック。 ２、メニューの[挿入]-[標準モジュール]をクリック。 ３、次の Katakana関数コピペ。 Public Function Katakana(ByVal strText As String, Optional isHankaku As Boolean = True) As String 　　Katakana = StrConv(StrConv(strText, 18), 16 - 8 * isHankaku) End Function これで、 A1=ひらがな A2=ヒラガナ <----- =Katakana(A1) とKatakana関数が使えるようになります。

関数ではなくて、入力規則の設定ではないでしょうか？ 入力規則の設定であれば、 データ　→　入力規則　→　日本語入力　で、 全角（半角）カタカナを選択すればできると思います。 これを使う場面として多いのは・・・ 振り仮名などでデータを入力していくのに、いちいち変換しなくてもすませたい・・というような使い方でしょうか？ 設定したいセルが多い場合でも、設定したいセルをすべて選択し、一括で指定できますので、便利です＾＾ お役に立てれば幸いです・・・ がんばってください♪＾＾

方法なら。。。(関数はわかりません) Ｆ８キーを押せば半角カタカナになります。