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, "{" & i & "}", var(i), , , vbTextCompare)
 Next i
 Substitui = str
End Function

 

Uso:

?Substitui(“O {1} está estudando {2} e pretende passar na {3}“, “Henrique”, “música”, “EMESP”)
O Henrique está estudando música e pretende passar na EMESP

Faça o download do código e da planilha de exemplo VBA VARARGS 2.xlsm

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