Filtrage 2D Tableaux dans Excel VBA

À l'aide d'Excel et de VBA, je voulais quelques conseils sur la meilleure façon de filtrer les données dans un tableau (de la même manière, on peut utiliser un tableau croisé dynamique) strictement à l'aide de VBA. Je suis entrain de créer un UserForm qui va rendre certaines données des décisions fondées sur des données existantes. Je peux visualiser comment le faire assez bien, mais ne suis pas du tout versé dans la programmation VBA.

Voici un exemple

A       B       C
bob     12      Small
sam     16      Large
sally   1346    Large
sam     13      Small
sally   65      Medium
bob     1       Medium

Extraire les données dans un Tableau, j'ai pu utiliser

Dim my_array As Variant

my_array = Range("A1").CurrentRegion

Maintenant, je suis familier avec boucle à travers des tableaux 2D, mais je me demandais: ce que le moyen le plus efficace pour filtrer les données du tableau 2D (sans boucle par le choix du temps et encore)?

Par exemple, comment puis-je obtenir serait de dire obtenir ce genre de données:

data_for_sally As Variant 'rows with sally as name in ColA
data_for_sally_less_than_ten As Variant ' all rows with sally's name in ColA and colB < 10
data_for_all_mediums as Variant ' all rows where ColC is Medium

Suggestions? J'ai pu faire ce travail avec un tas de fonctions personnalisées et des boucles, mais je pensais qu'il devait y avoir une meilleure façon. Merci.

Notez que le 4e exemple n'est pas un filtre mais une opération sur le tableau, ce qui conduirait probablement à une réponse différente.
Pas sûr que c'est possible sans boucle / fonctions personnalisées en VBA. Vous dites que vous avez de l'expérience dans d'autres langues, avez-vous considéré comme un VSTO/.NET impementation puis utiliser LINQ?
Pour ce type de chose en VBA je voudrais utiliser un jeu d'enregistrements ADO déconnecté. Il vous donne de tri et de filtrage.
bon point, enlevé exemple; .@lori_m je pensais le long de la lignes de Python, en fait; .@Tim Williams, je vais regarder à cela, n'ont pas entendu parler avant.

OriginalL'auteur thornomad | 2012-05-04

5

Je suppose que vous voulez utiliser VBA.

Je pense que cela dépend de plusieurs paramètres, notamment sur:
- combien de fois vous exécutez la même condition => avez-vous stocker le résultat d'un filtre ou d'-vous de les recalculer à chaque fois?
- combien de fois vous avez besoin de filtrer les trucs => si souvent, il vaut la peine d'avoir un code approprié de la structure en place, si ce n'est pas alors une boucle est clairement la voie à suivre.
À partir d'un OO point de vue, en supposant que les performances (vitesse & mémoire) n'est pas un problème, je voudrais aller le dessin suivant (je ne rentrerai pas dans les détails de la mise en œuvre, uniquement à donner l'idée générale). Créer une classe (appelons imagination ArrayFilter) que vous pouvez utiliser comme ça.

Le programme d'installation le filtre
```
Dim filter As New ArrayFilter
With filter
    .name = "sam"
    .category = "Medium"
    .maxValue = 10
End With
```
Ou
```
filter.add(1, "sam") 'column 1
filter.add(3, "Medium") 'column 3
filter.addMax(2, 10) 'column 2
```
Créer les données filtrées ensemble
```
filteredArray = getFilteredArray(originalArray, filter)
```
La getFilteredArray est assez simple à écrire: vous boucle sur le tableau de vérifier si les valeurs correspondent au filtre et de mettre de la validité de lignes dans un nouveau tableau:
```
If filter.isValidLine(originalArray, lineNumber) Then 'append to new array
```
Pros
- Propre conception
- Réutilisables, en particulier avec la deuxième version où vous utilisez le numéro de la colonne. Ceci peut être utilisé pour filtrer les tableaux vraiment.
- Code de filtrage est dans une fonction que vous pouvez tester
- Corollaire: éviter la duplication de code
Contre
- De filtrage est recalculé à chaque fois, même si vous utilisez le même filtre deux fois. Vous pouvez stocker les résultats dans un Dictionnaire par exemple - voir ci-dessous.
- Mémoire: chaque appel à la getFilteredArray crée un nouveau tableau, mais vous ne savez pas comment cela peut être évité toute façon
- Cela ajoute quelques lignes de code, donc, je le ferais seulement si elle permet de rendre le code plus facile à lire /à entretenir.
ps: Si vous avez besoin de mettre en cache les résultats pour améliorer les performances, d'une façon serait de stocker les résultats dans un dictionnaire et ajouter un peu de logique à la getFilteredArray fonction. Notez qu'à moins que vos tableaux sont vraiment de gros et/ou d'exécuter le même filtre beaucoup, ce n'est probablement pas la peine.
```
filters.add filter, filteredArray 'filters is a dictionary
```
De cette façon, lorsque vous appelez getFilteredArray la prochaine fois, vous pouvez faire quelque chose comme ceci:
```
For each f in filters
    'Check if all conditions in f and newFilter are the same
    'If they are:
    getFilteredArray = filters(f)
    Exit Function
Next

'Not found in cache: compute the result
```
C'est une approche intéressante - j'espérais que VBA avait quelque chose de construit dans, je pourrais utiliser à la volée. Mais, re-à l'aide d'un OO approche pourrait être la prochaine meilleure chose. Merci pour la réponse détaillée. Devrez essayer.
Relisant, getFilteredArray devrait probablement être une fonction à l'intérieur de la ArrayFilter classe.

OriginalL'auteur assylias

Essayer cette

' credited to ndu
Function Filter2DArray(ByVal sArray, ByVal ColIndex As Long, ByVal FindStr As String, ByVal HasTitle As Boolean)
Dim tmpArr, i As Long, j As Long, Arr, Dic, TmpStr, Tmp, Chk As Boolean, TmpVal As Double
On Error Resume Next
Set Dic = CreateObject("Scripting.Dictionary")
tmpArr = sArray
ColIndex = ColIndex + LBound(tmpArr, 2) - 1
Chk = (InStr("><=", Left(FindStr, 1)) > 0)
For i = LBound(tmpArr, 1) - HasTitle To UBound(tmpArr, 1)
If Chk Then
TmpVal = CDbl(tmpArr(i, ColIndex))
If Evaluate(TmpVal & FindStr) Then Dic.Add i, ""
Else
If UCase(tmpArr(i, ColIndex)) Like UCase(FindStr) Then Dic.Add i, ""
End If
Next
If Dic.Count > 0 Then
Tmp = Dic.Keys
ReDim Arr(LBound(tmpArr, 1) To UBound(Tmp) + LBound(tmpArr, 1) - HasTitle, LBound(tmpArr, 2) To UBound(tmpArr, 2))
For i = LBound(tmpArr, 1) - HasTitle To UBound(Tmp) + LBound(tmpArr, 1) - HasTitle
For j = LBound(tmpArr, 2) To UBound(tmpArr, 2)
Arr(i, j) = tmpArr(Tmp(i - LBound(tmpArr, 1) + HasTitle), j)
Next
Next
If HasTitle Then
For j = LBound(tmpArr, 2) To UBound(tmpArr, 2)
Arr(LBound(tmpArr, 1), j) = tmpArr(LBound(tmpArr, 1), j)
Next
End If
End If
Filter2DArray = Arr
End Function

OriginalL'auteur Đức Thanh Nguyễn

Vous devez vous connecter pour publier un commentaire.