次のコードWorksheetFunctionクラス

Question

のルックアッププロパティを取得できません：つまり、それは他のそれが何かを見つける1でカラムを、塗りつぶし、コードで

For i = startRow To startRow + (nRows - 1)  
Set lookUp = Range(col & i) 
Range("I" & i) = IIf(WorksheetFunction.lookUp(lookUp, Sheets("P&C curves").Columns("A")) = lookUp, 1, 0) 
Range("J" & i) = IIf(WorksheetFunction.lookUp(lookUp, Sheets("G Curve").Columns("A")) = lookUp, 1, 0)  
Next i 

、私はWorksheetFunction.lookUpすべてが正常に動作呼んで初めて0になりますが、2行目は機能しません。エラーが表示されます：

Unable to get lookup property of the worksheetfunction class.

どうしてですか？ Excelのシートで同じロジックを直接使用しようとすると動作しますか？

は本当にどうもありがとう

Answer 1

はあなたがしようとしている何本です...任意の助けに感謝しませんか？

For I = startRow To startRow + (nRows - 1) 
    Set Lookup = Range(col & I) 

    On Error Resume Next 

    Ret = WorksheetFunction.Lookup(Lookup, Sheets("P&C curves").Columns("A")) 
    If Err.Number <> 0 Then 
     Range("I" & I) = 0 
     Err.Clear 
    Else 
     If Ret = Lookup Then Range("I" & I) = 1 Else Range("I" & I) = 0 
    End If 

    Ret = WorksheetFunction.Lookup(Lookup, Sheets("G Curve").Columns("A")) 
    If Err.Number <> 0 Then 
     Range("J" & I) = 0 
     Err.Clear 
    Else 
     If Ret = Lookup Then Range("J" & I) = 1 Else Range("J" & I) = 0 
    End If 
Next I