找出variables的范围，使一个简单的function正常工作

下面的VBA例程不工作，我不明白为什么…

我已经尝试在顶部设置一组公共variables，使variables之间的function，但它不工作。

下面代码的最终结果应该使得getthename具有cow的价值

 Sub test() getthename = test2(test1("elephant")) End Sub Function test1(NewTitle As String) As String If NewTitle = "elephant" Then NewTitle = "horse" Else NewTitle = "pig" End If End Function Function test2(NewTitle As String) As String If NewTitle <> "horse" Then NewTitle = "cow" Else NewTitle = "rabbit" End If End Function 

Answer 1

你应该让你的函数实际返回一个值：

 Sub test() getthename = test2(test1("elephant")) End Sub Function test1(NewTitle As String) As String If NewTitle = "elephant" Then test1 = "horse" Else test1 = "pig" End If End Function Function test2(NewTitle As String) As String If NewTitle <> "horse" Then test2 = "cow" Else test2 = "rabbit" End If End Function