- ベストアンサー
Excel２００２でのカタカナ変換について
Excel２００２でセルに入っているひらがなをカタカナに変換する方法はありますか教えてください
- オフィス系ソフト
- 回答数3
- ありがとう数0
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
ひらがなしか入ってない場合は =PHONETIC(A1) これでひらがなになってしまう場合は 書式→ふりがな→設定で変更可能です。 漢字とひらがなが混じっているセルなら http://www.okweb.ne.jp/kotaeru.php3?q=585950&rev=1 をご参考に。 #1でアタシがとんちん回答をしてるのは無視してあげてください。かわいそうですから。
その他の回答 (2)
- arukamun
- ベストアンサー率35% (842/2394)
こんにちは ひらがな意外にも漢字などが混じっていて、マクロを使わずにワークシート関数だけでとなると、結構大変かもしれませんが、文字数が限定されているのであれば、どうにか出来ます。 =IF(AND(CODE(MID(A1,1,1))>=CODE("ぁ"),CODE(MID(A1,1,1))<=CODE("ん")),CHAR(CODE(MID(A1,1,1))+256),MID(A1,1,1)) を基本に &IF(AND(CODE(MID(A1,2,1))>=CODE("ぁ"),CODE(MID(A1,2,1))<=CODE("ん")),CHAR(CODE(MID(A1,2,1))+256),MID(A1,2,1)) &IF(AND(CODE(MID(A1,3,1))>=CODE("ぁ"),CODE(MID(A1,3,1))<=CODE("ん")),CHAR(CODE(MID(A1,3,1))+256),MID(A1,3,1)) と４個のMID関数の第２パラメータの数を増やしたものを連結すれば、出来ることは出来るという一例です。 まあ、マクロの方が簡単ですが・・・。
- imogasi
- ベストアンサー率27% (4737/17069)
ツール－マクロ－ＶＢＥ 挿入－標準モジュール 下記を貼りつける。 Function ToKatakana(a) ToKatakana = StrConv(a, vbKatakana) End Function ToKatakana（２箇所）はなんとでも名付けてＯＫ。 Ａ列にひらがな交じり文があるとして Ｂ１に=Tokatakana(A1)と入れて、下方向へ複写。 歩きましょう 困難に打ち勝って バイクに乗ろう （例文）が 歩キマショウ 困難ニ打チ勝ッテ バイクニ乗ロウ となりました。
