查找date之间的检查

我需要VBA代码查找function，检查是否有两个date之间的值。 我的问题是如何在VBA中编写这个“2; 1 /”？

=LOOKUP(2;1/((J3>=Sheet2!$B$2:$B$25)*J3<=Sheet2!$C$2:$C$25));Sheet2!$F$2:$F$25) 

我可以写些什么？

 abc=application.Lookup(2;1/((Cells(3,10)>=Worksheets("Sheet2").Range(B2:B25)*Cells(3,10)<=Worksheets("Sheet2").Range(C2:C25));Worksheets("Sheet2").Range(F2:F25) 

Answer 1

我在猜测; 是塞尔维亚的默认分隔符，所以应该没问题。
另一方面，你的托架是在错误的地方 – 在最后一个前托架closures; 最后的右括号没有附带的开口支架。

要用VBA编写，你可以使用：

使用表单代号：

 r = Application.WorksheetFunction.Lookup _ (2; 1 / (J3 >= Sheet2.Range("$B$2:$B$25")) * J3 <= Sheet2.Range("$C$2:$C$25"); Sheet2.Range("$F$2:$F$25")) 

使用工作表标签名称：

 r = Application.WorksheetFunction.Lookup _ (2; 1 / (J3 >= Worksheets("Sheet2").Range("$B$2:$B$25")) * J3 <= Worksheets("Sheet2").Range("$C$2:$C$25"); Worksheets("Sheet2").Range("$F$2:$F$25")) 

将范围添加到variables并使用它们：

 Dim MyRange1 As Range Dim MyRange2 As Range Dim MyRange3 As Range MyRange1 = Worksheets("Sheet2").Range("$B$2:$B$25") MyRange2 = Worksheets("Sheet2").Range("$C$2:$C$25") MyRange3 = Worksheets("Sheet2").Range("$F$2:$F$25") r = Application.WorksheetFunction.Lookup _ (2; 1 / (J3 >= MyRange1) * J3 <= MyRange2; MyRange3) 

我没有真正使用LookUp，所以不能说公式是否会返回你期望的结果。