Excel Maniacs

平仮名を半角カタカナに（エクセル関数編）

　「平仮名を半角カタカナに」というキーワードでここを訪れる方が

かなりいらっしゃるようだ。

その時はVBAのStrConvを使う方法だったのでVBAを使わない

方法を紹介したい。

（例）A1に「くまぷー」とあるとして、B1に「ｸﾏﾌﾟｰ」と表示させる。

手順

１．B1に=PHONETIC(A1)

２．A1を選択して「書式」「ふりがな」「設定」

３．「ふりがなの設定」ダイアログボックスの「ふりがな」タブから

　　「種類」を「半角カタカナ」にして「OK」

三四郎と違ってエクセルには平仮名-カタカナ変換の関数が無いので

けっこうエクセルに詳しい方でもこの辺りをご存じない方もいらっしゃるようだ。

実はこの盲点を狙って出題したのが「ごじらをばらばらに（エクセル編）」でした。(^^ゞ

ごじらの逆襲

（●｀ε´●）：なんだ、みんな、ごじらをばらばらにするのに

　　　　　　　100文字を越えているのか？！おいらなんか

　　　　　　　たったの22文字だよ！！（￣＾￣）

＊

*

*

*

*

【´･ω･`】:べべちゃん、「ゴジラ」のゴジラと「ゴジラの逆襲」の

　　　　　ゴジラは・・・

ごじらをばらばらに・・・エクセル編【解答例】

問題はこちら

さて、この問題のポイントは、濁点・半濁点を親文字から分離するのですから

親文字である平仮名を如何に半角カタカナに変換するかです。

ところが、エクセルには全角半角変換の関数はあるが

平仮名カタカナ変換の関数が用意されていません。VBAを使うなら

Strconvでも使えばいいんですが、ルールでVBAは禁じ手です。

さて・・・そこでどうするかが頭の使いどころです。

minmaxさんの「地球防衛軍」にも対応していますよ、という言葉・・・

それは、タネは全てお見通しですよ、と言う宣言ですね(^^ゞ

だって「地球防衛軍」という漢字が平仮名に変わるんだもん、フリガナ関数（phonetic）を

使っているのはバレバレですよね・・・(^^ゞ

phoneticによるフリガナはデフォルトで全角カタカナになりますので

これを利用します。

手順（基本的な考え）

１．phoneticで平仮名を全角カタカナに

２．Ascで全角カタカナを半角カタカナに

３．midでばらばらにして１文字ずつ切り出す

４．jisで全角カタカナに

５．codeで文字コードを取り出す

６．文字コードから２５６を減じて全角カタカナのコードから

　　全角平仮名のコードに修正

７．charで全角平仮名のコードを文字に

【解答例】

=IFERROR(CHAR(CODE(JIS(MID(ASC(PHONETIC($A2)),COLUMN()-1,1)))-256),MID(ASC(PHONETIC($A2)),COLUMN()-1,1))

（エクセル２００７　１０４文字）