VBAサンプル集
ユーザー定義関数でフリガナを取得する(GetPhonetic)

ExcelマクロVBAの実用サンプル、エクセルVBA集と解説
公開日:2013年5月以前 最終更新日:2020-08-26

ユーザー定義関数でフリガナを取得する(GetPhonetic)


ワークシート関数の、「PHONETIC」では、
他のソフト等からコピペした漢字は取得できません。


そこで、VBAでユーザー定義関数を作成し、読みを取得できるようにします。

Excel VBA 解説


A列はメモ帳よりコピペしました。


B列に、ユーザー定義関数を指定して、振り仮名を取得しています。

C列は、B列の数式の内容です。

以下が、ユーザー定義関数になります。
Function GetPhonetic(セル As Range, _
            Optional ByVal 変換 As Integer = 8, _
            Optional ByVal 全て As Boolean = False)
  Dim strPhonetic As String
  GetPhonetic = StrConv(Application.GetPhonetic(セル), 変換)
  strPhonetic = GetPhonetic
  If 全て = True Then
    Do Until strPhonetic = ""
      strPhonetic = StrConv(Application.GetPhonetic(), 変換)
      If strPhonetic <> "" Then
        GetPhonetic = GetPhonetic & " ; " & strPhonetic
      End If
    Loop
  End If
End Function


標準モジュールに作成して下さい。


説明

Application.GetPhonetic(文字列)
これで文字列に対する、読み仮名を取得します。

Application.GetPhonetic()
のように、文字列を省略すると、次の読み候補が取得されます。
読み候補がなくなると、""が返されます。

StrConv(文字列, 変換方法)
文字列を変換方法で変換します。
変換方法には以下が指定可能です。

1(vbUpperCase):大文字に変換
2(vbLowerCase):小文字に変換
3(vbProperCase):各単語の先頭の文字を大文字に変換します。
4(vbWide):半角文字を全角文字に変換
8(vbNarrow):全角文字を半角文字に変換
16(vbKatakana):ひらがなをカタカナに変換
32(vbHiragana):カタカナをひらがなに変換
64(vbUnicode):Unicodeに変換
128(vbFromUnicode):Unicodeからシステムの既定のコードページに変換

ここでは、普通に考えて、8,16,32、くらいになるでしょう。

Optional ByVal
省略可能な引数になります。
省略した場合は、=の後の値を使用します。

第3引数に、Trueを指定した場合は、全ての読みを、" ; "で結合して表示しています。

全角カナで、読み候補も先頭のみなら

Function GetPhonetic(セル As Range)
  GetPhonetic = Application.GetPhonetic(セル)
End Function


このだけでOKです。


少しVBAが解る方は、

Do~Loop等で処理し、値のみをセルに入れた方が、使い勝手は良いと思います。

例えば以下のように。

Sub SetPhonetic()
  Dim i As Integer
  i = 1 '開始行
  Do Until Cells(i, 1) = "" '空白行になるまで
    Cells(i, 2) = Application.GetPhonetic(Cells(i, 1))
    i = i + 1
  Loop
End Sub


いかがでしょうか。


当然のことながら、漢字の正しい読みなど、PCに解ろうはずもありません。

しかし、現在のPCは結構賢いです(笑)

そこそこ、正しく変換してくれます。

しかし、最後は、人間が目で確認することは、絶対に必要です。

ネットからコピーしたデータや、他ソフトで作成したデータ等から、

読みを取得したい場合等に利用すると、結構手間が省けます。

ユーザー定義関数の実践使用例

ユーザー定義関数の作り方
・簡単な例でユーザー定義関数を作ってみましょう ・この関数の使い方 ・ユーザー定義関数の実践使用例

ユーザー定義関数でハイパーリンクのURLを取得(Hyperlink)
ネットから、何らかの一覧をエクセルにコピペすると、文字列や画像等に、リンクの設定がくっついてきます。URLが表記されていれば良いですが、表示されていない事の方が多いでしょう。そこで、VBAでユーザー定義関数を作成し、URLを取得できるようにします。

スピルに対応したXSPLITユーザー定義関数(文字区切り)
・区切り位置ウィザード ・ワークシートの関数で文字区切りする場合 ・ユーザー定義関数のVBAコード ・XSPLIT関数の使用例 ・ユーザー定義関数の実践使用例

スピルと新関数の練習(XLOOKUP関数、LET関数、VBAまで)
・スピルとXLOOKUP関数の練習問題 ・従来の関数+スピルで数式を作る ・ XLOOKUP関数に書き換える ・LET関数に書き換える ・VBAでユーザー定義関数を作成 ・スピルと新関数の練習のまとめ



同じテーマ「マクロVBAサンプル集」の記事

ユーザー定義関数でフリガナを取得する(GetPhonetic)
ユーザー定義関数でハイパーリンクのURLを取得(Hyperlink)

ネットから、何らかの一覧をエクセルにコピペすると、文字列や画像等に、リンクの設定がくっついてきます。URLが表記されていれば良いですが、表示されていない事の方が多いでしょう。そこで、VBAでユーザー定義関数を作成し、URLを取得できるようにします。
カラーのコード取得(256RGB⇔16進変換)
・カラーのコード取得のシートレイアウト ・カラーのコード取得のVBAコード ・カラーのコード取得の解説
時刻になったら音を鳴らして知らせる(OnTime)
・作成するシート ・標準モジュールのVBAコード ・VBAコードの解説 ・ビープ音を変更したい場合 ・時刻になったら音を鳴らして知らせる最後に
指定文字、指定数式でジャンプ機能(Union)
・ジャンプのセル選択以外でセルを選択するには ・指定文字、指定数式でジャンプ機能のVBA ・指定文字、指定数式でジャンプ機能の解説 ・指定文字、指定数式でジャンプ機能の最後に
「値の貼り付け」をショートカットに登録(OnKey)
コピーペーストの質問で、よく目にするのは、値の貼り付けが面倒だというものです。どうも、ショートカットが無いからのようです。ネットを調べて見たのですが、どれもしっくりこないので、作ってみました。いろいろな方法が考えられるのですが、簡単かつ直ぐに使えて、他の人にも配布可能なものが良いと思います。
「セルの結合」をショートカットに登録(OnKey)
「値の貼り付け」をショートカットに登録が好評だったので(本当かな)、その第二弾!セルの結合をショートカットに登録します。作り方は、前回の、「値の貼り付け」をショートカットに登録と同様です。コピーペーストの質問で、よく目にするのは、値の貼り付けが面倒だというものです。
半角カナのみ全角カナに変換する
半角カナのみ全角カナに変換します。ネットを探してみたところ、あるにはあるのですが、どうも中途半端。直ぐに使えて、汎用性のあるプログラムが見つからなかったので、作ってみました。ではプログラムです。PrivateSub半角カナto全角カナ(ByRefobjRangeAsRange)DimstrInAs String'元…
計算式の元となる数値定数を消去する(Precedents)
指定のセルの計算式が参照しているセルの数値定数をクリアします。ただし、参照しているセルが、さらに他のセルを参照している場合は、その先のセルを消去します。つまり、計算式の入っているセルを起点にして、その参照先をすべて検索し、計算式の元となるセル(数値定数が入っているセル)の値をクリアします。
Beep音で音楽(Beep,Sleep)
時々検索されるので、Beep音で音楽を演奏してみましょう。プログラムはほぼAPIをCALLするだけです。まずは、シートです。こんな感じです。ドレミの周波数は結構適当なので、詳しい方は自分で調整して下さい。
日付の検索(配列の使用)
日付の検索は、いろいろと面倒です。Findメソッドで検索する場合、表示書式に左右されますので、表示書式を変更しただけで、検索されなくなります。これは、手作業での検索においても同様になりますが、マクロとしてはいかにも不便です。


新着記事NEW ・・・新着記事一覧を見る

TRIMRANGE関数(セル範囲をトリム:端の空白セルを除外)|エクセル入門(2024-08-30)
正規表現関数(REGEXTEST,REGEXREPLACE,REGEXEXTRACT)|エクセル入門(2024-07-02)
エクセルが起動しない、Excelが立ち上がらない|エクセル雑感(2024-04-11)
ブール型(Boolean)のis変数・フラグについて|VBA技術解説(2024-04-05)
テキストの内容によって図形を削除する|VBA技術解説(2024-04-02)
ExcelマクロVBA入門目次|エクセルの神髄(2024-03-20)
VBA10大躓きポイント(初心者が躓きやすいポイント)|VBA技術解説(2024-03-05)
テンキーのスクリーンキーボード作成|ユーザーフォーム入門(2024-02-26)
無効な前方参照か、コンパイルされていない種類への参照です。|エクセル雑感(2024-02-17)
初級脱出10問パック|VBA練習問題(2024-01-24)


アクセスランキング ・・・ ランキング一覧を見る

1.最終行の取得(End,Rows.Count)|VBA入門
2.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
3.変数宣言のDimとデータ型|VBA入門
4.繰り返し処理(For Next)|VBA入門
5.RangeとCellsの使い方|VBA入門
6.ブックを閉じる・保存(Close,Save,SaveAs)|VBA入門
7.セルのクリア(Clear,ClearContents)|VBA入門
8.条件分岐(Select Case)|VBA入門
9.メッセージボックス(MsgBox関数)|VBA入門
10.マクロとは?VBAとは?VBAでできること|VBA入門




このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。


記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。


このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
本文下部へ