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

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

No.3 ベストアンサー 回答者： HERO_TKS 回答日時： 2007/05/04 10:35

=ASC(PHONETIC(A1))

ではだめでしょうか^^

この回答へのお礼

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

お礼日時：2007/05/04 11:04

No.4 回答者： zap35 回答日時： 2007/05/04 10:43

セルに入力されているのがひらがなだけなら、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

この回答へのお礼

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

お礼日時：2007/05/04 11:05

No.2 回答者： gouyaman75 回答日時： 2007/05/04 10:19

私は、F8　を使用します。

F7は全角カタカナです。

この回答へのお礼

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

お礼日時：2007/05/04 11:03

No.1 回答者： edomin2004 回答日時： 2007/05/04 10:17

一応、セルA1に該当文字（1文字）が入っているとして

=IF(AND(CODE(A1)>=9250,CODE(A1)<=9331),ASC(CHAR(CODE(A1)+256)),A1)
とすると、半角カナにはなります。
複数文字については、考えていません。

この回答へのお礼

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

お礼日時：2007/05/04 11:02