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でやるものをマクロ化しようとしています。

検索して見つかったセルの右隣のセルの値を取得するにはどうしたらいいですか？

回答No.3

jin34 · ベストアンサー

No.2 訂正です。
すみません。
If obj = Nothing Then →　If obj Is Nothing Then
ですね。

お礼

OKでした！！！

回答No.2

jin34

このままだと「タナカ」が見つからなかったときにエラーが出るので、
エラー処理を噛ませたほうがいいと思います。
取得した値を変数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

ここでオブジェクトエラーでませんか？

回答No.1

n-jun

～False).Offset(0,1).Activate

が右（１つ）隣です。
⇒－１は左（１つ）隣。

Offset( 行 , 列）になりますから、
Offset(1,0)は下に１つ
Offset(-1,0)は上に１つ

Offset(1,1)は右下　とか。

お礼

Offset　は使ったことがなかったです！
ありがとうございます１