[三流君] −−> [VBAで楽しく] −−> [バックナンバー一覧]
−−> No.123 Excel 漢字のフリガナ候補の表示

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

メルマガ発行内容

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

どうも、三流プログラマーのKen3です。 今回は、読者数6人の有料メルマガから宣伝で1つサンプルを出します。

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

有料版のメルマガ、読者数6人まで減りました。 内容が薄いから?なんだけど・・・(オイオイ) 先月書いてたメルマガからサンプルを1つダイジェストで載せます。 気に入ったら、登録してみてください。 よろしくお願いします。 ----- こんな感じで書いてます -----

/* * 1. 今日の狙い・・・ */

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

/* * 2.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 <> "" と、候補がなくなるまでループさせてます。 んっ、どこかで見た処理方法ですね。 えっ、どこで? Dir関数でファイル名を取り出す時も、 はじめにファイルパターンを指定、 引数無しで呼び出してましたね。 応用技として、フリガナを振ってないデータがあったら、
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
みたいにして、第一候補でフリガナを振ることも出来ます。 漢字はいろいろな読み方あるので、使えるかわからないけど。

/* * 3.終わりの挨拶 */

今回は、うらないツールを作ろうとして、漢字のフリガナを振る、 そんな関数を発見したので、紹介してみました。 もし、大量のデータにフリガナをフレと言われたら、 機械的に、 y = 1 '1行目から調べる While Cells(y, "A") <> "" 'B列にフリガナをセットする Cells(y, "B") = Application.GetPhonetic(Cells(y, "A")) y = y + 1 Wend みたいに振ってから、修正するのも一つの手だと思って。 これだと、IMEからデータ抜いて・・なんてツールもいらないですね。 う〜ん・・ 次回は、もう少しマシな解説をしたいですが・・・ ※できたら、世に出せるくらいのツールになるといいけど、、、 プログラム作りは簡単で面白いなぁと感じるような 解説/メールマガジンを書きたいと思ってます。 月400円は高いので、気長にヒット作を待てる人は購読続けて下さいね。 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ よろしくお願いします。 ※ハヤク、効果のあるツール、サンプルを作らないと、、、 AB型の変わり者、三流プログラマーのKen3でした。 ----- -【けんぞう!】--------------------------------------------------------- 転職関係、在宅プログラマー、SOHOの広告まとめました http://www.ken3.org/etc/500yen/zaitaku.html いろいろとあるので転機の人はぜひ 登録料無料、匿名で探せるので在宅で小金稼ぎの人も見てね ~~~~~~~~~~~~~~~~ オレ様、私は、SE様だ、月給30万以上ボーナス100万を探すのもありだよ。 私にみたいにVBA少しできるぐらいだと仕事無いよ・・・なんて冷たく、 と軽く言われても匿名なら気にならないし(笑) 逆にこんな簡単な仕事で月給27万貰えるの?って会社もあるし、世の中イロイロ。 http://www.ken3.org/etc/500yen/job.html ------------------------------------------------------------------------ 

/* * 2.終わりの挨拶 */

どうでしたか? えっ、これで月400円は高いって? ですよねぇ・・作者本人も月400円、発行数が月4回か5回だろ? 1つ100円の情報だとすると、 Excel2000のApplication.GetPhoneticでフリガナが・・・ そんな情報に100円は高いよな。 ツールって言うなら、 ^^^^^^^^^^^^^^^^^^^^ 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列)を選択したら、 実行する・・とか仕上げないと、100円は払えないよね。 なんて、いつもの自分落としネタを書いておいて、 もし、興味を持った人が居たら、 http://www.ken3.org/pmagmag/office/ の下記、有料版のメルマガ、 Microsoft Officeで作るツールと業務システム ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 発行周期 毎週土曜日(年末年始除く) 購読料 400円/月 Microsoft Officeを使用してツール、業務のシステムを作成(手順を解説します) 主にExcel -- Accessの連携、VBAの解説です 初心者歓迎です、有料版なので遠慮しないでドンドン質問下さい。 毎週土曜日発行サンデープログラマーの楽しみ〜プロまで役立つツールを作りたいと 思ってます。 ---- ヨロシク検討してね。 ※あっ、有料版の特典が1つあった。  有料版読者の質問には、真っ先に答えてます。  (出来なかった質問も3人あって、たぶん解除されたんだけど・・・) ※金返せとメール来た時はショックだったけど・・・・ ※無料版のほうが面白いけど、無料版を有料と思って購読してます  とメール来たのは、複雑な心境になったけど。  (有料版価値無いけど、無料版が役に立ったからお金払ってあげる?って感じ?) Excel/Access大好き、三流プログラマーKen3でした。


ページフッター

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

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

気になったジャンル↓を選択してください。

人気記事(来場者が多いTOP3):
[VBAでIE,WebBrowserを操作]・・・VBAでIE,WebBrowserを操作する サンプルです
[Access から Excel 連携 CreateObject("Excel.Application")]・・・AccessからExcelを操作したりデータの書き出しなどです
[VBAでOutlookの操作 CreateObject("Outlook.Application" )]・・・VBAからOutlookを使い、メール関係を処理するサンプルです
↑上記3つみたいなCreateObjectで他のアプリケーションを操作するサンプルが人気です。

Excel関係:
[Excel UserFormを操作する]・・・エクセルでユーザーフォームを作成して入力などを行ってます
[ExcelからAccessを操作する]・・・ExcelからAccessのマクロを起動してみました、
[Excel関係 関数、その他]・・・その他Excel関係です

Access関係:
[Access UserForm/サブフォーム 操作]・・・アクセスでフォームを使ったサンプルです
[Access レポート操作]・・・レポートを操作してみました
[Access クエリーやその他関数]・・・あまりまとまってませんが、スポット的な単体関数の解説です

その他:VBAの共通関数やテキストファイルの操作など
[VBAでテキストファイル(TextFile)の操作]・・・普通のテキストファイルを使ったサンプルです
[VBA 標準関数関係とその他解説]・・・その他、グダグタ解説してます

開発時の操作: [F1を押してHELPを見る]/ [Debug.Print と イミディエイトウインドウ]/ [実行時エラーでデバッグ]/ [ウォッチ式とSTOP]/ [参照設定を行う]

仕様書(設計書?) XXXX書類: [基本設計書や要求仕様書]/ [テスト仕様書 テストデータ]/ [バグ票]/ [関数仕様書]/ [流れは 入力・処理・出力]

※↑文章の味付けが変わっていて、お口に合うかわかりませんが。。。
※※読んで、気分を悪くされたらスミマセン。

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



[三流君(TOP ken3.org へ戻る)] / [VBA系TOPへ] / [VBA系バックナンバー目次へ移動]