如何在同一行添加多个 VBA WorksheetFunctions

Question

遇到 VBA 和长公式的一些问题来计算哪个发射点最接近目的地。

运行时错误 438

对象不支持此属性或方法。

我已经尝试了几种不同的方法来做到这一点，因为我对此还是陌生的，所以我希望有人能帮忙。

代码如下：

Sub GetClosestLocation(dest_lat, dest_long)
Dim sp As Variant
Dim expr, a, b, c, launch_name, launch_lat, launch_long As Range

'Get Names on Launch Points sheet
a = Sheets("Launch Points").Range("F" & Rows.Count).End(xlUp).Row
expr = "F10" + Trim(Str(a))

Set launch_name = Sheets("Launch Points").Range(expr)

'Get Lattitudes on Launch Points sheet
b = Sheets("Launch Points").Range("B" & Rows.Count).End(xlUp).Row
expr = "B10" + Trim(Str(b))

Set launch_lat = Sheets("Launch Points").Range(expr)

'Get Longitudes on Launch Points sheet
c = Sheets("Launch Points").Range("C" & Rows.Count).End(xlUp).Row
expr = "C10" + Trim(Str(c))

Set launch_long = Sheets("Launch Points").Range(expr)

With Application
    sp = .Lookup(1, 1 / .Frequency(0, .Sin((.Radians(launch_lat - dest_lat)) / 2) ^ 2 + .Sin((.Radians(launch_long - dest_long)) / 2) ^ 2 * .Cos(.Radians(launch_lat)) * .Cos(.Radians(dest_lat))), launch_name)
End With

    Range("F17") = sp
    
End Sub

我希望得到离目的地最近的发射点

在 VBA 之外运行代码工作正常。

Answer 1

未经测试，因为我没有任何测试数据，但像这样的东西应该可以工作：

Function GetClosestLocation(dest_lat, dest_long)
    
    Dim f As String, lr As Long, ws As Worksheet
    
    f = "=LOOKUP(1, 1 / FREQUENCY(0, SIN((RADIANS(B10:B119 - <dlat>)) / 2) ^ 2 + " & _
        "SIN((RADIANS(C10:C<lr> - <dlong>)) / 2) ^ 2 * COS(RADIANS(B10:B<lr>)) * " & _
        "COS(RADIANS(<dlat>))), F10:F<lr>)"
    
    Set ws = ThisWorkbook.Worksheets("Launch Points")
    
    lr = ws.Range("F" & Rows.Count).End(xlUp).Row
    f = Replace(f, "<lr>", lr)
    f = Replace(f, "<dlat>", dest_lat)
    f = Replace(f, "<dlong>", dest_long)
    
    GetClosestLocation = ws.Evaluate(f)
    
End Function