Trouver les valeurs correspondantes à l'aide de vba excel

Sans l'aide d'excel intégré dans le filtre ou un tableau croisé dynamique de la fonction, je veux extraire certains résultats à l'aide de vba. Considérons l'exemple suivant: compte tenu des données dans coloumn A et B, je veux être en mesure à l'entrée "a" dans C1 et à l'aide de vba pour obtenir dans la Colonne D de toutes les valeurs correspondantes de la colonne B (1,3,5). Si je input "b", j'obtiens 2, 6, ainsi de suite. Merci. Trouver les valeurs correspondantes à l'aide de vba excel
Trouver les valeurs correspondantes à l'aide de vba excel

  • Même pas une formule Excel?
InformationsquelleAutor user2759430 | 2013-09-13
  1. 2
    Sub GenerateMatches()

With ActiveSheet
FinalRowA = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

InputLetter = ActiveSheet.Cells(1, 3)
NextRow = 1

For i = 1 To FinalRowA
If .Cells(i, 1) = InputLetter Then
.Cells(NextRow, 4) = .Cells(i, 2)
NextRow = NextRow + 1
End If

Next i

End With

End Sub

    Évidemment, vous pouvez faire ce beaucoup plus dynamique et rapide, mais cela devrait faire le travail.

    • Vous devez ajouter cette fonction pour effacer la colonne D avant course: Columns("D:D").Select Selection.ClearContents
    InformationsquelleAutor Josh Kendrick
  2. 0

    Entrez l'événement suivant macro dans la feuille de calcul de code de zone:

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim D1 As Range, K As Long
    Dim N As Long, NN As Long
    Set D1 = Range(Range("D1"), Range("D1").End(xlDown))
    If Intersect(Target, Range("C1")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    v = Target.Value
    K = 1
    D1.Clear
    NN = Cells(Rows.Count, "A").End(xlUp).Row
    For N = 1 To NN
        If v = Cells(N, "A").Value Then
            Cells(K, "D").Value = Cells(N, "B").Value
            K = K + 1
        End If
    Next
    Application.EnableEvents = True
End Sub

    Parce que c'est de la feuille de calcul de code, il est très facile à installer et automatique pour utiliser:

    1. cliquez-droit sur le nom de l'onglet en bas de la fenêtre Excel
    2. sélectionnez Afficher le Code qui affiche une fenêtre VBE
    3. coller les trucs et fermer la fenêtre VBE

    Si vous avez des problèmes, essayez d'abord sur un essai de la feuille de calcul.

    Si vous enregistrez le classeur, la macro sera enregistré avec lui.
    Si vous utilisez une version d'Excel plus tard, puis en 2003, vous devez enregistrer
    le fichier en tant que .xlsm plutôt que .xlsx

    Pour supprimer la macro:

    1. afficher le VBE windows comme ci-dessus
    2. effacer le code
    3. fermer la fenêtre VBE

    Pour en savoir plus à propos des macros en général, voir:

    http://www.mvps.org/dmcritchie/excel/getstarted.htm

    et

    http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

    Pour en savoir plus sur l'Événement Macros (feuille de calcul de code), voir:

    http://www.mvps.org/dmcritchie/excel/event.htm

    Macros doivent être activées pour que cela fonctionne!

    B. T. W.

    Vous pouvez faire la même chose avec des formules et des pas de VBA - comme RECHERCHEV sur steriods!

    InformationsquelleAutor Gary's Student
  3. 0

    Je comprends quand vous dites que vous ne voulez pas utiliser des filtres ou des Pivots. Mais Les Formules?

    Si quelque chose est possible avec des formules, alors pourquoi VBA?

    Coller cette Formule matricielle dans Cell D1 et appuyez sur CTRL + MAJ + ENTRÉE et le tirer vers le bas.

    =IF(ISERROR(INDEX($A$1:$B$7,SMALL(IF($A$1:$A$7=$C$1,ROW($A$1:$A$7)),ROW(1:1)),2)),"",INDEX($A$1:$B$7,SMALL(IF($A$1:$A$7=$C$1,ROW($A$1:$A$7)),ROW(1:1)),2))

    Capture d'écran
    Trouver les valeurs correspondantes à l'aide de vba excel

    InformationsquelleAutor Siddharth Rout