VBA varargs

Function Soma(ByVal par1 As String, ParamArray var() As Variant) As Double
 Dim i As Integer
 Dim tmp As Double
   For i = LBound(var) To UBound(var)
     If IsNumeric(var(i)) Then tmp = tmp + var(i)
   Next
 Soma = tmp
 Debug.Print par1
End Function

Veja:
https://msdn.microsoft.com/pt-br/library/ct363x9h.aspx

Uso:
?soma("pedro",1,2,3)
Esta entrada foi publicada em Visual Basic 6.0 e VBA com as etiquetas , . ligação permanente.

Deixe uma Resposta

Preencha os seus detalhes abaixo ou clique num ícone para iniciar sessão:

Logótipo da WordPress.com

Está a comentar usando a sua conta WordPress.com Terminar Sessão / Alterar )

Imagem do Twitter

Está a comentar usando a sua conta Twitter Terminar Sessão / Alterar )

Facebook photo

Está a comentar usando a sua conta Facebook Terminar Sessão / Alterar )

Google+ photo

Está a comentar usando a sua conta Google+ Terminar Sessão / Alterar )

Connecting to %s