人力検索はてな人力検索はてなモバイル版を表示しています。EXCELのセルに「石器」がありhttp://dictionary.goo.ne.jp/srch/all/石器/m0u/このURLに飛ばすと、そこに石器のふりがな(せっき)があり、その(せっき)のふりがなの部分だけを取り出すことはできますか?EXCELのセルには、任意に複数の日本語が書いてあり、クエリで一括で日本語のよみがなを取り出したいです。いい方法あれば教えてください。関数を使うのがお手軽だと思います。クエリじゃないですけれど。使ったサンプルを作ってみました。「漢字の読みを調べる」関数が、goo辞書のページの最初の「読み」を返します。ループの件数が間違ってたのと、goo辞書で読みが見つからなかったときの処理がきちんとしてなかったので、先の追記のソースを修正しました。kajironpuさんのコメントありがとうございます。難しい用語だと、読み方があやしいです。例)磨製石器ネットの辞書だと完璧なんですが、そこからデータを持ってくることは出来ないでしょうか?a-kuma3さんのコメントあー、なるほど。クエリじゃ、ちょっと厳しい。a-kuma3さんのコメント回答に追記しました。さん、さっそくありがとうございます。スゴイ機能で驚いています。やると見事に専門用語のふりがなが表示されます。こんなこともできるんですね。(kajironpuさんのコメントその後、いろいろやっていたらオブジェクト変数またはWithブロック変数が設定されていません。」というエラーが出るようになってしまいました。原因はわかりますでしょか?a-kuma3さんのコメントんー、その「いろいろやった」内容が分からないと何とも。一度、マクロを全部消して、回答に追記したコードを貼りなおしてもエラーは出るでしょうか。行われなくてメモリリークします。起動しなおすと直ります。kajironpuさんのコメントありがとうございます。EXCEL再起動でもだめで、PCを再起動してもだめでした。一気に、たくさんの単語を変換したためか、EXCELが固まってしまい、その後おかしくなった感じです。エラーが出てから、だいぶ時間が立ったのにもかかわらず、PC再起動でも同じエラーでした。いう関数を入れてからマクロを走らせるという使い方はあっていますでしょうか?念のため、エラーがでたマクロの画像を補足の方に添付致します。kajironpuさんのコメントすみません、画像の添付方法がわからないため、URLを追記致します。いう関数を入れてからマクロを走らせるという使い方はあっていますでしょうか?<<使い方はお好きに、と思ってました。行方向にループを回した方が良いかも。一度、読みを取得したデータは、撮りなおす必要がないですし。goo辞書に載っていない単語があるんじゃないかと思います。a-kuma3さんのコメント入れ違いになりました。「那智黒」が変換できないんですねえ。後で、確認してみます。<tt>X-|</tt>a-kuma3さんのコメント確認しました。「那智黒」は読みを取得できたのですが、読みが取得できないときの処理が甘かったので、ソースを修正しました。kajironpuさんのコメントさっそくありがとうございます。新しく作成して頂いたマクロを使ってみました。いうふうにコピーして、最初10個くらいの単語を連続で変換したらうまくいきました。100個くらいを連続で変換したら、全部「X」になってしまいます。その後なぜか、まったく変換ができず、EXCEL再起動、あるいは新しいワークに最初からマクロを入れなおしても、まったく変換できません。すべて「X」になってしまいます。a-kuma3さんのコメントやってみました。連続でガンガンアクセスすると、「アクセスが禁止されてます」というページになるみたいです。プログラムでデータを抜くと、たとえばサイトの複製みたいなことができちゃうので、連続したアクセスを判定してエラーになるようにしているみたいです。すると単語数が多い場合、難しそうですね。a-kuma3さんのコメント間を取るとアクセスできるようになるので、セルの関数として使うのではなく、マクロでループさせて使う感じでしょうか。読みが取得できているのは飛ばすようにして、無駄なアクセスをしないようにして。<tt>:-)</tt>kajironpuさんのコメントマクロを使う方法ですね、挑戦してみます。APIをVBAでコードを書くことなく利用できるようになります。↓このAPIを叩いたら漢字かな交じり文に、ひらがなとローマ字のふりがな(ルビ)を付けます。それっぽいことができそうな気がします。任意のWebページを使いたいなら、kimonoにチャレンジしてみてはいかがでしょう。kimonoはウェブページをスクレイピングしてAPI化してくれるサービスです。