エクセルで全角ひらがなを半角カタカナにするには？

質問

エクセルで全角ひらがなの「あいうえお」を半角カタカナの「アイウエオ」に変換するには，数式をどうすればよいですか？

回答No.3

HERO TKS（@HERO_TKS） · ベストアンサー

=ASC(PHONETIC(A1))
ではだめでしょうか^^

お礼

早速のアドバイスありがとうございました。できました！！

回答No.4

zap35

セルに入力されているのがひらがなだけなら、PHONETIC関数でカタカナにできます

「あいうえお」と入力されたセルを選択して「書式」→「ふりがな」→「設定」でふりがなの種類を「半角カナ」にしておき、適当なセルに
　=PHONETIC(A1)
の関数を入力します（A1のところは「あいうえお」のセルアドレスにする）

すると結果が半角の「アイウエオ」になります
でもこの方法だと「えくせる演習」のように漢字混在のセルだと「（半角の）エクセルエンシュウ」になってしまいます。これを「（半角）エクセル演習」としたいならユーザ定義関数を使用するのが良いでしょう。

以下のマクロをALT＋F11でVBE画面を開き、「VBAProjectエクスプローラのシート名右クリック」→「挿入」→「標準モジュール」で表示される画面にペーストして下さい。シート画面に戻って式として
　=HtoK(セルアドレス)　　
と入力します。

Function HtoK(ByVal target As Range) As String
HtoK = StrConv(target.Value, vbKatakana + vbNarrow)
End Function

お礼

早速のアドバイスありがとうございました。できました。さらに詳細なアドバイスも大変ありがとうございました。

回答No.2

gouyaman75

私は、F8　を使用します。F7は全角カタカナです。

お礼

早速のアドバイスありがとうございました。

回答No.1

noname#77845

一応、セルA1に該当文字（1文字）が入っているとして
=IF(AND(CODE(A1)>=9250,CODE(A1)<=9331),ASC(CHAR(CODE(A1)+256)),A1)
とすると、半角カナにはなります。
複数文字については、考えていません。

お礼

早速のアドバイスありがとうございました。でもこの関数むずかしそうで，よくわかりませんでした。ごめんなさい。