質問: vba シート2にあらかじめデータあ入力されており、 シート1のj4にデータ内にあるワードを入力して、ボタンを押したら、 シート2とシート1の内容が一致したときにメッセージボックスでその内容が表示されるようにしたいのですが、 どうすればよいでしょうか?
回答: ご質問者の目的がよく分かりませんので参考です。 >ボタンを押したら ⇒フォームコントロールのボタンオブジェクトをドロップダウンしてマクロを貼り付け >内容が一致したときにメッセージボックスでその内容が表示 ⇒既に内容が表示されているのに表示する意図がよく分かりません。 例えば、無かった場合にメッセージを表示、部分検索で何件あるとか等ならば何となく理解できる。 もう少し実現したい事を明確にして再質問しては如何でしょうか。 一例です。(仮に完全一致型検索でfindメソッド利用) set fnd = sheets("sheet2").cells.find(what:=range("j4"), lookat:=xlwhole) if not fnd is nothing then msgbox fnd.value