【EXCELVBA】带返回值的Function_点滴积累

个人资料

微博

正文字体大小：大中小

【EXCELVBA】带返回值的Function

(2018-09-10 20:59:17)

分类： OFFICE办公

http://s13/mw690/002aDYHtzy7nwwMv6r22c&690 在VBA中，Function的返回值是通过函数名返回的，即“返回值=函数名”。

一、返回值为一个值的Function，例如：

Function getResult(ByVal x As Byte, ByVal y As Byte) As Byte

getResult = x + y

End Function

Sub Test()

Dim res As Byte

res = getResult(5,10)

MsgBox (res)

End Sub

二、返回值为多个值的Funtion，使用数组保存返回值，例如：

Function getResult(ByVal x As Byte, ByVal y As Byte) As Byte()

Dim tmpRes(1 To 2) As Byte

tmpRes(1) = x + y

tmpRes(2) = x * y

getResult = tmpRes()

End Function

Sub Test()

Dim arr(1 To 2) As Byte

res = getResult(5, 10)

End Sub

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report