ken3memo https://blog.hatena.ne.jp/ken3memo/ 三流君のソースコード置き場 https://ken3code.hatenablog.jp/ 【結論：Windows 10/11では GetPhonetic で「全候補」が取れない仕様に変わっています！】ソースコードを冒頭に書く: Option Explicit Sub aaa() Dim strWORK As String Dim strNAME As String '名前 '呼び出しは簡単で、調べたい文字列を渡す strNAME = InputBox("調べたい単語を入力して", "名前などを入力", "羽生") '↑羽生 将棋の はぶ先生、スケートの はにゅう どちらが表示されるのかな？ strWORK = Application.GetPhonetic(strNAME) Whi… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fken3code.hatenablog.jp%2Fentry%2F2026%2F01%2F22%2F073000" title="Excel VBAで振り仮名取得 Windows 10/11では GetPhonetic で「全候補」が取れない仕様に変わっています！ - 三流君のソースコード置き場" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> https://cdn-ak.f.st-hatena.com/images/fotolife/k/ken3memo/20260117/20260117212008.jpg Hatena Blog https://hatena.blog 2026-01-22 07:30:00 rich https://ken3code.hatenablog.jp/entry/2026/01/22/073000 1.0 100%