【002】对函数的引用_#VBA

声明：本文所有代码主要基于office_2016版本编写而成

对函数的引用

Sub/Function

引用 Sub

Sub Procedure()
	First					'程序无返回值
	Scond(One)				'程序只有一个返回值
	Call Third(One, Two)	'程序有两个或两个以上的返回值
End

sub First()
	MsgBox "函数无返回值"
End

sub Scond(One)
	One = 1
	MsgBox "程序只有一个返回值，且" & One & "为返回值" 
End

sub Third(One, Two)
	One = 1
	Two = 2
	MsgBox "程序有两个返回值，且" & One & "和" & Two &"为返回值" 
End

引用 Function

Sub Procedure()
	Call Special(One, Two)	'程序有两个或两个以上的返回值
End

sub Special(One, Two)
	One = 1
	Two = 2
	MsgBox "程序有两个返回值，且" & One & "和" & Two &"为返回值" 
End

说明

• Sub
  • 该函数特点，在没有返回值或者只有一个返回值时，可以不用加Call
• Function
  • 该函数特点，不管在任何时候使用这个架构下的程序，都要加Call

参考地址：https://docs.microsoft.com/zh-cn/office/client-developer/excel/excel-home?redirectedfrom=MSDN
该代码仅供学习，如商业转载请联系本人，非商业转载请注明出处

---

#加油#