возврат массива из функции в VBA

Question

Все,

Я хотел бы написать функцию, чтобы вернуть массив целых чисел, так что я могу индексировать их, но я не в курсе синтаксиса VBA. Вот псевдо-код:

function getStats() as integer 
dim returnVal(4) as integer 
returnVal(0)=c2percent14 
returnVal(1)=c3percent14 
returnVal(2)=c4percent14 
returnVal(3)=c5percent14 
getStats=returnVal 
end function 
msgbox getStats(3) 

где эти значения являются целыми числами, или должно быть, и тогда я могу индексировать массив возврата для стата, что я хочу. Благодарю.

-Rik

Answer 1

Function getStats() As Variant 

getStats теперь массив, а не Integer

Answer 2

Дайте функцию тип как массив:

function getStats() as integer()  
    dim returnVal(4) as integer 

    returnVal(0)=c2percent14 
    returnVal(1)=c3percent14 
    returnVal(2)=c4percent14 
    returnVal(3)=c5percent14 

    getStats=returnVal 

end function 

Sub mysub() 

    Dim myArray(4) As String 

    myArray = getStats() 

    msgbox myArray(3) 

end sub