Excel VBA fonction retournant un tableau

Pouvez-vous créer un fichier Excel VBA fonction qui retourne un tableau de la même manière que la fonction DROITEREG, par exemple? Je voudrais en créer un qui, étant donné un fournisseur de code, retourne une liste de produits pour que le fournisseur d'un produit-fournisseur de la table.

Avez-vous réussi à résoudre votre problème?

OriginalL'auteur | 2009-11-29

  1. 19

    ok, ici, j'ai une fonction datamapping qui renvoie un tableau de plusieurs colonnes, de sorte que vous pouvez réduire ce vers le bas juste pour un.
    N'importe pas vraiment comment le tableau est renseigné, en particulier

    Function dataMapping(inMapSheet As String) As String()

   Dim mapping() As String

   Dim lastMapRowNum As Integer

   lastMapRowNum = ActiveWorkbook.Worksheets(inMapSheet).Cells.SpecialCells(xlCellTypeLastCell).Row

   ReDim mapping(lastMapRowNum, 3) As String
   For i = 1 To lastMapRowNum
      If ActiveWorkbook.Worksheets(inMapSheet).Cells(i, 1).Value <> "" Then
         mapping(i, 1) = ActiveWorkbook.Worksheets(inMapSheet).Cells(i, 1).Value
         mapping(i, 2) = ActiveWorkbook.Worksheets(inMapSheet).Cells(i, 2).Value
         mapping(i, 3) = ActiveWorkbook.Worksheets(inMapSheet).Cells(i, 3).Value
      End If
   Next i

   dataMapping = mapping

End Function




Sub mysub()

   Dim myMapping() As String
   Dim m As Integer

   myMapping = dataMapping(inDataMap)

   For m = 1 To UBound(myMapping)

     ' do some stuff

   Next m   

end sub

    OriginalL'auteur moleboy

  2. 8

    Je pense que Collection peut-être ce que vous cherchez.

    Exemple:

    Private Function getProducts(ByVal supplier As String) As Collection
    Dim getProducts_ As New Collection

    If supplier = "ACME" Then
        getProducts_.Add ("Anvil")
        getProducts_.Add ("Earthquake Pills")
        getProducts_.Add ("Dehydrated Boulders")
        getProducts_.Add ("Disintegrating Pistol")
    End If

    Set getProducts = getProducts_
    Set getProducts_ = Nothing
End Function

Private Sub fillProducts()
    Dim products As Collection
    Set products = getProducts("ACME")
    For i = 1 To products.Count
        Sheets(1).Cells(i, 1).Value = products(i)
    Next i
End Sub

    Edit:
    Voici une jolie solution simple à ce Problème: le Remplissage d'une zone de liste déroulante pour les Produits à chaque fois que la zone de liste déroulante pour les Fournisseurs de change valeur avec aussi peu de vba que possible.

    Public Function getProducts(ByVal supplier As String) As Collection
    Dim getProducts_ As New Collection
    Dim numRows As Long
    Dim colProduct As Integer
    Dim colSupplier As Integer
    colProduct = 1
    colSupplier = 2

    numRows = Sheets(1).Cells(1, colProduct).CurrentRegion.Rows.Count

    For Each Row In Sheets(1).Range(Sheets(1).Cells(1, colProduct), Sheets(1).Cells(numRows, colSupplier)).Rows
        If supplier = Row.Cells(1, colSupplier) Then
            getProducts_.Add (Row.Cells(1, colProduct))
        End If
    Next Row

    Set getProducts = getProducts_
    Set getProducts_ = Nothing
End Function

Private Sub comboSupplier_Change()
    comboProducts.Clear
    For Each Product In getProducts(comboSupplier)
        comboProducts.AddItem (Product)
    Next Product
End Sub

    Notes: j'ai nommé la zone de liste déroulante pour les Fournisseurs comboSupplier et celui pour les Produits comboProducts.

    De cette façon? Fonction FoundProds(SuppKey as Variant) as Variant Dim ProdCell Que Dim SuppCell Que Dim Résultats(50) Dim ResultCount as Integer Dim ProdCol, SuppCol as Integer ProdCol = 1 'Code de Produit dans cette colonne' SuppCol = 2 'Fournisseur Codes sont dans cette colonne' ResultCount = 1 Pour Chaque ProdCell In Range(Cells(1, ProdCol), les Cellules(ActiveSheet.UsedRange.Les lignes.Le Comte, ProdCol)) Si SuppKey = SuppCell.Valeur Des Résultats(ResultCount) = Cells(ProdCell.Ligne, ProdCol).Valeur ResultCount = ResultCount + 1 Fin Si Prochaine FoundLocations = Résultats De La Fin De La Fonction
    J'ai oublié de demander: Vous souhaitez retourner un tableau à l'autre en fonction VBA droit? ou voulez-vous utiliser la fonction directement dans votre feuille de calcul d'une fonction personnalisée?
    Je voudrais utiliser la fonction directement dans la feuille de calcul, je suis en train de permettre à l'utilisateur de choisir un fournisseur à partir d'une zone de liste déroulante, qui sera ensuite remplir une deuxième zone de liste déroulante avec que des produits du fournisseur, pour un deuxième choix. Désolé pour le désordre morceau de code dans mon commentaire ci-dessus!
    Parlons-nous d'un contrôle ou d'une liste créé par l'intermédiaire d'une plage nommée inséré à des critères de validation? Si c'est un contrôle que vous avez besoin juste de mettre un sous dans la SupplierCombobox_Change cas et si c'est une règle de validation, je crois que nous avons besoin de travailler avec une plage nommée
    C'est un contrôle. Si j'essaie d'éviter de trop VBA que j'aurai à présenter cette feuille de calcul pour certains moins de personnes alphabétisées, donc je préfère ne pas enterrer les choses dans les événements et sich.... Ils peuvent faire face à une fonction définie par l'utilisateur.

    OriginalL'auteur marg