Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


797 / 13645 ツリー ←次へ | 前へ→

【78243】2つのセルをマッチングして、同じ文字列に色を塗りたい sasa 16/6/7(火) 11:03 質問[未読]
【78244】Re:2つのセルをマッチングして、同じ文字列... β 16/6/7(火) 13:49 発言[未読]
【78249】Re:2つのセルをマッチングして、同じ文字列... γ 16/6/8(水) 22:49 回答[未読]
【78250】Re:2つのセルをマッチングして、同じ文字列... sasa 16/6/9(木) 11:06 お礼[未読]

【78243】2つのセルをマッチングして、同じ文字列...
質問  sasa  - 16/6/7(火) 11:03 -

引用なし
パスワード
   2つのセルをマッチングして、同じ文字列に色を塗りたい

初めまして。
表題にある通り、2つのセルをマッチングして、
同じ単語があれば、その単語に色を塗るマクロを作成したいと考えています。

例としましては、

 A1セル 青森県産りんご60kg詰め合わせ    
 B1セル 青森県産の美味しいりんごです。60kgと納得の大容量です!産地直送です!

上記のような場合、B1セルの「青森県産」「りんご」「60kg」の部分を
赤字に塗るようなものです。

人の目で見た場合は、
A1セルは「青森県産」「りんご」「60kg」「詰め合わせ」という意味の、
4つの単語から形成されているんだな、というのが簡単に分かりますが、
マクロ側にしてみれば、単語という概念がそもそもありませんよね…?

だからといって、A1セルを1文字ずつ取り出してマッチングするのでは、
不要な文字(例でいう、B1セルの産地直送の「産」)も塗られてしまいます。


なので、そもそもこういった事が可能なのかどうか、
100%完璧ではなくても、出来る限り希望に見合った動作を実現するには、
どのようにするのが良いのか…。

マナーとして、少しでも何らかのコードを提示するべきであるのは重々承知しておりますが、
どういった手段を取ればいいのか、まったく思いつかない状態です…。

よろしければアドバイスを頂けますと幸いです。

どうぞよろしくお願いいたします。

【78244】Re:2つのセルをマッチングして、同じ文字...
発言  β  - 16/6/7(火) 13:49 -

引用なし
パスワード
   ▼sasa さん:

特に日本語というものは、その中を単語に分解するということが
もう、大変というか、完全なしょりというのは不可能に近いといわれていて
AIのような処理が必要になってくるようですね。

ht p://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1168864501

ただ(私は実際には使ったことはないのですが)Ms.Word の機能をVBAから呼び出して
使うことができるようです。
(ある程度までしかできないとは思いますが)

ht p://upa-pc.blogspot.jp/2015/04/word-vba-sentence-to-words.html

単語に分解してしまえば、あとはなんとでもなりますよね。

>

【78249】Re:2つのセルをマッチングして、同じ文字...
回答  γ  - 16/6/8(水) 22:49 -

引用なし
パスワード
   すでに適切な回答がございました。
追加で、ここも紹介しておきましょう。

[VBAやVBScriptで形態素解析を行う方法]
ht tp://qiita.com/mima_ita/items/bc2aeb060ee12d280d7b

Word利用の方法は精度は落ちますが、お手軽です。

【78250】Re:2つのセルをマッチングして、同じ文字...
お礼  sasa  - 16/6/9(木) 11:06 -

引用なし
パスワード
   ▼βさん、γさん:

返信が遅くなってしまい、申し訳ありません。

なるほど、絶対に不可能ではないものの、
なかなか一筋縄ではいかないのですね…。

ですが、お2人の提示してくださった参考のURLのおかげで、
何となく方向性が見えて来た気がします。

まずはWordを使ったやり方のほうで、色々試してみようと思います。
(Word絡みのVBAに苦手意識があるので、まずはその意識改善からしなくてはいけません…笑)

ありがとうございました!

797 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free