Fonction de tableau dans Excel VBA

J'ai une fonction en VBA qui génère un tableau de chaînes de caractères. Il fonctionne très bien lorsqu'il est appelé à partir d'une autre fonction VBA, mais pas lorsqu'il est appelé à partir de la feuille de calcul.

Voici comment il devrait être utilisé:

  • sélectionnez A1:A3
  • écrire dans la barre de formule =Test(), puis appuyez Ctrl-Shift-Enter pour en faire une fonction de tableau
  • A1 doit contenir A, A2 doit contenir B, et A3 doit contenir C

Quand j'ai essayer ceci, il met A dans les trois cellules de la matrice. Comment puis-je obtenir les données renvoyées par Test dans les différentes cellules du tableau?

Pour ceux qui voudrais le voir, voici le code de la fonction. Gardez à l'esprit, la fonction fonctionne très bien lorsqu'il est appelé à d'autres fonctions.

Function Test() As String()
    Dim a(1 To 3) As String
    a(1) = "A"
    a(2) = "B"
    a(3) = "C"
    Test = a
End Function

OriginalL'auteur Joe | 2012-04-24

  1. 9

    Vous fonction fonctionne très bien si vous transposer les données. Pour ce faire, vous avez besoin Variant() au lieu de String():

    Function Test() As Variant()
    Dim a(1 To 3) As Variant
    a(1) = "A"
    a(2) = "B"
    a(3) = "C"
    Test = Application.Transpose(a)
End Function
    Je n'avais aucune idée que la direction par défaut d'un tableau était à la droite, plutôt que de descendre.
    Malheureusement, il ne semble pas être un simple moyen automatique pour Excel pour remplir le tableau, à l'horizontale ou à la verticale. Il pourrait y avoir quelques trucs là, cependant.
    Yup, comme @andy holaday points de, Puce Pearson a également compris l'horizontale/verticale dilemme.
    Plutôt que d'utiliser Transpose dans l'UDF, vous pouvez utiliser Transpose en vous de la formule de tableau lorsque vous voulez une verticale d'entrée de jeu, ou pas, si vous le voulez horizintal

    OriginalL'auteur Mike T

  2. 4

    Vous pourriez vouloir vérifier Puce de Pearson des conseils sur le retour un tableau à partir d'un fichier UDF.

    C'est ma première intervention ici. J'espère que ce n'est pas inappropriée.

    Il n'est jamais mauvais de se référer à la carte à Puce de Pearson site. Au moins je ne l'espère pas, comme je le fais tout le temps! +1

    OriginalL'auteur andy holaday

  3. 3

    Je trouve ça plus simple de toujours travailler avec le 2-dimensions des tableaux, alors vous n'avez pas besoin de transposer etc

    Function Test() As String()
    Dim a(1 To 3, 1) As String
    a(1, 1) = "A"
    a(2, 1) = "B"
    a(3, 1) = "C"
    Test = a
End Function

    OriginalL'auteur Charles Williams

  4. 0

    Viens de comprendre le problème, la première dimension d'un tableau allant de VBA pour Excel est horizontale, et non à la verticale. Pour voir la sortie de Test, mettre la fonction array =Test() dans A1:C1 (pas A1:A3).

    La lecture de cette réponse en combinaison avec celui de Charles Williams ci-dessus est un peu déroutant, bien que les deux sont corrects. 1D VBA tableau est transmis à Excel, à une seule ligne (comme on le voit dans l'origine du Test de l'UDF). Un 2D VBA tableau est passé avec la première dimension dans une colonne (comme vu dans le Test de l'UDF, posté par, Charles).

    OriginalL'auteur Joe