[VBA] sorteren van verschillende variabelen

[BovenHond]

In een formulier heb ik een viertal waarden in kunnen vullen. nu wil ik graag dat deze worden gesorteerd.

een voorbeeld
a=4 b=2 c=8 d=1
moet geven: dbac

en
a=1 b=2 c=3 d=4
moet geven: abcd

nu kan ik dit realiseren op de volgende manier

Visual Basic:

public function berekenvolgorde(a,b,c,d) as string
if a < b and b <c and c <d then output= "abcd"
if a< b and b< d and d<c then output = "abdc"
if a<c and c<b and b<d then output = "acbd"
'etc 
'etc.. voor 24 regels

berekenvolgorde = output
end function

Is er een elegantere manier om dit op te lossen?

[ Voor 10% gewijzigd door BovenHond op 14-06-2006 16:25 ]

[lier]

Je zou kunnen kiezen voor een recursieve functie.

Bepaal eerst welke op plaats één moet.
Bepaal vervolgens welke op de volgende plaats moet.
Enz.

In dit geval levert het een reductie van ongeveer 20 regels code...

[zwippie]

VBA heeft helaas geen uitgebreide collection types zoals List, Set etc. Dat zou het handigst zijn geweest denk ik. Er is wel een Collection type, maar die is niet Sortable.

Hier staat misschien wel wat nuttigs, een bubblesort op een Collection.

[BestTested!]

Ik zou het op de volgende manier oplossen:

code:

Private Type toBeSorted
  identity As String
  number As Double
End Type


Dim entries(0 To 3) As toBeSorted


Sub Test()

entries(0).identity = "a"
entries(0).number = "4"

entries(1).identity = "b"
entries(1).number = "2"

entries(2).identity = "c"
entries(2).number = "8"

entries(3).identity = "d"
entries(3).number = "1"

dim sortedEntries(0 to 3) as toBeSorted
sortedEntries = quicksort (entries)

sortedString = ""
For i = 0 To UBound(entries)
  sortedString = sortedString & sortedEntries (i).identity
Next i

MsgBox sortedString

End Sub

Je moet dan alleen even een quicksort algoritme maken (lees google+copy+paste).
Je houdt dan ook uitbreidbaar indien er meer variabelen bijkomen.

[ Voor 9% gewijzigd door BestTested! op 14-06-2006 20:58 ]

[NMe]

VBA is zo Office-specifiek dat het thuishoort in Officesuites en -software, zoals je ook had kunnen lezen in Waar hoort mijn topic?.

PRG>>OFF

[BovenHond]

-NMe- schreef op woensdag 14 juni 2006 @ 17:14:
VBA is zo Office-specifiek dat het thuishoort in Officesuites en -software, zoals je ook had kunnen lezen in Waar hoort mijn topic?.

PRG>>OFF

true, prima

moderators hebben altijd gelijk... ik heb echter gerederneerd dat het probleem niet office gerelateerd is maar zuiver VB. Anyway, het maakt mij niet uit.

Bedankt voor de input, ik ga er morgen mee aan de slag

[ Voor 8% gewijzigd door BovenHond op 14-06-2006 21:22 ]