質問: ユーザーフォーム 検索 ユーザーフォームで「ctrl+f」の検索と同じ機能を作ってみたいです。 vbaコードが知りたいです。 というより 今あるユーザーフォームに「検索機能」をつけたいです。 よろしくお願い致します。 (エクセル2003です)
回答: こんなんでいいんすかね? '------------------------------------------ dim findans as range dim findstr as string findstr = "2" '探す文字列 set findans = cells.find(what:=findstr, after:=activecell, lookin:=xlformulas, lookat:=xlpart, searchorder:=xlbyrows, searchdirection:=xlnext, matchcase:=false) if findans is nothing then msgbox findstr & "はなかった" else findans.activate end if '------------------------------------------ 回答の答えではありますが、質問者さんのお望みの答えかどうかはわかりません。