ExcelVBAでデータに入力情報なしの状態でふりがなを自動で取得する
この記事では当方が実際にご相談いただいた内容をまとめております。
データに入力情報がなく、ふりがなを自動で取得したいという方向けの記事です。
目次
ExcelVBAでデータに入力情報なしの状態でふりがなを自動で取得する方法
「データがコピー貼り付けでふりがな入力情報がない状態でふりがなを自動取得するにはどうすればいいですか？」とご相談いただきました。
データに入力情報がなくふりがなを自動で取得する場合はExcelの機能や関数ではできませんのでExcelVBAを使用します。
ExcelVBAでデータに入力情報なしの状態でふりがなを自動で取得するコードの作成
「開発」タブをクリック
「Visual Basic」をクリック
「数式が入っている空白行と空白行を削除する」コードの入力
ExcelVBAで入力情報なしのふりがなを自動で取得するコードの解説
今回作成するコードのポイントは下記2つです。
- Cells(Rows.Count, 1).End(xlUp).Row で最終行を取得する
- Range(“A1:A” & 最終行).SetPhonetic でふりがなを自動取得する
コードとしてはわずか1行書くだけで作成できます。
※コード作成になれるまでは必ず紙に書き出して考えるようにしましょう！
ボタンにExcelVBAでデータに入力情報なしの状態でふりがなを自動で取得するマクロを登録
手順については「ExcelVBAでブックのシート名を検索して見つかったときにシートをアクティブにさせる方法」の記事の「シート検索ボタンにマクロを登録」を参照ください。
ボタンをクリックしてExcelVBAでデータに入力情報なしの状態でふりがなを自動で取得するコードの実行
「ふりがな自動取得」ボタンをクリック
ふりがなが自動で取得される
※わかりやすくするためにB列にPhonetic関数を使用してふりがなを表示しています。
尚、データに入力情報がない場合はPhonetic関数を使用しても漢字で表示されてしまいます。
結論（まとめ）
「ExcelVBAでデータに入力情報なしの状態でふりがなを自動で取得する方法」を解説しました。
- ExcelVBAでデータに入力情報なしの状態でふりがなを自動で取得するコードの作成
- ボタンにExcelVBAでデータに入力情報なしの状態でふりがなを自動で取得するマクロを登録
- ExcelVBAでデータに入力情報なしの状態でふりがなを自動で取得するコードの実行
The following two tabs change content below.
mouri49
代表取締役 ： デジネスラボ株式会社
100局1,000パーソナリティのリーダーホンマルラジオ本部プロデューサー恵澤舜元（えざわよしゆき）。
代表取締役を務めるデジネスラボ株式会社が1人社長で法人化後わずか2年以内に株式会社IOBI様より大阪市約11万社の中から大阪市を代表する企業100選に選出された。
【選出企業様記事一例】
ミズノ株式会社様（大阪市を代表する企業100選）
株式会社公文教育研究会（KUMON）様（大阪市を代表する企業100選）
パナソニックホールディングス（地域を代表する企業100選）
ホンマルラジオBMS局開局後2年半年以内で斎藤一人さんの弟子宮本真由美さんの『人生がオドロクほどなんとかなる！まゆみのなんとかなる♡ラジオチャンネル！』年間30万回再生を抑えて2週連続30分番組の全国総合ランキング1位を獲得ホンマルラジオ30分番組『みんなのビジネスネタが見つかるBMSラジオ』
ホンマルラジオBMS局開局後わずか5カ月以内で全国1位ホンマルラジオ10分番組『BMSビジネスネタチャンネル』年間10万回再生突破
