VBAを使用して検索する：=シート内の値を取得する

Question

皆様におかげさまで、本当に素朴なVBAコードで私を形にしてくださったことに感謝しています。私が進歩するにつれて、私は新しい問題に取り組んでいます。

私の挑戦は、このコードを使用して、開いているすべてのブックで値を見つけることです。見つかった場合、残りのコードが実行されます。私は、エンドユーザーがコードに入ることなく、見つかった価値を簡単に変更できるようにしたいと考えています。そこで、Data Specsと呼ばれるThisWorkbookに新しいシートを追加しました。私は自分のコードが何かを見つけ出すと、セル内のこのシートの値が何であってもそれを探すはずですA2。

Sheets("Add File Here").Select 
If IsEmpty(Range("A1")) Then 
    Worksheets("Master Mapper").Activate 

    Dim answer003 As Integer 
    answer003 = MsgBox("Please check the Data Sheet. No value found in first row! Do you wish to find Cvent003 file in open workbooks and start process?", vbYesNo + vbQuestion, "Review & Proceed") 
    If answer003 = vbYes Then 
'Starts here 
     Dim wSheet As Worksheet 
     Dim wBook As Workbook 
     Dim rFound As Range 
     Dim bFound As Boolean 
     Dim lngLastRow2 As Long 
     Dim Cvent003Val As Long 
     Cvent003Val = ThisWorkbook.Sheets("Data Specs").Cells("A2").Value 
     On Error Resume Next 
     For Each wBook In Application.Workbooks 
      For Each wSheet In wBook.Worksheets 
       Set rFound = Nothing 
       Set rFound = wSheet.Range("D1:D2").Find(What:=Cvent003Val, SearchFormat:=True, After:=wSheet.Range("D1"), _ 
       LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _ 
       SearchDirection:=xlPrevious, MatchCase:=True) 

'rFound.Cells.Select 
       If Not rFound Is Nothing Then 
        bFound = True 
        Application.Goto rFound, True 
'Rows(1, 2).EntireRow.Hidden = True 
        lngLastRow2 = Cells(Cells.Rows.Count, "B").End(xlUp).Row 
        Range("A1:G" & lngLastRow2).Copy 
        ThisWorkbook.Worksheets("Add File Here").Activate 
        Range("A1").Select 
        ActiveSheet.Paste 
        Application.CutCopyMode = False 
        Exit For 
       End If 

       Next wSheet 
       If bFound = True Then Exit For 
       Next wBook 

       If rFound Is Nothing Then 
        MsgBox "No open file for Cvent003 Meetings Found. Make sure the most recent Cvent003 Excel WB is open!", vbCritical + vbOKOnly 
        Exit Sub 
       End If 

Answer 1

これはあなたのために働く必要があります。

After:=wSheet.Range(ThisWorkbook.Sheets("Data Specs").Range("B2").Value) 

あなたはAfterパラメータにRangeオブジェクトを渡す必要があります。そのため、Rangeメソッドの引数としてセルB2の値を使用する必要があります。

EDIT：

変数に、この範囲を設定し、Afterでそれを使用してみてください：

Set afterRange = wSheet.Range(ThisWorkbook.Sheets("Data Specs").Range("B2").Value) 

そしてFind方法で：

After:=afterRange 

あなたもvar = ThisWorkbook.Sheets("Data Specs").Range("B2").Valueを割り当てるために試すことができます変数に変換して使用するSet afterRange = wSheet.Range(var)

EDIT2：

私はちょうどコードと検索された値を持つ2つのワークブックで完全にチェックしました。すべてが私にとってうまくいっていた。私はこのコードを使用：

Sub test() 
Set wsheet = Workbooks("test2").Sheets("Sheet1") 
Set rfound = wsheet.Range("D1:D2").Find(What:=ThisWorkbook.Sheets("Data Specs").Range("A2"), SearchFormat:=True, _ 
       After:=wsheet.Range(ThisWorkbook.Sheets("Data Specs").Range("B2")), _ 
       LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _ 
       SearchDirection:=xlPrevious, MatchCase:=True) 

rfound.Select 
End Sub 

そして、ここではその結果です：

コードmaster.xslmから実行されるとデータの仕様は、マスターワークブックです。検索された値は、Sheet1のtest2にあります。あなたは値が適切に見つかったことを即時ウィンドウで見ることができます。