質問: excel2013、ワークシート内に検索機能を設定したい excel2013で、ワークシート内に検索窓と検索ボタンを設定したいのですが、(control+fでやらずに、検索語句を入力しポチっと検索したいのです。web検索のような...) vbaやマクロは全くの無知と言っていいほどの者なので、コピペや分かりやすい説明でお願い致します...。 仕事で使っているワークシートを引き継ぎのためにわかりやすくしたいのです。 イメージは......検索窓に語句を入力→検索ボタンクリック→検索→該当語句が含まれるセルへ飛ぶ※ない場合、「該当キーワードがありません」とメッセージが出る のような感じです。 どうかよろしくお願いいたします。
回答: no.1です。 >2検索した際に「●件あります。」のようなメッセージが出て・・・ リスト表示ではなく、対象セルすべてを選択するコードにしてみました。 sub sample2() dim mystr as string dim foundcell as range, firstcell as range, myrng as range mystr = inputbox("検索文字を入力") with activesheet set foundcell = .cells.find(what:=mystr, lookin:=xlvalues, lookat:=xlpart) if not foundcell is nothing then set myrng = foundcell set firstcell = foundcell do set foundcell = .cells.findnext(after:=foundcell) if foundcell.address = firstcell.address then exit do set myrng = union(myrng, foundcell) loop msgbox "対象セルが" & myrng.count & "セルあります。" myrng.select else msgbox "該当データなし" end if end with end sub ※ もちろん別シートなどに対象データを羅列することもは可能です。 まずはこの程度で・・・m(_ _)m