撰寫副程式

Sub程式是由Sub和End Sub語句所括住的一系列 Visual Basic語句，這些語句會執行動作，但不會傳回值。 Sub程式可以接受引數，例如呼叫程式所傳遞的常數、變數或表達式。 如果 Sub 程式沒有引數， Sub 語句必須包含一組空的括弧。

下列 Sub 程式有說明每一行的批註。

' Declares a procedure named GetInfo 
' This Sub procedure takes no arguments 
Sub GetInfo() 
    ' Declares a string variable named answer 
    Dim answer As String 
    ' Assigns the return value of the InputBox function to answer 
    answer = InputBox(Prompt:="What is your name?") 
    ' Conditional If...Then...Else statement 
    If answer = Empty Then 
        ' Calls the MsgBox function 
        MsgBox Prompt:="You did not enter a name." 
    Else 
        ' MsgBox function concatenated with the variable answer 
        MsgBox Prompt:="Your name is " & answer 
        ' Ends the If...Then...Else statement 
    End If 
    ' Ends the Sub procedure 
End Sub

另請參閱

• Visual Basic 概念主題

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。