異なるワークシート上のVBA VLookupセル

Question

2つの異なるワークシート上の2つのセルが同じかどうかをチェックするコードを記述しようとしています。そして、それらが同じであれば、VLOOKUPを使用して、異なるセルに割り当てられた値の差を見つけることができます。

これはこれまでに書いたものですが、エラーメッセージが表示され続けます。

オブジェクトはこのプロパティまたはメソッド

をサポートしていないと理由を把握することはできません。誰も入力を与えることができますか？ありがとう！計算を行い、それがある場合は、A506および値が他のシートであるかどうかを確認して：私はこのことを推測してい

Sub testing() 

Product = Range("A2:A506") 
Set myrange = Worksheets("open_prices").Range("A2:D506") 
Set myrange2 = Worksheets("close_prices").Range("A2:B506") 

Dim popen As Integer 
Dim pclose As Integer 

Dim ws As Worksheet 

For Each Cell In Workbooks("TDO VBA Test.xlsx") 
    If Worksheets("open_prices").Range("A2:A506") = Worksheets("close_prices").Range("A2:A506") Then 
      popen = WorksheetFunction.VLookup(Product, myrange, 4, False) 
      pclose = WorksheetFunction.VLookup(Product, myrange2, 2, False) 
      result = popen - pclose 
    End If 
Next Cell 

End Sub 

Answer 1

あなたは1枚のA2内の各セルを反復つまり、やろうとしているものです。

Sub testing() 

    Dim popen As Integer 
    Dim pclose As Integer 
    Dim result As Integer ' Are you sure these are integers? Usually prices will be Double 

    Dim VLookupResult As Variant 
    Dim cel As Range 

    For Each cel In Worksheets("open_prices").Range("A2:A506").Cells 
     popen = cel.Offset(0, 3).Value 
     VLookupResult = Application.VLookup(cel.Value, Worksheets("close_prices").Range("A2:B506"), 2, False) 
     If Not IsError(VLookupResult) Then 
      pclose = VLookupResult 
      result = popen - pclose 
      ' You will need to decide what to do with this "result" now 
      ' that it has been calculated 
     End If 
    Next cel 

End Sub