Avatar billede rvm Nybegynder
31. januar 2007 - 10:10 Der er 1 løsning

VBA Sub med Array som Optional parameter

Jeg har brug for nogen gange at overføre et Array til en Sub og ville derfor lave en funktion som så ud som nedenstående:

Sub StiStruktur(Optional arrayParam() As String)

men det kan tilsyneladende ikke lade sig gøre at bruge Optional sammen med et Array

Jeg brugte oprindeligt en collection der godt kan være Optional, men har nu fået brug for også at få Collectionens Key, hvilket ikke kan lade sig gøre. Derfor opretter jeg nu et Array i stedet.

Nogen der har en løsning?
Avatar billede rvm Nybegynder
31. januar 2007 - 10:56 #1
I var for langsomme :-)

Her er løsningen:

Sub StiStruktur(Optional arrayParam As Variant)
Dim i As Integer

If IsMissing(arrayParam) Then

Else
  If IsArray(arrayParam) Then
      For i = LBound(arrayParam) To UBound(arrayParam, 2)
        Debug.Print arrayParam(0, i)
        Debug.Print arrayParam(1, i)
      Next
  Else
      Debug.Print arrayParam
  End If
End If

End Sub
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

IT-JOB