ベストアンサー

エクセルのsetphonetic関数

2014/09/25 23:15

cj_moverの回答

cj_mover
ベストアンサー率76% (292/381)

2014/09/26 23:02 回答No.6

＃３-５、ｃｊです。＃５補足欄拝見しました。まず、こちらで事前に動作確認していた内容ですが、詳細を記します。今一度確かめてみましたが、同様の結果、期待した通りの動作、を、こちらの環境では、繰り返し再現しているようです。（ベンチ用プログラムで５つのコンディションを各１万回テスト）以下、準備。 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 - ... "赤"をタイプする時はほぼ絶対的に"あか"ですよね。だから、普通はフリガナ候補は"アカ"だけです。赤一文字では"セキ"も"シャク"も"シャッ"も普通はフリガナ候補ではありません。でも、ひとたび、"しゃく"を[かな漢字変換]で赤を確定すれば、次の瞬間から、上記のフリガナリストに"シャク"が仲間入りします。ですので、＃５で提示したマクロをテストしている合間に、ＩＭＥ変換候補のプライオリティーに影響するような操作をすれば、＃５のマクロで誤作動を起こすことは可能です。ＩＭＥ等のＰＣ環境の中でも根本的な部分に変化を加えるようなことは、普通はしませんし、人に勧めるものではありませんし、そうしたことまで想定して萎縮したコーディングをする必要もない、とは思っています。以上です。