エクセルＶＢＡ セルを参照した文字検索でシートをアクティブにする

質問

VBA初心者で困っています。

ブックＡのシート１の“Ａ１”の値が、同一ブック内の違うシートにあるかどうか検索し、あればそのセルをアクティブにして黄色に色づけ、なければメッセージを返すという処理をＶＢＡで行いたいです。

似たような質問があってそれを参考にしてみましたが
どうも上手く動いてくれません。

参考にさせていただいたのは
　　Set r = Workbooks("ブックＢ.xls").Sheets("シート１").Columns("A") _
　　　　.Find(What:=Workbooks("ブックＡ.xls").Sheets("シート１").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

というコードです

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

回答No.2

n-jun · ベストアンサー

＃１です。

＞If ws.Name < AAA > "Sheet1" Then
If ws.Name <> "Sheet1" Then
こうでは？

上記のIf文がTrue（成立）にならないので変数：chがFalseのままになっているため、
MsgBox"no data"がでてしまうのかと。

お礼

出来ました！！
ありがとうございました！！
感激です、これで会社に役立てそうです！！！
ありがとうございました！

回答No.1

n-jun

参考にしたコードではなく、実際に作成し動かないコードを提示し且つどのように
上手くいかないのか書かれた方が宜しいかも。

例えるなら
Sub　try()
　Dim　ws　As　Worksheet
　Dim　r　As　Range
　Dim　ch　As　Boolean

　ch　=　False
　For　Each　ws　In　Worksheets
　　　　　If　ws.Name　<>　"Sheet1"　Then
　　　　　　　　Set　r　=　ws.Cells.Find(Worksheets("Sheet1").Range("A1").Value,　_
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　LookIn:=xlValues,　_
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　LookAt:=xlWhole,　_
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　SearchOrder:=xlByColumns,　_
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　SearchDirection:=xlNext,　_
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　MatchCase:=True)

　　　　　　　　If　Not　r　Is　Nothing　Then
　　　　　　　　　　　ws.Activate
　　　　　　　　　　　r.Select
　　　　　　　　　　　r.Interior.ColorIndex　=　6
　　　　　　　　　　　ch　=　True
　　　　　　　　End　If
　　　　　End　If
　Next
　If　ch　=　False　Then　MsgBox　"no　data"
　Set　r　=　Nothing
End　Sub

こうゆう事なのかな？

補足

早速のご回答ありがとうございます
自分ではとても思いつかず、いくら考えてもダメだったと思います

検索するのはブックAAA の Sheet1 のセルQ13に入っているBBBという内容だとします

Sub try()
Dim ws As Worksheet
Dim r As Range
Dim ch As Boolean

ch = False
For Each ws In Worksheets
If ws.Name < AAA > "Sheet1" Then
Set r = ws.Cells.Find(Worksheets("Sheet1").Range("Q13").Value, _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, _
MatchCase:=True)

If Not r Is Nothing Then
ws.Activate
r.Select
r.Interior.ColorIndex = 6
ch = True
End If
End If
Next
If ch = False Then MsgBox "no　data"
Set r = Nothing
End Sub

として試してみましたが
他のシートに　BBB　という単語があるにも関わらず
no dataが出てしまいます

私にはこれで正しいように思えるのですが・・・・
どこがいけないのでしょうか・・・・