2019年5月7日 / 最終更新日時 : 2019年11月8日 mouri49 Excel VBA

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.
Twitter のプロフィールFacebook のプロフィールMy Instagram profile

mouri49

代表 ： 義経ITクラブ
大阪生まれの大阪育ち。システム開発系、パソコン教室運営管理、パソコンサポートの仕事を中心に10年以上IT業界に生息しているけれども、実はHTMLやCSSが苦手。 パソコン教室やパソコンサポートなどでお客様から「ありがとうございます。」という感謝の言葉をいただいたときにやりがいを感じる。もっと自分のITのスキルで人様のお役に立ちたいと考え、義経ITクラブを開業して日々を送る。

ホンマルラジオ大阪スタジオプロデューサー森山義章のホンマル☆ラジLive♬（配信中）

この番組では

IT起業家・著者・ITインストラクター・WEB集客コンサルタント・システムエンジニア・プロデューサーとしてマルチに活躍し続ける、

書籍は出版後24時間以内でAmazon言語学の参考図書部門第1位獲得、

Amazon女性と仕事 (Kindleストア)部門第1位獲得のベストセラー著者、Podcast配信後わずか3日以内に教育ハウツー部門でランキング第1位獲得（日本）、

1ヶ月以内にたった7つのブログ記事でGoogle検索順位1位を獲得したWEB集客専門家、

出品後半年以内でココナラITサポートおすすめ順第1位獲得のITコンサルタント、

30歳を過ぎてADHD・高機能自閉症と診断されたITプロデューサー・森山義章が人間関係、健康、お金、仕事、ビジネスなど望む結果を出せる思考行動へと変えていきます。
番組の視聴はこちら
カテゴリー
Excel VBA、ブログ

コメントを残す

メールアドレスが公開されることはありません。 ※ が付いている欄は必須項目です

CAPTCHA