UDF函数不显示结果

Question

嗨，伙计们，这可能吗？

这个函数是怎么回事。Z变量不显示结果。

Function Translate_H() As String
Worksheets("Dictionary").Activate
Dim O As Integer
Dim z As String
Dim Position_V2 As String
For O = 14 To 16
Position_V2 = Worksheets("Home").Cells(O + 1, 6).Address
Next O
Worksheets("Dictionary").Activate
z = WorksheetFunction.VLookup(Position_V2, Worksheets("Dictionary").Range("$A$48:$AL$50"), 3, 0)

'Application.Volatile
'WorksheetFunction.Match(2, Worksheets("Dictionary").Range("$B$1:$AL$1"), 0) + 1, 0)

Translate_H = z
Application.Volatile
End Function

Answer 1

你需要给你的函数添加一个参数。然后在F15:F17中用作=Translate_H(ROW())。

Function Translate_H(r As Long) As String
    
    Dim Position_V2 As String, rngLookUp As Range
    Set rngLookUp = Worksheets("Dictionary").Range("A48:AL50")
    Position_V2 = Worksheets("Home").Range("F" & r).Address
    
    Translate_H = WorksheetFunction.VLookup(Position_V2, rngLookUp, 3, 0)
    Application.Volatile

End Function