对Sub及Function语句的定义

cui26896

调用 Sub 和 Function 过程

若要从其他过程中调用某个 Sub 过程，请键入该过程的名称并包含任何所需的参数值。To call a Sub procedure from another procedure, type the name of the procedure and includevalues for any required arguments. 不需要使用 Call 语句，但如果使用了该语句，则必须将任何参数包含在圆括号内。The Callstatement is not required, but if you use it, you must enclose any arguments inparentheses.

You can use a Subprocedure to organize other procedures so they are easier to understand anddebug.You can use a Subprocedure to organize other procedures so they are easier to understand anddebug. In the following example, the Sub procedure Main calls the Subprocedure MultiBeep, passing the value 56 for its argument.In the following example, the Sub procedure Main calls the Sub procedure MultiBeep, passing the value 56 for its argument.

当 MultiBeep 运行后，控件返回到 Main，且 Main 调用 Sub 过程 Message。AfterMultiBeep runs, control returns to Main, and Main calls the Sub procedure Message. Message 显示一个消息框，当用户单击“确定”**** 时，控件返回到 Main，且 Main 完成。Message displays a message box; when the userclicks OK, control returns to Main, and Main finishes.

VB复制

Sub Main()

MultiBeep 56

Message

End Sub

Sub MultiBeep(numbeeps)

For counter = 1 Tonumbeeps

Beep

Next counter

End Sub

Sub Message()

MsgBox "Timeto take a break!"

End Sub

使用多个参数调用Sub 过程Call Subprocedures with more than one argument

下面的示例演示了使用多个参数调用 Sub 过程的两种方法。The following example shows two ways to calla Sub procedure with more than one argument. 第二次调用它时，需要将参数包含在圆括号内，因为使用了Call 语句。The second time it is called,parentheses are required around the arguments because the Call statementis used.

VB复制

Sub Main()

HouseCalc 99800, 43100

Call HouseCalc(380950, 49500)

End Sub

Sub HouseCalc(price AsSingle, wage AsSingle)

If 2.5 * wage <= 0.8 * price Then

MsgBox "Youcannot afford this house."

Else

MsgBox "Thishouse is affordable."

End If

End Sub

在调用Function 过程时使用圆括号Useparentheses when calling function procedures

若要使用函数的返回值，请将该函数分配给变量并将参数包含在圆括号内，如以下示例所示。To use the return value of a function, assignthe function to a variable and enclose thearguments in parentheses, as shown in the following example.

VB复制

Answer3 = MsgBox("Areyou happy with your salary?", 4, "Question3")

如果对函数的返回值不感兴趣，则可以按照调用 Sub 过程的同样方式调用函数。If you are not interested in the return valueof a function, you can call a function the same way you call a Subprocedure. 省略圆括号，列出参数，且不要将函数分配给变量，如以下示例所示。Omit the parentheses, list thearguments, and do not assign the function to a variable, as shown in thefollowing example.

VB复制

MsgBox "TaskCompleted!", 0, "Task Box"

如果您在上述示例中包含圆括号，则该语句将导致语法错误。If you include parentheses in thepreceding example, the statement causes a syntax error.

传递命名参数Pass named arguments

Sub 或 Function 过程中的语句可使用命名参数将值传递给所调用的过程。A statement in a Sub or Functionprocedure can pass values to called procedures by using named arguments. 您可以按照任何顺序列出命名参数。You can list named arguments inany order. 命名参数包含参数的名称后跟一个冒号和一个等号 (:=) 以及分配给该参数的值。A named argument consists of the name of the argument followed bya colon and an equal sign (:=), and the value assigned to the argument.

以下示例使用命名参数调用 MsgBox 函数，而不返回任何值。The following example calls the MsgBoxfunction by using named arguments with no return value.

VB复制

MsgBox Title:="TaskBox", Prompt:="TaskCompleted!"

以下示例使用命名参数调用 MsgBox 函数。The following example calls the MsgBoxfunction by using named arguments. 将返回值分配给变量。The return value is assigned tothe variable.

VB复制

answer3 = MsgBox(Title:="Question 3", _

Prompt:="Areyou happy with your salary?", Buttons:=4)

另请参阅See also

·        在代码中使用圆括号

cui26896

在代码中使用圆括号

Sub过程、内置语句和一些方法不返回值, 因此不会将参数括在括号中。 例如：

MySub"stringArgument", integerArgument

函数过程、内置函数和一些方法都返回一个值, 但您可以忽略它。 如果忽略返回值，则不包括括号。 就像调用 Sub 过程一样调用此函数。 省略括号，列出任何参数，并且不将此函数分配给变量。 例如：

MsgBox"Task Completed!", 0, "Task Box"

若要使用函数的返回值，请将参数包含在括号中，如下面的示例所示。

Answer3= MsgBox("Are you happy with your salary?", 4, "Question3")

Sub或Function过程中的语句可以使用命名参数将值传递给被调用的过程。不管您是否使用命名参数，针对使用括号的指南都适用。 当您使用命名参数时，您可以按任意顺序列出它们，并且您可以省略可选的参数。 命名参数的后面总是跟有一个分号和一个等号 (:=)，然后是参数值。

下面的示例使用命名参数调用MsgBox函数, 但它将忽略返回值。

MsgBoxTitle:="Task Box", Prompt:="Task Completed!"

下面的示例使用命名参数调用MsgBox函数, 并将返回值分配给变量。

answer3= MsgBox(Title:="Question 3", _

Prompt:="Are you happy with yoursalary?", Buttons:=4)

cui26896

真是此一时，彼一时，按照现行所有能看到的正常说法，VBA没有return语句，但在官方的定义中，我惊异地发现，现在已经有了！！！


GoSub .。。Return 语句

分支到过程中的子例程并从该子例程返回。

语法

GoSub line
...行
行...
Return

Line 参数可以是任何行标签或行号。

备注

可以在过程中的任何位置使用 GoSub 和 Return，但 GoSub 和相应的 Return 语句必须在同一个过程中。 虽然一个子例程可以包含多个 Return 语句，但遇到的第一个 Return 语句会导致执行流分支回到紧跟最新执行的 GoSub 语句的语句。

备注

无法使用 GoSub...Return 进入或退出 Sub 过程。

提示

通过创建可调用的独立过程，可以提供针对使用 GoSub...Return 的更加结构化的替代项。

示例

此示例使用 GoSub 调用 Sub 过程中的子例程。 Return 语句将导致执行在紧跟 GoSub 语句的语句上继续。 Exit Sub 语句用于防止控件意外地流入子例程中。

VB 复制

Sub GosubDemo()

Dim Num

' Solicita number from the user.

Num = InputBox("Enter a positivenumber to be divided by 2.")

' Only useroutine if user enters a positive number.

If Num > 0 Then GoSub MyRoutine

Debug.Print Num

Exit Sub ' Use Exit to prevent an error.

MyRoutine:

Num = Num/2 ' Perform the division.

Return ' Return control tostatement.

End Sub ' following the GoSubstatement.

忘得快

lsdongjh 发表于 2019-6-24 11:35
其实没必要说这么复杂，两者总体上一致，唯一的、最大的区别是funciton可以有返回值！
简单的说：
    如 ...

请教各位大侠：Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long，64位的VBA提示错误，请问如何解决？谢谢！

忘得快

cui26896 发表于 2019-6-24 12:36
了解命名参数和可选参数

当您调用**Sub** 或**Function** 过程时, 您可以按它们出现在过程定义中的顺序 ...

请教各位大侠：Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long，此语句64的Excel文件不可用，请问如何解决？谢谢！