Excel 漢字のフリガナ候補の表示

メルマガ発行内容

＜Excel 漢字のフリガナ候補の表示＞
どうも、三流プログラマーのＫｅｎ３です。

今回は、読者数６人の有料メルマガから宣伝で１つサンプルを出します。

/*
 * １. 今回のキッカケ
*/

有料版のメルマガ、読者数６人まで減りました。
内容が薄いから？なんだけど・・・（オイオイ）

先月書いてたメルマガからサンプルを１つダイジェストで載せます。

気に入ったら、登録してみてください。
よろしくお願いします。

----- こんな感じで書いてます -----
/*
 * １. 今日の狙い・・・
*/

今回は、
根拠の無いうらないツールを作ろうと思い、
ＩＭＥの辞書から固有名詞を取り出せないか？
なんてことを探っていたら、
フリガナの候補を表示する方法を見つけたので書きたいと思います。
※狙っていたのは、
　今日のラッキーアイテムはパソコン、電車、ＸＸＸＸ
　と固有名詞をランダムにＩＭＥ辞書から取り出し表示だったけど。

/*
 * ２．Application.GetPhonetic (EXCEL)
*/

いろいろと探っていたら、本題とは違うけど、
Application.GetPhonetic (Excel2000)
なんてのを見つけました。

使い方は簡単で、

Sub aaa()

    Dim strWORK As String
    
    '呼び出しは簡単で、調べたい文字列を渡す
    strWORK = Application.GetPhonetic("三流君")
    While strWORK <> ""
        Debug.Print strWORK
        MsgBox strWORK
        '次の候補を見たいときは、引数無しで呼び出す
        strWORK = Application.GetPhonetic()
    Wend

End Sub

と、
strWORK = Application.GetPhonetic("三流君")
みたいに、まず探したい単語を引数で渡します。
すると読み方の候補が返ってきます。

漢字の読みかたっていろいろな候補があるので、
次の候補を取得したい場合は、
strWORK = Application.GetPhonetic()
と引数無しで呼び、
While strWORK <> ""
と、候補がなくなるまでループさせてます。

んっ、どこかで見た処理方法ですね。
えっ、どこで？
Ｄｉｒ関数でファイル名を取り出す時も、
はじめにファイルパターンを指定、
引数無しで呼び出してましたね。

応用技として、フリガナを振ってないデータがあったら、

Sub bbb()

    Dim y As Long
    
    y = 1 '1行目から調べる
    While Cells(y, "A") <> ""
        'B列にフリガナをセットする
        Cells(y, "B") = Application.GetPhonetic(Cells(y, "A"))
        y = y + 1
    Wend

End Sub

みたいにして、第一候補でフリガナを振ることも出来ます。
漢字はいろいろな読み方あるので、使えるかわからないけど。

/*
 * ３．終わりの挨拶
*/

今回は、うらないツールを作ろうとして、漢字のフリガナを振る、
そんな関数を発見したので、紹介してみました。

もし、大量のデータにフリガナをフレと言われたら、
機械的に、
    y = 1 '1行目から調べる
    While Cells(y, "A") <> ""
        'B列にフリガナをセットする
        Cells(y, "B") = Application.GetPhonetic(Cells(y, "A"))
        y = y + 1
    Wend
みたいに振ってから、修正するのも一つの手だと思って。

これだと、ＩＭＥからデータ抜いて・・なんてツールもいらないですね。

う〜ん・・

次回は、もう少しマシな解説をしたいですが・・・
※できたら、世に出せるくらいのツールになるといいけど、、、

プログラム作りは簡単で面白いなぁと感じるような
解説／メールマガジンを書きたいと思ってます。

月400円は高いので、気長にヒット作を待てる人は購読続けて下さいね。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
よろしくお願いします。
※ハヤク、効果のあるツール、サンプルを作らないと、、、

ＡＢ型の変わり者、三流プログラマーのＫｅｎ３でした。

-----

-【けんぞう！】---------------------------------------------------------
転職関係、在宅プログラマー、SOHOの広告まとめました
http://www.ken3.org/etc/500yen/zaitaku.html いろいろとあるので転機の人はぜひ
登録料無料、匿名で探せるので在宅で小金稼ぎの人も見てね
~~~~~~~~~~~~~~~~
オレ様、私は、ＳＥ様だ、月給３０万以上ボーナス100万を探すのもありだよ。
私にみたいにVBA少しできるぐらいだと仕事無いよ・・・なんて冷たく、
と軽く言われても匿名なら気にならないし（笑）
逆にこんな簡単な仕事で月給27万貰えるの？って会社もあるし、世の中イロイロ。
http://www.ken3.org/etc/500yen/job.html
------------------------------------------------------------------------　

/*
 * ２．終わりの挨拶
*/

どうでしたか？
えっ、これで月400円は高いって？
ですよねぇ・・作者本人も月400円、発行数が月４回か５回だろ？
１つ１００円の情報だとすると、

Excel2000のApplication.GetPhoneticでフリガナが・・・
そんな情報に１００円は高いよな。

ツールって言うなら、
^^^^^^^^^^^^^^^^^^^^
    y = 1 '1行目から調べる
    While Cells(y, "A") <> ""
        'B列にフリガナをセットする
        Cells(y, "B") = Application.GetPhonetic(Cells(y, "A"))
        y = y + 1
    Wend
とかじゃなくて、
せめて、
ファイル名(d:\zzz\aaa.xls)と漢字列(A列)・フリガナ列(B列)を選択したら、
実行する・・とか仕上げないと、１００円は払えないよね。

なんて、いつもの自分落としネタを書いておいて、

もし、興味を持った人が居たら、
http://www.ken3.org/pmagmag/office/
の下記、有料版のメルマガ、
Microsoft Officeで作るツールと業務システム 
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
発行周期 毎週土曜日(年末年始除く) 
購読料 400円/月 
Microsoft Officeを使用してツール、業務のシステムを作成（手順を解説します）
主にExcel -- Accessの連携、VBAの解説です
初心者歓迎です、有料版なので遠慮しないでドンドン質問下さい。
毎週土曜日発行サンデープログラマーの楽しみ〜プロまで役立つツールを作りたいと
思ってます。 
----

ヨロシク検討してね。
※あっ、有料版の特典が１つあった。
　有料版読者の質問には、真っ先に答えてます。
　（出来なかった質問も３人あって、たぶん解除されたんだけど・・・）

※金返せとメール来た時はショックだったけど・・・・
※無料版のほうが面白いけど、無料版を有料と思って購読してます
　とメール来たのは、複雑な心境になったけど。
　（有料版価値無いけど、無料版が役に立ったからお金払ってあげる？って感じ？）

Ｅｘｃｅｌ／Ａｃｃｅｓｓ大好き、三流プログラマーＫｅｎ３でした。

ページフッター

ここまで、読んでいただきどうもです。ここから下は、三流君のホームページの紹介・案内です
目的の情報が見つかったか？少々心配しつつ、、、

種類別のリンク や 広告など

Blogとリンク:[三流君の作業日記]/ [VBAやASPのサンプルコード]/ 広告-[通販人気商品の足跡]