Arquivo de etiquetas: varargs

VBA varargs 2

Esse exemplo Function Substitui(ParamArray var() As Variant) As String Dim i As Integer Dim str As Variant On Error Resume Next str = var(0) On Error GoTo 0 For i = LBound(var) + 1 To UBound(var) str = Replace(str, “{” … Continuar a ler

Publicado em Visual Basic 6.0 e VBA | Etiquetas , | Publicar um comentário

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 … Continuar a ler

Publicado em Visual Basic 6.0 e VBA | Etiquetas , | Publicar um comentário