合格範圍變量

Question

而且我先前的問題，我已經定義了幾個範圍，

例如：

Sheets(「Customers」).Activate 
    Set MYR1 = Range(Cells(1, 1), Cells(1, 25)) 
    Set MYR2 = Range(Cells(5, 1), Cells(5, 25)) 
    Set MYR2 = Range(Cells(16, 1), Cells(16, 25)) 

我還設置了以下子程序

Sub Findany(rngToSearchIn As Range) 
    Set foundrange = rngToSearchIn.Find(what:=i) 
     If foundrange Is Nothing Then 
       Do Something 
     Else 
       Do Something Else 
     End If 
    End Sub 

我的問題現在我怎麼能讓調用子程序每次更新範圍名稱，每次調用Findany子程序時

例如

Call Findany(MYR1) 




Call Findany((MYR2) 

Answer 1

Dim arr(1 to 3) As Range, i 

With Sheets(「Customers」) 
    Set arr(1) = .Range(.Cells(1, 1), .Cells(1, 25)) 
    Set arr(2) = .Range(.Cells(5, 1), .Cells(5, 25)) 
    Set arr(3) = .Range(.Cells(16, 1), .Cells(16, 25)) 
End With 

For i = 1 to 3 
    Findany arr(i) 
Next i