エクセルVBAで分かち書き、単語の頻度分析を行う方法！テキストマイニング、形態素分析 へのコメント https://nujonoa.com/how-to-do-text-mining-with-excel/ 人生に役立つデータ集 Thu, 22 Dec 2022 01:55:59 +0000 hourly 1 https://wordpress.org/?v=6.8.3 nujonoa より https://nujonoa.com/how-to-do-text-mining-with-excel/#comment-533 Thu, 22 Dec 2022 01:55:59 +0000 http://nujonoa.com/?p=7218#comment-533 K への返信。

問題が解決したようでよかったです。
また、問題点をご教授いただきありがとうございます！

いえいえ、是非、業務にお役立ていただければと思います！
完璧に趣味でやっているだけですけど、また何かあればご連絡いただければ対応させていただきます！

]]> K より https://nujonoa.com/how-to-do-text-mining-with-excel/#comment-532 Thu, 22 Dec 2022 01:17:44 +0000 http://nujonoa.com/?p=7218#comment-532 nujonoa への返信。

迅速にご確認頂きありがとうございます。

頂いた内容を基に、該当箇所の確認を行ったところ、
「=」（半角）が複数続いている or 単体の場合エラーが出ている様でした。

その為、全体置換で「=」（半角）→「＝」（全角）に置き換えたところ、エラー無く無事進めることが出来る様になりました。

メールでのご連絡は業務上の扱いとなる為、
差し上げることが出来ず申し訳ございませんが、
お礼と備忘と併せてこちらにご記載をさせて頂きます。

ありがとうございます。

]]> nujonoa より https://nujonoa.com/how-to-do-text-mining-with-excel/#comment-531 Wed, 21 Dec 2022 06:16:57 +0000 http://nujonoa.com/?p=7218#comment-531 K への返信。

ご連絡ありがとうございます。

wd.Selection.Words(i).text

が、エラーとなると、
ワードでその文章がきちんと区分けできていない可能性ありです。
もしよろしければ、該当する文章を教えていただけると幸いです。
※blueinfinity4ever@gmail.comまでご連絡いただければと思います。

]]> K より https://nujonoa.com/how-to-do-text-mining-with-excel/#comment-530 Wed, 21 Dec 2022 04:52:27 +0000 http://nujonoa.com/?p=7218#comment-530 nujonoa への返信。

ana様と同様のエラーが出ております。
エラーコードは1004です。
J = 1 To 1000までとしており、それぞれ+990を打ち込んでおります。
該当エラーヶ所の次の行のZの値が7となっている為、
Zの値の計算関連でエラーが出ているのかと思うのですが、
解決が出来ていない状況です。

ご確認頂けますと幸いです。よろしくお願い致します。

]]> nujonoa より https://nujonoa.com/how-to-do-text-mining-with-excel/#comment-150 Tue, 21 Sep 2021 00:08:17 +0000 http://nujonoa.com/?p=7218#comment-150 Yuka への返信。

お世話になっております。

本件、ワードの機能で「単語をくぎる」機能があるので、
ワードを用いて実践しています。

ワードを使わない場合は難しいかと思います。
お役に立てず申し訳ございません。。

]]> Yuka より https://nujonoa.com/how-to-do-text-mining-with-excel/#comment-149 Fri, 17 Sep 2021 04:17:00 +0000 http://nujonoa.com/?p=7218#comment-149 仕事で使います。こちらはExcelからワードでファイルを開くような感じだと思うのですが、この分割をエクセル内だけで行いたい時はどうすれば良いでしょうか？VBAが全くわからず、苦戦しています。よろしくお願いいたします。

]]> N より https://nujonoa.com/how-to-do-text-mining-with-excel/#comment-147 Sat, 04 Sep 2021 03:00:21 +0000 http://nujonoa.com/?p=7218#comment-147 素晴らしい！

]]> nujonoa より https://nujonoa.com/how-to-do-text-mining-with-excel/#comment-145 Sun, 06 Jun 2021 12:54:15 +0000 http://nujonoa.com/?p=7218#comment-145 ana への返信。

すみません、返信遅くなりました。

どのようなエラーが出たか教えていただくこと可能でしょうか？
お手数おかけいたしますが、よろしくお願い致します。

]]> ana より https://nujonoa.com/how-to-do-text-mining-with-excel/#comment-143 Tue, 01 Jun 2021 05:56:13 +0000 http://nujonoa.com/?p=7218#comment-143 はじめました。
とても役立ちそうです
是非使いたいと思い、
使用させて頂いたのですが
Cells(i + 1, J + 1) = wd.Selection.Words(i)

ここの箇所でエラーが出てしまいまして、
なにか解決策はありますでしょうか。

]]> nujonoa より https://nujonoa.com/how-to-do-text-mining-with-excel/#comment-127 Tue, 16 Mar 2021 23:26:13 +0000 http://nujonoa.com/?p=7218#comment-127 makotu への返信。

ご連絡ありがとうございます！
返信が遅れてしまい、申し訳ございません。

単純な分かち書きだけなら、

For J = 1 To 10
⇒
For J = 1 To 12

にすることで可能になります。

また、単語の頻度を計算するとなると、
そこも変える必要があるので、下記の通りすべて右に2行ずらす必要があります。

変更前　　　　⇒　変更後
Cells(Z, 12)　⇒　Cells(Z, 12+2)　
Cells(Z, 13)　⇒　Cells(Z, 13+2)
Cells(Z, 14)　⇒　Cells(Z, 14+2)

変更前　　　　　⇒　変更後
"$M$2:$M$10000"　⇒　"$O$2:$O$10000"
"=SUMPRODUCT((M2=$L$2:$L$" & Z & ")*1)" ⇒　"=SUMPRODUCT((O2=$N$2:$N$" & Z & ")*1)"

]]>