ひらがな⇔カタカナの変換
「ひらがな」を「カタカナ」に、「カタカナ」を「ひらがな」に変換する方法の説明です。
ひらがな→カタカナ変換
B1セルに、
=PHONETIC(A1)
これで、「カタカナ」で表示されたと思います。
B1セルに、
=ASC(PHONETIC(A1))
これで、「ﾆｯﾎﾟﾝ ﾀﾛｳ」と表示されます。
カタカナ→ひらがな変換
まず、「ふりがなの設定」を変更します。
2007以降なら、「ホーム」タブ→フォントグループ右下の「亜(ア)」のアイコン
2003なら、「書式」→「ふりがな」→「設定」
B2セルに、
=PHONETIC(A2)
これで、「ひらがな」で表示されたと思います。
PHONETIC関数の問題点
例えばA3セルに、「東京ハ首都デス」と入っている場合、
B3セルに
=PHONETIC(A3)
これは
「とうきょうはしゅとです」
と表示されてしまいます。
漢字もセルに「ふりがな」データがあれば「ひらがな」もしくは「カタカナ」で表示されてしまいます。
これは都合が悪いです。（これで良いと言う場合もあると思いますが）
できたら、「東京は首都です」と表示したいですね。
例えば、他ソフトで入力した文字の場合は漢字のままになります。
これを利用すれば、漢字を除いて変換できそうです。
漢字は変換しない方法
C3セルに
=A3 & ""
と入力します。
（元の文字列のままになればどんな関数でも良いです。）
C3セルをコピーし、同じC3セルに値の貼り付けをします。
そして、B3セルに
=PHONETIC(C3)
これで、正しく「東京は首都です」と表示されたと思います。
ただ、他ソフトを起動するより少し早く、貼り付け等の操作が簡単だということです。
注意．
そこで、関数だけでできないものかという要望になります。
漢字は変換しない方法・・・関数だけでやる方法
A3セルに、「東京ハ首都デス」と入っているとして、
B3セルに、
IF((CODE(MID(A3,ROW(OFFSET($A$1,0,0,LEN(A3),1)),1))>=9505)*
(CODE(MID(A3,ROW(OFFSET($A$1,0,0,LEN(A3),1)),1))<=9587),256,0)))
{=数式}というように、{}で数式がかこまれて入力されます。
こちらの先生が私のツイートを受けて作成されたものにもう少し手を加えたものです。
配列数式は非常に難しく、この詳細を解説しているととても長くなってしまいますので、ここでは省略します。
あくまで、こんなこともできますよ、ということで見てもらえれば結構です。
やはり、以下のマクロで処理するのが最も良いと思います。
関数の場合は、数式を入れて変換内容を確認後に値貼り付けしておく必要があります。
やはりマクロ(VBA)で
たびたび、このような変換が必要な場合は、やはりマクロを使用して下さい。
マクロが使える人には説明が不要な気もしますが、
StrConv(テキストデータ, vbHiragana) 'ひらがな変換
StrConv(テキストデータ, vbKatakana) 'カタカナ変換
これだけでできます。
変換したいセル範囲をループさせれば直ぐに完成です。
Sub Kana2Hiragana()
Dim myRange As Range
For Each myRange In Range("A2:A10")
myRange.Offset(, 1).Value = StrConv(myRange.Value, vbHiragana)
Next
End Sub
A2～A10セルの「カタカナ」を「ひらがな」に変換しています。
同じテーマ「エクセル基本操作」の記事
日付、時刻に関するあれこれ（「元年」表記追加）
数値の書式あれこれ
関数入力のショートカット
ひらがな⇔カタカナの変換
セルの表示形式のショートカット
可視セルのみコピーする（非表示の行・列を除く）
日付表示の桁位置を揃える
覚えておきたいエクセルの操作：Enter編
覚えておきたいエクセルの操作：入力・編集
覚えておきたいエクセルの操作：ジャンプ
覚えておきたいエクセルの操作：数式のコピー
新着記事NEW ・・・新着記事一覧を見る
ツイッターで出されたVBAのお題をやってみた｜エクセル雑感（1月13日）
イベントプロシージャーの共通化（Enter,Exit）｜ユーザーフォーム入門（1月13日）
Rangeオブジェクトの論理演算（差集合と排他的論理和）｜VBA技術解説（1月10日）
イベントプロシージャーの共通化｜ユーザーフォーム入門（1月7日）
コントロールの動的作成｜ユーザーフォーム入門（1月6日）
Evaluateメソッド（文字列の数式を実行します）｜VBA技術解説（1月5日）
エクスポート（PDF/XPS）｜VBA入門（1月2日）
分析関数（OVER句,WINDOW句）｜SQL入門（12月25日）
取得行数を限定するLIMIT句｜SQL入門（12月21日）
外部ライブラリ（ActiveXオブジェクト）｜VBA入門（12月21日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
4.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
5.変数宣言のDimとデータ型｜VBA入門
6.繰り返し処理（For Next)｜VBA入門
7.マクロって何？VBAって何？｜VBA入門
8.セルに文字を入れるとは（Range,Value）｜VBA入門
9.空白セルを正しく判定する方法（IsEmpty,IsError,HasFormula）｜VBA技術解説
10.ひらがな⇔カタカナの変換｜エクセル基本操作
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。