こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

エクセルVBA セルを参照した文字検索

どなたか教えてください。

ブックAのシート1の“A1”の値が、ブックBのシート1のA列に完全一致であるかどうかを検索し、あればそのセルをアクティブ、なければメッセージを返すという処理をVBAで行いたいです。

Findメソッドを使うのかなというのは、なんとなくわかるのですが、検索値が毎回異なり直接検索値をコードに記入できないこと、異なるブックで検索することなどにより、コードの記載方法がわかりません。

どなたか、わかる方お教えください。

投稿日時 - 2007-08-06 21:02:14

QNo.3233319

すぐに回答ほしいです

質問者が選んだベストアンサー

こんにちは。

Sub sample1()
  Dim r As Range '検索結果セル格納用Range型変数

  Set r = Workbooks("ブックB.xls").Sheets("シート1").Columns("A") _
    .Find(What:=Workbooks("ブックA.xls").Sheets("シート1").Range("A1").Value, _
       LookIn:=xlValues, _
       LookAt:=xlWhole, _
       SearchOrder:=xlByColumns, _
       SearchDirection:=xlNext, _
       MatchCase:=True)
  If r Is Nothing Then
    MsgBox "no data"
  Else
    Application.Goto r
    Set r = Nothing
  End If
End Sub

こんな感じです。

投稿日時 - 2007-08-06 21:47:51

お礼

こんばんは。pauNedさん。
即回答ありがとうございました。
そして、コードに貼り付けると、お見事です!100%完璧に出来ました。1人で考えていたら、いつになっても出来なかったと思います。
本当に助かりました。ありがとうございます。

投稿日時 - 2007-08-07 04:27:29

ANo.1

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問