エクセルのsetphonetic関数

Question

たとえば「和家 利代」をsetphonetic関数で振り仮名をつけると「ワイエ　リダイ」になりました。正しくは「ワケ　トシヨ」です。「和家」を「ワケ」と読ませるようにできるのでしょうか。

cj_mover · Accepted Answer

こんにちは。お邪魔します。
＃投稿文を書いている間に＃２さんの投稿が追加されていて、
＃ネタ的には被ってしまって恐縮ですが、、、。

とりあえずは、.SetPhonetic メソッドでフリガナを設定してみて、
望んだものと違っているセルを選択してから、下に挙げたのマクロを実行してみて下さい。
次々とフリガナの候補を切り替えていきます。

ボタンに登録しておけば、そこそこの編集効率は達成できるでしょう。

元々のセルのフリガナ表示は小さなフォントなので、見難い場合は
フリガナ編集作業中は、どこか空いているセルに、
ワークシート関数を設定しておくといいでしょう。
例えば、仮にＣ列にフリガナを表示させるなら
'　　With ActiveCell
　　　　With .EntireRow.Cells(1, "C")
　　　　　　If .FormulaLocal = "" Then .FormulaLocal = "=PHONETIC(" & .Address & ")"
　　　　End With
' ・
' ・
' ・
'　　End With
のような要領で、書き加えておいたものを実行して、編集が終ったら、
（手作業や他にボタンを用意して）この数式を消去するような運用で、、、。

今回はボタンを押す度に次のフリガナ候補に切り替えるようにしていますが、
アイディアとしては、フリガナ候補をリスト化して、
CommandBarやListBoxなどに全候補表示されたものから選ぶ、
ということも可能です。
ただ、候補があまり多くなると、却って実用的でなくなりますから、
（ツリー構造などの」）体系的な候補表示が必要になると思います。
今回はそこまで考える余裕もないので、
ＶＢＡでの基本的なフリガナの扱い、を一通り理解して貰えそうな
簡易なものでお応えします。

' ' /// フリガナを設定。実行の度に次の候補にて設定。

Sub Re8768439()
Dim v
Dim sS As String
Dim sD As String

With ActiveCell　'　※　必ず、対象セルをアクティブにしてから実行。
　　　　' ' フリガナを表示する
　　　　If Not .Phonetic.Visible Then .Phonetic.Visible = True

' ' フリガナが設定されているか、判別
　　　　If .Phonetics.Count > 0 Then　'　フリガナが設定されているなら

' ' セルの値（漢字？相当）
　　　　　　v = .Value
　　　　　　' ' 現在設定されているフリガナ　を取得
　　　　　　sS = .Phonetic.Text
　　　　　　' ' 統一する為、スペースを全角で統一
　　　　　　If InStr(sS, " ") Then sS = Replace(sS, " ", "　")

' ' Application.GetPhonetic メソッドで　最初のフリガナ候補　を取得
　　　　　　sD = Application.GetPhonetic(v)
　　　　　　' ' 現在のフリガナ と フリガナ候補 が 一致するまでループ
　　　　　　Do Until sD = sS
　　　　　　　　sD = Application.GetPhonetic()　'　次のフリガナ候補　を取得
　　　　　　Loop
　　　　　　' ' 現在のフリガナ と フリガナ候補 が 一致したら 次のフリガナ候補　を取得
　　　　　　If sS = sD Then sD = Application.GetPhonetic()

If sD = "" Then　'　フリガナ候補 が 空の文字列 なら
　　　　　　　　.Phonetics.Delete　'　フリガナ設定を削除
　　　　　　Else
　　　　　　　　.Phonetic.Text = sD　'　フリガナ候補 を フリガナに設定
　　　　　　End If

Else　'　フリガナが設定されていないなら

.SetPhonetic　'　フリガナを設定（最初のフリガナ候補）
　　　　End If
　　End With
End Sub

WindFaller · Answer

#2の回答者です。

>具体的にはどういう操作をすればいいのでしょうか。

>結果は「キチ」になります。

その変換の閾値は、仮に出したもので、5回にきまっているのではなく、漢字の使用頻度や組み合わせによって変わってくるはずです。「吉」という漢字から導き出される読みが、少ない可能性であればあるほど、その変換の閾値の数字は、高い（可能性が低い)はずです。

私が、以前試したのは、『幸子』の読みの「さちこ」と「ゆきこ」です。
ですが、どちらで読むなどは、漢字からでは判別つきません。

また「和」「家」の両方の漢字が結びつくと、その変換のメカニズムが変わります。

現行の　MS-IME は、中国人の手によっているせいか、名前の変換は弱かったと思います。
いちいち、ユーザー単語登録も限界がありますから、私は、MS-IMEを使うのは辞めてしまいました。

他の方の内容は読んではいませんが、私が書いたのは、規定の読みにない漢字に対して、現実的に、VBAで処理で選択というのはムリがあるのではないか、という話だけです。だから、最後は、マニュアルで処理したほうが早いのではないか、という趣旨なのです。

cj_mover · Answer

＃３-５、ｃｊです。＃５補足欄拝見しました。まず、こちらで事前に動作確認していた内容ですが、詳細を記します。今一度確かめてみましたが、同様の結果、期待した通りの動作、を、こちらの環境では、繰り返し再現しているようです。（ベンチ用プログラムで５つのコンディションを各１万回テスト）以下、準備。 a)　＃３掲載の）[Re8768439c]を標準モジュールに貼り付け。 b)　未編集のセル（ここでは仮にＡ１）に、文字列値 "和家利代" を設定。 c)　同じシート（仮にＢ１あたりに）にフォームコントロールのボタンを配置。 d)　<手順c)>のボタン[マクロの登録][マクロ名]に[Re8768439c]<手順a)>を指定。 e)　セルＡ１を選択。以上、準備。 <手順c)>のボタンを押す度に試行。下記 0 - 27 のようにフリガナが変化。 27 の状態で試行すると、0 に戻る。 0 　　- Empty - 1 　　ワイエトシヨ 2 　　ワイエ　リヨ 3 　　ワケ　トシヨ 4 　　ワケ　リヨ 5 　　ワカ　トシヨ 6 　　カズイエ　トシヨ 7 　　カズヤ　トシヨ 8 　　ワカ　リヨ 9 　　カズイエ　リヨ 10　　カズヤ　リヨ 11　　ワウチ　トシヨ 12　　ワウチ　リヨ 13　　ワイエ　リダイ 14　　ワケ　リダイ 15　　ワヤ　トシヨ 16　　ワヤ　リヨ 17　　カズケ　トシヨ 18　　ワカ　リダイ 19　　カズイエ　リダイ 20　　カズケ　リヨ 21　　カズヤ　リダイ 22　　ワイエ　ミノルヨ 23　　ワイエ　トシダイ 24　　ワイエ　ミノルダイ 25　　ワケ　ミノルヨ 26　　ワケ　トシダイ 27　　ワケ　ミノルダイ 0 　　- Empty - 1 　　ワイエトシヨ ... ※　上記、フリガナ候補のプライオリティーは、｜　ＩＭＥによる[かな漢字変換]を契機とした学習機能によって｜　変動します。また増減することもあります。｜　異なる環境での比較は元より同一環境でも、そこまでの再現性｜　を担保するものではありません。動作仕様と動作確認方法についての説明は以上です。 > 以下質問 > ' ' 次のフリガナ候補　を取得 > 　　　　　　sD = Application.GetPhonetic() ??? > ???の行はいらないのではないでしょうか。変数を調べたところ、これを実行する前と実行した後で変数の値が違っています。 /// １■　GetPhonetic メソッドを引数を指定しながら　コール。　　→フリガナ第一候補を取得　　　　　　sD = Application.GetPhonetic(.Value) ２■　GetPhonetic メソッドを引数を指定せずに　コール。　　→第二,第三,,,のフリガナ候補を取得しながら、　　　現在のフリガナと一致したフリガナ候補に遭遇したら一旦ループを抜ける　　　　　　Do Until sD = sS Or sD = "" 　　　　　　　　sD = Application.GetPhonetic()　'　次のフリガナ候補　を取得　　　　　　Loop ３■　現在のフリガナと一致したフリガナ候補　　　→その次のフリガナ候補を最終的なフリガナとして取得する　　　　　　sD = Application.GetPhonetic() ??? /// うまく伝えられるかわかりませんが、３■を実行しないければ、何度繰り返し実行しても、いつまでも同じフリガナのままになってしまいます。似たような記述が繰り返されていて見た目にスマートじゃない、とお感じになったなら、その感覚はある意味正しいとは思いますが、「ループで同値になるまで進めて」「リストの次の値を採る」という意図で書いていますから、意図を強調する意味でも、下手に小細工するより、明示的に「もう一回実行」を表現する方が良いという判断で、こういう書き方を選んでいます。返答としては、「???の行は」必要なのですが、他の書き方で同じことを実現できるなら、お好みで編集してみてください。 > ???の行はいらないのではないでしょうか。変数を調べたところ、これを実行する前と実行した後で変数の値が違っています。 > この行をコメントアウトすると.Phonetic.Text = sDのところでsDの値が目標の値になりますが、実行するとさらに次の候補になってしまうようです。「この行をコメントアウトすると」「sDの値が目標の値」のひとつ前、つまり、元のフリガナと同値になってしまいます。「実行するとさらに次の候補になってしまうようです。」というのは解りませんが、是非コメントアウトしないで試してみて下さい。 > また > 　　Else　'　フリガナ候補が空でなければ > 　　　　.Phonetic.Text = sD　'　フリガナ候補をフリガナに設定 > 　 End If > を実行するとたしかにsDは目標の新しい振り仮名に設定されていて、.Phonetic.Textの値も新しいものに変わっています。 > ところが再度コードを実行すると > ' ' Application.GetPhonetic メソッドでフリガナ第一候補を取得 > 　　　　　　' ' セルの値（漢字？相当）を引数に > 　　　　　　sD = Application.GetPhonetic(.Value) > を実行した後のsDの値が変更する前の元の値にもどってしまっています。そのためsetPhonetic関数の結果も変化しません。 > どこに原因があるのか分かりましたらよろしくご教示ください。「sDの値が変更する前の元の値にもどってしま」うのは「???の行」をコメントアウトした場合ではないですか？私が提示しているのは「setPhonetic関数の結果」を変化させるものではありません。なので、この最後の一文が正確に現象を表しているなら、それは正常な（期待通りの）動作です。察するに、＃２さんのご回答で示唆された方法と、私が提示した方法を同一視して混乱してしまっているのかも知れませんが、そういう意味では、全くの別物です。私がネタが被ったと書いたのは、GetPhonetic メソッドをテーマにする、という共通点のことです。私のは、指定したセル範囲のフリガナを実行する度に次の候補へ置き換えていくものですから、逆にＩＭＥに対して影響を与えませんから、自ずと、「setPhonetic関数の結果」も変化しません。　◆アクティブセルにフリガナが設定されていない場合は、　　→SetPhonetic メソッドでフリガナを初期設定。　◆アクティブセルでは既にフリガナを設定してある場合、且つ、　　◆GetPhonetic メソッドで参照するフリガナリストにあるフリガナ　　　が設定されている場合は、　　　→GetPhonetic メソッドで参照するフリガナリストの次にあるフリガナ　　◆同じく、GetPhonetic メソッドで参照するフリガナリストの最後にあるフリガナ　　　が設定されている場合は、　　　→フリガナを削除。（リストを一周したことを告知する意味）　　◆GetPhonetic メソッドで参照するフリガナリストに存在しないフリガナ　　　が設定されている場合は、　　　→一度めの実行でフリガナを削除。（リストに存在しないフリガナであることを告知する意味）　　　→二度め以降の実行GetPhonetic メソッドで参照するフリガナリストを順番に設定念の為、アクティブセルが対象セルの位置にあるかどうかも確認しながらテストしてみてください。＃５のコード自体は、立て続けに繰り返しテスト実行して、わざわざトレースしなくても、GetPhonetic メソッドの挙動を体感できるように、テスト用に書いています。実戦では、ActiveCellのような心許ない参照を使うことの無いように、または一々不要なものをセルに書き出さないように、より堅実に無駄なく仕上げていくことになるのだと思います。挙動に誤解が無いよう参考に、"赤"という漢字で３例示します。赤 0 　　- Empty - 1 　　アカ 0 　　- Empty - 1 　　アカ ... 赤道 0 　　- Empty - 1 　　セキドウ 2 　　アカミチ 3 　　アカドウ 0 　　- Empty - ... 赤口 0 　　- Empty - 1 　　シャッコウ 2 　　アカグチ 3 　　アカクチ 0 　　- Empty - ... "赤"をタイプする時はほぼ絶対的に"あか"ですよね。だから、普通はフリガナ候補は"アカ"だけです。赤一文字では"セキ"も"シャク"も"シャッ"も普通はフリガナ候補ではありません。でも、ひとたび、"しゃく"を[かな漢字変換]で赤を確定すれば、次の瞬間から、上記のフリガナリストに"シャク"が仲間入りします。ですので、＃５で提示したマクロをテストしている合間に、ＩＭＥ変換候補のプライオリティーに影響するような操作をすれば、＃５のマクロで誤作動を起こすことは可能です。ＩＭＥ等のＰＣ環境の中でも根本的な部分に変化を加えるようなことは、普通はしませんし、人に勧めるものではありませんし、そうしたことまで想定して萎縮したコーディングをする必要もない、とは思っています。以上です。

cj_mover · Answer

＃３-４、ｃｊです。連続の自己レスです。すみません。

お昼を食べている時に、また不備に気付いたので追加レスします。

なるべく > 簡易なもので < という意図で紹介した＃３ですが、
但し書きが必要なのを忘れていました。
実行時の条件として、対象（アクティブ）セルについて
　・ユーザーの手書きによるフリガナが設定されていないこと。
　・[フリガナの設定][種類]で全角カタカナを選んでいること
の２点が必須で、これに外れると無限ループになってしまいます。
対策を加えてもコードの文字数に大差ないので、
以下、対策済のものに差し替え、＃３-４の記述の廃棄をお願いします。
度々、失礼しました。

' ' /// フリガナを設定。実行の度に次の候補にて設定。

Sub Re8768439c()
Dim sS As String
Dim sD As String

With ActiveCell　'　※　必ず、対象セルをアクティブにしてから実行。

' ' フリガナを表示する
　　　　If Not .Phonetic.Visible Then .Phonetic.Visible = True

'　　　　' ' フリガナを 同じ行の指定列 にて 参照・表示する
'　　　　With .EntireRow.Cells(1, "C")　'　← "C" ？ 列を要指定
'　　　　　　If .FormulaLocal = "" Then .FormulaLocal = "=PHONETIC(" & ActiveCell.Address & ")"
'　　　　End With

' ' フリガナが設定されているか、判別
　　　　If .Phonetics.Count > 0 Then　'　フリガナが設定されているなら

' ' 現在設定されているフリガナ を 全角カタカナ で 取得
　　　　　　sS = StrConv(.Phonetic.Text, vbKatakana Or vbWide)

' ' Application.GetPhonetic メソッドで フリガナ第一候補 を取得
　　　　　　' ' セルの値（漢字？相当）を引数に
　　　　　　sD = Application.GetPhonetic(.Value)

' ' 現在のフリガナ と フリガナ候補 が 一致するまで
　　　　　　' ' または フリガナ候補 が 尽きるまで ループ
　　　　　　Do Until sD = sS Or sD = ""
　　　　　　　　sD = Application.GetPhonetic()　'　次のフリガナ候補　を取得
　　　　　　Loop

' ' 次のフリガナ候補　を取得
　　　　　　sD = Application.GetPhonetic()

If sD = "" Then　'　フリガナ候補 が 空の文字列 なら
　　　　　　　　.Phonetics.Delete　'　フリガナ設定を削除
　　　　　　Else　'　フリガナ候補 が 空 でなければ
　　　　　　　　.Phonetic.Text = sD　'　フリガナ候補 を フリガナに設定
　　　　　　End If

Else　'　フリガナが設定されていないなら

.SetPhonetic　'　フリガナ設定（フリガナ第一候補）
　　　　End If
　　End With
End Sub

cj_mover · Answer

＃３、ｃｊです。
すみません、訂正が２点あります。

誤）
　　　　With .EntireRow.Cells(1, "C")
　　　　　　If .FormulaLocal = "" Then .FormulaLocal = "=PHONETIC(" & .Address & ")"
　　　　End With
正）
　　　　With .EntireRow.Cells(1, "C")
　　　　　　If .FormulaLocal = "" Then .FormulaLocal = "=PHONETIC(" & ActiveCell.Address & ")"
　　　　End With

誤）
　　　　　　' ' 現在のフリガナ と フリガナ候補 が 一致したら 次のフリガナ候補　を取得
　　　　　　If sS = sD Then sD = Application.GetPhonetic()
正）
　　　　　　' ' 現在のフリガナ と フリガナ候補 が 一致したら 次のフリガナ候補　を取得
　　　　　　sD = Application.GetPhonetic()

以上のように訂正をお願いします。

尚、.GetPhonetic メソッドも完全ではありませんから、
＃２のマクロを繰り返し実行した後、
フリガナが削除されるまでの間に、お望みのフリガナが設定できない場合は、
ＩＭＥ側のフリガナ候補に無い、ということですから、
手作業で書換える場合も出てきます。
因みに、ＩＭＥではすべての漢字にフリガナとの関連付けがされている訳でもなくて、
極稀に特殊な漢字では自動でフリガナが付かない場合もあるようです。

以上、失礼しました。

WindFaller · Answer

こんにちは。

ふりがなは、IME 97から98に移行する段階で、VBAにも付加された機能です。主に、Word VBAが中心だったように思います。

よみがなは、IME をインターフェースを通して「ふりがな候補」を取得しています。
早い話が、記録されている順位のよみがなの候補の一番先のものから、「ふりがな」として呼び出しているわけです。

>「和家」を「ワケ」と読ませるようにできるのでしょうか。
「和家」を「ワケ」と読むように、変換候補の最優先に来ていれば変換されますから、「わけ」と入力し「和家」として一発で変換するように覚えさせればよいわけです。

ただ、よみがなに対するVBA関数は、複数の読みにも対応していますが、そのためには、一端、停止し、変換を繰り返し、GetPhoneticメソッドで、空の文字「""」（＝変換する時と同じ操作)を送らないと、次候補は出てきません。そして、それをユーザーが選択するわけです。

ちなみに、IMEは、もともと（エプソンに吸収された)エーアイのWX　の流れを組むもので、その変換候補が数字で格納されているようです。その候補の数字を、変換の先頭の1にするには、数回、変換を繰り返して、覚えさせないといけなかったはずです。一回の変換では、その閾値（しきいち)を越えません。IMEの操作マニュアルは、覚えるタイミングを3回とか5回とか変更できましたが、今は、公開されていないようです。MS-IMEを使っていませんので、そこらは分かりません。

>ともかくコードの中で特定の漢字の読みを指定することはできないと理解しました。 
上記で書かれているように、VBAで候補でひとつずつ出すことはできても、人間が選択しなければなりませんから、自動でという意味では、できませんね。

MackyNo1 · Answer

＞たとえば「和家 利代」をsetphonetic関数で振り仮名をつけると「ワイエ　リダイ」になりました。

実際にselection.setphoneticのコードでふりがなを取得してみると、「ワケ　トシヨ」になりましたが、どのような操作でふりがなを取得したのでしょうか？

一般にsetphoneticは自動的にふりがなを取得するコードですが、複数の読みに対応したふりがなを取得することができませんので、ふりがなが正しくない場合は、以下のような操作で手動でそのふりがなを正しいふりがなに修正する必要があります。

データ数が少ないなら、ふりがなのないデータを選択してAlt+Shift+↑キーでふりがなを表示し、表示されるふりがなが正しくない場合はもう一度↑キーで候補を表示して、希望のふりがなを選択するほうが簡単かもしれません。

エクセルのsetphonetic関数

こんにちは。

#2の回答者です。

＃３-５、ｃｊです。

＃３-４、ｃｊです。

この回答への補足

＃３、ｃｊです。

こんにちは。

この回答への補足

＞たとえば「和家 利代」をsetphonetic関数で振り仮名をつけると「ワイエ リダイ」になりました。

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

＞たとえば「和家利代」をsetphonetic関数で振り仮名をつけると「ワイエ　リダイ」になりました。