Excel VBA如何從函數返回變量

Question

代碼示例：

Sub

   Dim NOSSPrefix As String
   NOSSPrefix = Cells(1, 6).Value
   NOSSSpecific(NOSSPrefixSpec)

End Sub

---

Function NOSSSpecific(NOSSPrefixSpec)

   If NOSSPrefixSpec = "6" Or NOSSPrefixSpec = "17" Or NOSSPrefixSpec = "19" Then
       NOSSPrefix = NOSSPrefixSpec        
   Else
       NOSSPrefix = "999"
   End If

End Function

---

嘗試了alreaddy return，set，...只想將NOSSPrefix從函數返回到上面的例程。

Answer 1

像這樣的東西：

Sub Main()
    Dim NOSSPrefixSpec As String
    NOSSPrefixSpec = "12"
    Debug.Print NOSSSpecific(NOSSPrefixSpec) //Returns "999"
End Sub

Function NOSSSpecific(NOSSPrefixSpec As String) As String
    If NOSSPrefixSpec = "6" Or NOSSPrefixSpec = "17" Or NOSSPrefixSpec = "19" Then
        NOSSSpecific = NOSSPrefixSpec
    Else
        NOSSSpecific = "999"
    End If
End Function

注意：

• 您必須定義NOSSPrefix 。 我把它改成了NOSSPrefixSpec
• 我已經明確地將String添加為函數參數類型並返回值