Tri d'une multidimensionnal tableau en VBA

J'ai défini le Tableau suivant Dim myArray(10,5) as Long et tiens à les trier. Quelle serait la meilleure méthode pour le faire?

J'ai besoin de gérer un grand nombre de données comme un 1000 x 5 Matrice. Elle contient principalement des nombres et des dates et de la nécessité de trier en fonction d'une certaine colonne

Voir la accepté de répondre à question. Je ne sais pas exactement comment vous souhaitez faire le tri, mais vous pouvez modifier la mise en œuvre de l'algorithme QuickSort cependant vous avez besoin.
Salut BlackLabrador, je pense que nous aurions besoin d'un peu plus d'informations sur ce qu'est exactement que vous voulez faire ici... Êtes-vous en essayant de trier tous les 50 points en une longue liste, ou effectuer un tri par colonne', ou une 'ligne', ou d'une autre façon? Si vous éditez votre post afin d'inclure ce type d'information que vous êtes beaucoup plus susceptibles d'obtenir plus de/plus de réponses utiles.
Merci pour vos commentaires. Allons jeter un oeil à Cody lien

OriginalL'auteur BlackLabrador | 2011-02-02

Voici un multi-colonne et une seule colonne de tri rapide pour VBA, modifiés à partir d'un exemple de code posté par Jim Rech sur Usenet.

Notes:

Vous remarquerez que je fais une beaucoup plus défensive de codage que vous voyez dans la plupart des exemples de code sur le web: c'est un Excel forum, et vous avez à anticiper des valeurs nulles et des valeurs vides... Ou imbriqués les tableaux et les objets dans les tableaux si votre tableau source vient de (disons) un tiers de marché en temps réel de la source de données.

Vide des valeurs et des objets non valides sont envoyés à la fin de la liste.

Votre appel sera:

 QuickSort MyArray,,,2

...en Passant '2' que la colonne à trier et à l'exclusion de l'option paramètres qui passe les limites supérieure et inférieure du domaine de recherche.

[ÉDITÉ] - correction d'une drôle de formatage panne dans le <code> balises, qui semblent avoir un problème avec les liens hypertexte dans les commentaires du code.

Le lien Hypertexte j'excisée a été La détection d'un Tableau de Variant en VBA.

Public Sub QuickSortArray(ByRef SortArray As Variant, Optional lngMin As Long = -1, Optional lngMax As Long = -1, Optional lngColumn As Long = 0)
On Error Resume Next
'Sort a 2-Dimensional array
' SampleUsage: sort arrData by the contents of column 3
'
'   QuickSortArray arrData, , , 3
'
'Posted by Jim Rech 10/20/98 Excel.Programming
'Modifications, Nigel Heffernan:
'       ' Escape failed comparison with empty variant
'       ' Defensive coding: check inputs
Dim i As Long
Dim j As Long
Dim varMid As Variant
Dim arrRowTemp As Variant
Dim lngColTemp As Long
If IsEmpty(SortArray) Then
Exit Sub
End If
If InStr(TypeName(SortArray), "()") < 1 Then  'IsArray() is somewhat broken: Look for brackets in the type name
Exit Sub
End If
If lngMin = -1 Then
lngMin = LBound(SortArray, 1)
End If
If lngMax = -1 Then
lngMax = UBound(SortArray, 1)
End If
If lngMin >= lngMax Then    ' no sorting required
Exit Sub
End If
i = lngMin
j = lngMax
varMid = Empty
varMid = SortArray((lngMin + lngMax) \ 2, lngColumn)
' We  send 'Empty' and invalid data items to the end of the list:
If IsObject(varMid) Then  ' note that we don't check isObject(SortArray(n)) - varMid *might* pick up a valid default member or property
i = lngMax
j = lngMin
ElseIf IsEmpty(varMid) Then
i = lngMax
j = lngMin
ElseIf IsNull(varMid) Then
i = lngMax
j = lngMin
ElseIf varMid = "" Then
i = lngMax
j = lngMin
ElseIf VarType(varMid) = vbError Then
i = lngMax
j = lngMin
ElseIf VarType(varMid) > 17 Then
i = lngMax
j = lngMin
End If
While i <= j
While SortArray(i, lngColumn) < varMid And i < lngMax
i = i + 1
Wend
While varMid < SortArray(j, lngColumn) And j > lngMin
j = j - 1
Wend
If i <= j Then
' Swap the rows
ReDim arrRowTemp(LBound(SortArray, 2) To UBound(SortArray, 2))
For lngColTemp = LBound(SortArray, 2) To UBound(SortArray, 2)
arrRowTemp(lngColTemp) = SortArray(i, lngColTemp)
SortArray(i, lngColTemp) = SortArray(j, lngColTemp)
SortArray(j, lngColTemp) = arrRowTemp(lngColTemp)
Next lngColTemp
Erase arrRowTemp
i = i + 1
j = j - 1
End If
Wend
If (lngMin < j) Then Call QuickSortArray(SortArray, lngMin, j, lngColumn)
If (i < lngMax) Then Call QuickSortArray(SortArray, i, lngMax, lngColumn)
End Sub

... Et le seul tableau de la colonne version:

Public Sub QuickSortVector(ByRef SortArray As Variant, Optional lngMin As Long = -1, Optional lngMax As Long = -1)
On Error Resume Next
'Sort a 1-Dimensional array
' SampleUsage: sort arrData
'
'   QuickSortVector arrData
'
' Originally posted by Jim Rech 10/20/98 Excel.Programming
' Modifications, Nigel Heffernan:
'       ' Escape failed comparison with an empty variant in the array
'       ' Defensive coding: check inputs
Dim i As Long
Dim j As Long
Dim varMid As Variant
Dim varX As Variant
If IsEmpty(SortArray) Then
Exit Sub
End If
If InStr(TypeName(SortArray), "()") < 1 Then  'IsArray() is somewhat broken: Look for brackets in the type name
Exit Sub
End If
If lngMin = -1 Then
lngMin = LBound(SortArray)
End If
If lngMax = -1 Then
lngMax = UBound(SortArray)
End If
If lngMin >= lngMax Then    ' no sorting required
Exit Sub
End If
i = lngMin
j = lngMax
varMid = Empty
varMid = SortArray((lngMin + lngMax) \ 2)
' We  send 'Empty' and invalid data items to the end of the list:
If IsObject(varMid) Then  ' note that we don't check isObject(SortArray(n)) - varMid *might* pick up a default member or property
i = lngMax
j = lngMin
ElseIf IsEmpty(varMid) Then
i = lngMax
j = lngMin
ElseIf IsNull(varMid) Then
i = lngMax
j = lngMin
ElseIf varMid = "" Then
i = lngMax
j = lngMin
ElseIf VarType(varMid) = vbError Then
i = lngMax
j = lngMin
ElseIf VarType(varMid) > 17 Then
i = lngMax
j = lngMin
End If
While i <= j
While SortArray(i) < varMid And i < lngMax
i = i + 1
Wend
While varMid < SortArray(j) And j > lngMin
j = j - 1
Wend
If i <= j Then
' Swap the item
varX = SortArray(i)
SortArray(i) = SortArray(j)
SortArray(j) = varX
i = i + 1
j = j - 1
End If
Wend
If (lngMin < j) Then Call QuickSortVector(SortArray, lngMin, j)
If (i < lngMax) Then Call QuickSortVector(SortArray, i, lngMax)
End Sub

J'ai l'habitude d'utiliser BubbleSort pour ce genre de chose, mais il ralentit, gravement, d'après le tableau dépasse 1024 lignes. - Je inclure le code ci-dessous pour votre référence: veuillez noter que je n'ai pas fourni le code source pour ArrayDimensions, donc ce ne sera pas le compiler pour vous, sauf si vous refactoriser - ou de le diviser en 'Array' et 'vector' versions.

 
Public Sub BubbleSort(ByRef InputArray, En Option SortColumn As Integer = 0, Option Décroissant As Boolean = False) 
De tri à 1 ou 2 Dimensions de la matrice. 
Dim iFirstRow as Integer 
Dim iLastRow as Integer 
Dim iFirstCol as Integer 
Dim iLastCol as Integer 
Dim i as Integer 
Dim j as Integer 
Dim k as Integer 
Dim varTemp Comme Variante 
Dim OutputArray Comme Variante 
Dim iDimensions as Integer 
iDimensions = ArrayDimensions(InputArray) 
Sélectionnez Cas iDimensions 
Cas 1 
iFirstRow = LBound(InputArray) 
iLastRow = UBound(InputArray) 
Pour i = iFirstRow À iLastRow - 1 
Pour j = i + 1 À iLastRow 
Si InputArray(i) > InputArray(j) Alors 
varTemp = InputArray(j) 
InputArray(j) = InputArray(i) 
InputArray(i) = varTemp 
Fin De Si 
Prochaine j 
Ensuite, j'ai 
Cas 2 
iFirstRow = LBound(InputArray, 1) 
iLastRow = UBound(InputArray, 1) 
iFirstCol = LBound(InputArray, 2) 
iLastCol = UBound(InputArray, 2) 
Si SortColumn InputArray(j, SortColumn) Puis 
Pour k = iFirstCol À iLastCol 
varTemp = InputArray(j, k) 
InputArray(j, k) = InputArray(i, k) 
InputArray(i, k) = varTemp 
Prochaine k 
Fin De Si 
Prochaine j 
Ensuite, j'ai 
End Select 
Si Décroissant Ensuite 
OutputArray = InputArray 
For i = LBound(InputArray, 1), UBound(InputArray, 1) 
k = 1 + UBound(InputArray, 1) - je 
Pour j = LBound(InputArray, 2) À UBound(InputArray, 2) 
InputArray(i, j) = OutputArray(k, j) 
Prochaine j 
Ensuite, j'ai 
Effacer OutputArray 
Fin De Si 
End Sub

Cette réponse peut-être arriver un peu en retard pour résoudre votre problème quand vous en avez besoin, mais à d'autres personnes de le ramasser quand ils Google pour obtenir des réponses pour des problèmes similaires.

Pourquoi le QuickSortArray Sous flip les colonnes? Le tableau qui en résulte est un miroir de l'original, mais triés.
Je ne peux pas reproduire, et il n'y a rien dans la "ligne de swapper" en boucle qui serait évidemment le faire: pouvez-vous développer votre point de vue afin que je puisse regarder cela d'un peu plus de profondeur?
sur le commentaire, votre question attiré mon attention sur un mal-placé Redim dans le While i <= j boucle: c'est une allocation, c'est lent et il ne doit être fait qu'une fois, en dehors de la boucle.
Désolé, Le Nil. J'avais un tableau avec les dimensions en arrière, et il a été le tri des colonnes, pas les lignes. Une sorte de bizarre. Votre code est bien. Mes excuses pour la confusion. Donc, juste pour être clair, l'instruction Redim sur le arrRowTemp devrait être en dehors de la boucle while? Depuis, vous avez juste besoin d'allouer de la mémoire une fois, et plus-écrire à chaque fois après que?
C'est une bonne solution, mais N'OUBLIEZ pas DE positionner Option Base 1 si votre tableau est définie comme la même. Quand je trie un tableau 2d, avec une valeur de la deuxième colonne (colonne de tri) est de zéro. Après le tri terminé la valeur de la première colonne de a aussi été mis à zéro. J'ai passé près de deux heures sur cette. Enfin, il est devenu tout droit, après j'ai mis Option Base 1 pour le module.

OriginalL'auteur Nigel Heffernan

8

La partie difficile est que VBA fournit pas de moyen simple pour permuter les lignes dans un tableau 2D. Pour chaque échange, vous allez avoir de la boucle sur les 5 éléments et les swaps de chacun, ce qui sera très inefficace.

Je suppose qu'un tableau 2D est vraiment pas ce que vous devriez être en utilisant de toute façon. Est-ce que chaque colonne ont une signification particulière? Si oui, ne faut-il pas être l'aide d'un tableau d'un type défini par l'utilisateur, ou un ensemble d'objets qui sont des instances d'un module de classe? Même si les 5 colonnes n'ont pas de sens précis, vous pouvez toujours le faire, mais de définir le type défini par l'utilisateur ou un module de classe pour avoir un seul membre qui est une 5-élément de tableau.

Pour l'algorithme de tri lui-même, je voudrais utiliser une plaine ol' le Tri par Insertion. 1000 articles est en fait pas si grande, et vous ne remarquerez probablement pas la différence entre une Insertion de Tri et Tri Rapide, aussi longtemps que nous avons fait en sorte que chaque swap ne sera pas trop lent. Si vous ne utiliser un Tri Rapide, vous aurez besoin de ce code attentivement pour vous assurer que vous ne manquerez pas d'espace de pile, ce qui peut être fait, mais c'est compliqué, et le Tri Rapide est déjà assez compliqué déjà.

Donc, en supposant que vous utilisez un tableau de types définis par l'utilisateur, et en supposant que le type défini par l'utilisateur contient des variantes nommé Champ1 par Field5, et en supposant que nous voulons trier sur Champ2 (par exemple), alors que le code pourrait ressembler à quelque chose comme ça...
```
Type MyType
Field1 As Variant
Field2 As Variant
Field3 As Variant
Field4 As Variant
Field5 As Variant
End Type
Sub SortMyDataByField2(ByRef Data() As MyType)
Dim FirstIdx as Long, LastIdx as Long
FirstIdx = LBound(Data)
LastIdx = UBound(Data)
Dim I as Long, J as Long, Temp As MyType
For I=FirstIdx to LastIdx-1
For J=I+1 to LastIdx
If Data(I).Field2 > Data(J).Field2 Then
Temp = Data(I)
Data(I) = Data(J)
Data(J) = Temp
End If
Next J
Next I
End Sub
```
belle approche, Ross
Vous êtes, bien sûr, le tri d'un vecteur d'enregistrements. Si seulement il y a une certaine facilement disponibles dans la bibliothèque qui a capturé les données totalisées dans un "jeu d'enregistrements', indexé avec un Arbre, et qu'on appelle un compilés-de-la-métal "Trier" de la fonction... :o)

OriginalL'auteur Steve Jorgensen
2

parfois, la plupart sans cervelle réponse est la meilleure réponse.
1. ajouter une feuille blanche
2. télécharger votre tableau de cette feuille
3. ajouter les champs de tri
4. appliquer le tri
5. reupload la fiche de données de votre tableau, il sera de la même dimension
6. la suppression de la fiche
tadaa. l'habitude de vous faire gagner de la programmation prix mais il fait le travail rapide.

OriginalL'auteur swyx

Je vais offrir un peu légère de code différent pour Steve.

Tous les points valables sur l'efficacité, mais pour être franc.. quand j'étais à la recherche d'une solution, j'aurais été moins soucieuse de l'efficacité. Ses VBA... je le traiter comme il le mérite.

Vous souhaitez trier un tableau 2d. Plaine simple sale simple insertion de tri qui va accepter une variable tableau de taille et de tri sur une colonne sélectionnée.

Sub sort_2d_array(ByRef arrayin As Variant, colid As Integer)
'theWidth = LBound(arrayin, 2) - UBound(arrayin, 2)
For i = LBound(arrayin, 1) To UBound(arrayin, 1)
searchVar = arrayin(i, colid)
For ii = LBound(arrayin, 1) To UBound(arrayin, 1)
compareVar = arrayin(ii, colid)
If (CInt(searchVar) > CInt(compareVar)) Then
For jj = LBound(arrayin, 2) To UBound(arrayin, 2)
larger1 = arrayin(i, jj)
smaller1 = arrayin(ii, jj)
arrayin(i, jj) = smaller1
arrayin(ii, jj) = larger1
Next jj
i = LBound(arrayin, 1)
searchVar = arrayin(i, colid)
End If
Next ii
Next i
End Sub

OriginalL'auteur giveemheller

0

Pour ce que ça vaut (je ne peux pas afficher le code à ce point...laissez-moi voir si je peux le modifier à la poste), j'ai créé un tableau d'objets personnalisés (donc chacune des propriétés de venir avec n'importe quel élément de son triées par), peuplé d'un ensemble de cellules avec chacun des éléments de propriétés de l'objet d'intérêt, puis utilisé la excel fonction de tri par vba pour trier la colonne. Im sûr il y a probablement un moyen plus efficace de faire le tri, plutôt que d'exporter vers les cellules, je viens nai pas compris encore. En fait, cela m'a beaucoup aidé parce que quand j'ai besoin d'ajouter une dimension, j'ai juste ajouté un let et obtenir la propriété pour la prochaine dimension de la matrice.

OriginalL'auteur Dan
0

Vous pourriez faire un autre tableau avec 2 colonnes. Colonne 1 serait ce que votre tri sur et 2 est ce que la ligne est dans l'autre tableau. Trier ce tableau à la colonne 1 (seulement alterner les deux colonnes au moment de l'échange). Alors vous pouvez utiliser les 2 tableaux de données de processus en tant que de besoin. Tableaux de grande pourrait vous donner des problèmes de mémoire si

OriginalL'auteur BumKneesOhYeah
-1

Il me semble que le QuickSort code ci-dessus ne peut pas gérer les espaces. J'ai un tableau avec des chiffres et des espaces. Quand je trie ce tableau, les enregistrements avec des espaces sont mélangés entre les enregistrements avec des nombres. Il m'a fallu beaucoup de temps pour le découvrir, alors, probablement, il est bon de garder cela à l'esprit lorsque vous utilisez ce code.

meilleur,
Marcel

Vous avez tombé dans une erreur très commune: vous êtes en essayant de trier des données mixtes. Certaines de vos données sont numériques, et doivent être triés comme des nombres; et c'est en partie le texte (s'il contient un espace, c'est du texte) et ce qui doit être triée par ordre alphabétique. La plupart des systèmes et de "Trier" les fonctions de traiter des données mixtes sous forme de texte, et c'est ce que vous voyez. Il y a des "Smart Search" fonctions de séparer les nombres et les chaînes de caractères, et certains d'entre eux sont "intelligents" à trier Version 1, Version 2.0 et Version 13 par la séparation de l'identificateur numérique... Mais ce n'est pas la question ici!

OriginalL'auteur Marcel

Vous devez vous connecter pour publier un commentaire.