- 締切済み
文字検索マクロで質問です。
文字検索マクロで質問です。 下記のマクロを作成したのですが、A1に検索する文字を入力してA列(A5:11700)のみを検索して該当が有ったらそのセルを色を付けし、又,該当が無ければMSG BOXで”該当なし”と表示するマクロを御教授頂けますか。 Cells.Find(What:=Range("A1").Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , MatchByte:=False, SearchFormat:=False).Activate End Sub 以上、宜しくお願い致します。
- hope7114
- お礼率100% (1/1)
- その他([技術者向] コンピューター)
- 回答数1
- ありがとう数5
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- luka3
- ベストアンサー率74% (297/399)
自分で作ろうとしましたが、こちらのページを見た方がわかりやすいですね。 ・Excel(エクセル)VBA入門：Findメソッド,Like演算子を使った検索 http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_find.html これで myKey に A1 を入れて検索範囲を変えればいいですよね。 該当なしは End If の前に Else MsgBox "該当なし" と入れれば希望通りになるかと。
関連するQ&A
- エクセルのマクロについていくつか質問があります
エクセルのマクロについていくつか質問があります 1 例えばA1セルが赤く塗りつぶされている場合隣のB1セルに赤と表示させたいのですが出来ますか 実際には色は何色かあります 2 セルの検索で検索であったセルを選択状態にするにはどうすればいいですか いちおう検索構文まではできてます Selection.Find(What:="6", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, MatchByte:=False, SearchFormat:=False).Activate 以上ですよろしくお願いします
- ベストアンサー
- その他MS Office製品
- 検索した後の見つかった件数を取得したい
画像のように手作業で検索した場合、下に検索結果の個数が表示されますが これをVBA内で取得することは可能でしょうか？ マクロの記録だと Sub Macro() Cells.Find(What:="a", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , MatchByte:=False, SearchFormat:=False).Activate End Sub となるのですが、最後に全部の個数を取得したいです。
- ベストアンサー
- Excel（エクセル）
- EXCEL マクロでの検索をお教えください
下記のようなマクロを使いたいのですがこの場合×があるときは良いのですが、 無いときエラーが出ます。どの様にすれば良いのかお教えください。 無いときエラーは オブジェクト変数または With ブロック変数が設定されていません。 となります。 Sub 検索() Range("K12:K70").Select Cells.Find(What:="×", After:=ActiveCell, LookIn:= _ xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate End Sub
- ベストアンサー
- Excel（エクセル）
- VBA★findを使って見つけたセルの値を取得
AA="タナカ" Selection.Find(What:=AA, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate 自動マクロでコレをつくりました。 タナカを見つけてその隣の変数を取得するというものを作りたいと思っています。 関数で言うとVlookupでやるものをマクロ化しようとしています。 検索して見つかったセルの右隣のセルの値を取得するにはどうしたらいいですか？
- ベストアンサー
- Visual Basic
- エクセル2007のマクロ不具合について、
次のようなマクロを「CTRL+T」のショートカットキーで作成しましたが、2回続けて実行すると2回目が違う結果となってしまいます。 1回目はちゃんと 2010/1/2 のセルがアクティブセルとなるのですが、2回目は 2010/11/2 がアクティブセルとなってしまいます。 原因と対処法があればぜひ教えていただきたいと思います。よろしくお願いします。 Sub 本日() Cells.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate End Sub
- ベストアンサー
- その他MS Office製品
- EXCEL VBAでの 文字列検索
セル内の文字列を部分一致で検索したいのですが、 下記の構文だと、検索対象シートを選択しなくてはならないため、 PGの動きが堅くなってしまいます。何かいい方法をご存知の方、 教えてください。 Selection.Find(What:=key, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, MatchByte:=False).Activate Cells.FindNext(After:=ActiveCell).Activate
- ベストアンサー
- オフィス系ソフト
- マクロエラ-
初心者です。win2000,エクセルでマクロが途中で止まってしまいます。時々に、最後までいくことがありますが、８割がたは、同じところでストップします。 マクロ言語は理解できていません。 うまく完了のケ－スは、デ－タの中身次第かなと思います。 記憶では、”0”があれば、何かをするようにしたと思います。 想定外のデ－タで、とまるのなら、回避方法を教えてください。 黄色反転して、ストップする部分は、以下です。 mcr3 Range("A1").Select ActiveCell.SpecialCells(xlLastCell).Select Columns("C:C").Select Selection.Find(What:="0", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, MatchByte:=False).Activate いつもここで止まります。 ActiveCell.Replace What:="0", Replacement:="", LookAt:=xlWhole, _ SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False Selection.Find(What:="0", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, MatchByte:=False).Activate -----------→つずく。
- ベストアンサー
- オフィス系ソフト
- Excel VBE 検索結果がない時の対処方法
いつもお世話になっております。 Excelで簡単な文字当てゲーム的なものを作っています 文字列（１００個程度）の中から、ある文字列を探し出して、そのセルの文字色を塗り替えるというマクロを組んでいます。 検索部分は下記のように記述してあります。 検索文字列がある時にはうまく動作しますが 検索文字列がない時にはエラーになります。 検索文字列がない時の対処方法を教えて下さい。 よろしくお願いします。 kaitou = Range("g2").Value Range("G2").Select Selection.Copy Columns("B:B").Select Selection.Find(What:=kaitou, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
- ベストアンサー
- オフィス系ソフト
- エクセルで検索結果を抽出し、別シートにコピーしたい。
いつも楽しく拝見しております。 すいません、ネットで頑張って調べたのですが、どうしても ウマくいかないので、ご教授下さい。 エクセルにて、シート1にさまざまな情報が記載されています。 A1を検索ボックスとし、ここに入れた言葉を検索し、対象となった行のみをシート2にコピーしたいと考えています。 ※書式もそのままコピーしたいです。 これをマクロにて作成し、使用者にはA1に検索内容を入れてもらった後、マクロが仕込んであるボタンをクリックすれば結果が出てくる・・・と言う形を作りたいです。 検索のみ、コピーのみであれば、それぞれ調べると乗っていたりするのですが、両方をしようとした時、どのような式が必要かがわかりません。 ちなみに、検索は以下のような記述を見つけました。 On Error Resume Next a = InputBox("検索したい文字を入力してください。") Cells.Find(what:=a, after:=ActiveCell, LookIn:=xlFormulas, lookat:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , MatchByte:=False, SearchFormat:=False).Activate End Sub どのような記述を行えば出来るのでしょうか。 また、参考文献が掲載されているURLでも結構です。 どうかご教授下さい。 宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- [VBA]変数を利用して時間を検索する方法が・・・
エクセルで表示形式が「hh:mm:ss」に設定されているセルの中から 指定のセルを検索するマクロを作ろうとしているのですが、 上手くいきません。 検索する数字を変数にして変えられるようにしたいです。 Sub Macro1() Dim temp As Double temp = Range("A1").Value 'A1には0:00:01を入れる Cells.Find(What:=temp, After:=ActiveCell, LookIn:=xlValues, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate End Sub 上の記述だと、実行時エラー91「オブジェクト変数またはWithブロック・・・」が出ます。 > temp = "0:00:01" これに書き替えると「型が違います。」になり、「""」をはずすとコンパイルエラーになります。 「What:="0:00:01"」というように、直接入れると上手くいきます。 どなたか、お力をお貸しください。 よろしくお願いします。
- ベストアンサー
- Visual Basic
お礼
早々の御教授有難う御座います。 希望通りになりました。 有難う御座います。