VBA★findを使って見つけたセルの値を取得
- Excel VBAのFind関数を使用して、指定した値を検索し、見つかったセルの右隣のセルの値を取得する方法について教えてください。
- タイトルにもあるように、Excel VBAのFind関数を使って、指定した値を検索し、そのセルの右隣のセルに入っている値を取得する方法が知りたいです。
- エクセルのVBAを使って、ある値を検索し、そのセルの右隣のセルの値を取得したいのですが、どのようにすれば良いのでしょうか?
- ベストアンサー
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でやるものをマクロ化しようとしています。 検索して見つかったセルの右隣のセルの値を取得するにはどうしたらいいですか?
- mougmoug
- お礼率99% (225/226)
- Visual Basic
- 回答数3
- ありがとう数3
- みんなの回答 (3)
- 専門家の回答
質問者が選んだベストアンサー
No.2 訂正です。 すみません。 If obj = Nothing Then → If obj Is Nothing Then ですね。
その他の回答 (2)
- jin34
- ベストアンサー率80% (17/21)
このままだと「タナカ」が見つからなかったときにエラーが出るので、 エラー処理を噛ませたほうがいいと思います。 取得した値を変数ansに入れるマクロです。 見つからないとき、見つかったときそれぞれでメッセージを表示します。 Dim obj As Object Dim AA As String Dim ans As Variant Dim c As Integer Dim r As Integer AA="タナカ" Set obj = Selection.Find(What:=AA, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, MatchByte:=False, SearchFormat:=False) If obj = Nothing Then MsgBox "見つかりませんでした。" Else c = Selection.Find(What:=AA, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, MatchByte:=False, SearchFormat:=False).Column r = Selection.Find(What:=AA, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, MatchByte:=False, SearchFormat:=False).Row ans = Cells(r, c+1).Value MsgBox ans End If
お礼
ありがとうございます。 参考にして使っています
補足
If obj = Nothing Then ここでオブジェクトエラーでませんか?
- n-jun
- ベストアンサー率33% (959/2873)
~False).Offset(0,1).Activate が右(1つ)隣です。 ⇒-1は左(1つ)隣。 Offset( 行 , 列)になりますから、 Offset(1,0)は下に1つ Offset(-1,0)は上に1つ Offset(1,1)は右下 とか。
お礼
Offset は使ったことがなかったです! ありがとうございます1
関連するQ&A
- 検索した後の見つかった件数を取得したい
画像のように手作業で検索した場合、下に検索結果の個数が表示されますが これを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(エクセル)
- エクセルのマクロについていくつか質問があります
エクセルのマクロについていくつか質問があります 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製品
- エクセル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製品
- 文字検索マクロで質問です。
文字検索マクロで質問です。 下記のマクロを作成したのですが、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 以上、宜しくお願い致します。
- 締切済み
- その他([技術者向] コンピューター)
- 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
- ベストアンサー
- オフィス系ソフト
- Excel VBA Findで日付だけのセルが検索できない
日付のセルを検索するために、以下のような処理をさせていますが、日付だけのセルが検索できません。 【例】(1)は検索できますが、(2)が検索されません。 (1) 2010/03/05が誕生日 (2) 2010/03/05 (※(1)、(2)共に検索できるようにしたいと思っています。) Dim FoundCell as Variant Dim search_words as String search_words = "20??/*/" Set FoundCell = Cells.Find(what:=search_words,After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, MatchByte:=False) ※Excel2003を使用しています。
- 締切済み
- オフィス系ソフト
- 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(エクセル)
- マクロエラ-
初心者です。win2000,エクセルでマクロが途中で止まってしまいます。時々に、最後までいくことがありますが、8割がたは、同じところでストップします。 マクロ言語は理解できていません。 うまく完了のケ-スは、デ-タの中身次第かなと思います。 記憶では、”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で数字のあるセルにマーカーをつける
Excelで数字のあるセルにマーカーをつける Excelで数字のあるセルにマーカーをつけたいと思っています。 列F,G,I,Jに0.3、1,400や4といった数字がありその数字にマーカーをつけたいです。 wordで[1-9]を検索するように正規表現が使えればいいのですが Excelでは出来ないのでしょうか? Selection.Find(What:="1", After:=ActiveCell, LookIn:=xlValues, LookAt:= _ xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _ False, MatchByte:=False, SearchFormat:=True).Activate でひとつずつ探すしかないのでしょうか? 何かやり方をご存知の方、知恵をお貸し下さい。 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- VBAエラー:オブジェクト変数またはWithブロック変数が設定されていません。
Book1.xlsのSheet1~Sheet8を選択し、それらのシート内から、ABCDEFGという文字検索をさせたいのですが、実行させると「実行時エラー'91':オブジェクト変数またはWithブロック変数が設定されていません。」というエラーとなってしまいます。 マクロの記録で作成したマクロを元にしているので、コードがおかしいとは思えないのですが・・・ どなたか、解決策を、ご教授下さいませ。 よろしくお願い致します。 ------------------ Sub TEST() Workbooks("Book1.xls").Sheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet7", "Sheet8")).Select Cells.Find _ (What:="ABCDEFG", _ After:=ActiveCell, _ LookIn:=xlFormulas, _ LookAt:=xlPart, _ SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=False, _ MatchByte:=False, _ SearchFormat:=False).Activate End Sub
- ベストアンサー
- Visual Basic
お礼
OKでした!!!