Question

Excel 在 VBA 中，如何获取 Function 的返回值

Answer 1

请测试一下,可据实修改:
Function GetTextPair(Optional docStyle As String = "TTK", Optional bTag As String = "{[", Optional eTag As String = "]}") As String
Dim bPosition As Long
Dim ePosition As Long
Dim textPair As String
Dim temp As String
temp = ""
With Selection
.Start = 0
.End = 0
End With
With Selection.Find
.ClearFormatting
.Style = docStyle
.Format = True
.Forward = True
.Text = ""
.Wrap = wdFindStop
Do While .Execute = True
textPair = Selection.Text
bPosition = InStr(textPair, bTag) + 2
ePosition = InStr(textPair, eTag)
If bPosition > 0 And ePosition > 0 Then
temp = temp & "||||" & Mid$(textPair, bPosition, ePosition - bPosition)
End If
Loop
End With
GetTextPair = temp
End Function
Sub Example()
MsgBox GetTextPair
End Sub

Answer 2

使用等号就可以，例如函数abs，要获得去返回值在变量x中，语句为：
x = abs(-5)

Answer 3

直接等于就可以吧？ a=MyFunction