À l'aide de RECHERCHEV Excel 2007 VBA Fonction

J'ai essayé des heures et des heures d'exemples, mais je ne cesse d'obtenir la même erreur #NOM?

J'ai besoin d'utiliser RECHERCHEV dans une fonction VBA, et ensuite travailler avec le résultat avant de mettre le résultat dans une cellule. Tout d'abord, je vais avoir un problème juste pour obtenir le VBA RECHERCHEV le cadre de travail.

Pour les essais voici les détails
Feuille de calcul est...

Feuille = Sheet1

4 lignes x 2 colonnes de données.
Les Cellules D1:E4
Danse : 23
Français : 42
Anglais : 2
Musique : 33

Dans la cellule A1, j'aurai un utilisateur imputé contenu qui sera une valeur de la colonne D eg français

Dans la Cellule B1, je vais appeler la fonction
=GetQty(A1,D1:E4,2)
mais je reçois toujours #NOM?

1) Comment dois-je appeler la fonction correctement. Je fais ce corretly?

Dans ma fonction VBA "GetQty" je veux juste faire la RECHERCHEV sur une valeur de la cellule A1 et retourner la valeur de l'entrée correspondante de la table(la Cellule D1:E4), par exemple, de retour 42 et placez ensuite cette valeur dans la colonne B1 et (également de la colonne C1 via le VBA et pas seulement à l'aide d'une formule dans la cellule de feuille de calcul de l' =B1 )

Ici est l'un des nombreux exemples que j'ai essayé dans ma fonction juste pour obtenir le VLOOKUP de travail.

Function GetQty(Celly As Range, CellyRange As Range, Colretval As Integer) As Integer
Dim result As String
Dim sheet As Worksheet
Set sheet = ActiveWorkbook.Sheets("Sheet1")
GetQty = Application.WorksheetFunction.VLookup(sheet.Range(CellyRange), sheet.Range(CellyTable), Colretval, False)
End Function

J'ai essayé de nombreux exemples, mais je reçois toujours #NOM? erreur

  • Je ne vois aucun avantage à l'aide d'un UDF sur le natif de la fonction RECHERCHEV ici ! Il sera beaucoup plus lent. Avez-vous une raison à cela ?
InformationsquelleAutor Sniff The Glove | 2011-12-14
  1. 2

    Il existe quelques problèmes, principalement:

    • Premier argument pour Recherchev ne peut pas être une étendue, doit être une valeur
    • Il est plus sûr de ne pas déclarer le type de retour, en tant qu'Entier

    Voici un exemple de la façon d'utiliser Recherchev à partir de VBA, peut-être que ça va aider à (vous l'appelez simplement VLookup):

    Function VBAVlookup(ByVal search As Variant, _
                    cell_range As Range, _
                    offset As Long, _
                    Optional opt As Boolean = False)

Dim result As Variant
result = WorksheetFunction.VLookup(search, cell_range, offset, opt)
'do some cool things to result

VBAVlookup = result

End Function

    Moins que ce que vous faites est plutôt sophistiqué, vous pouvez toujours utiliser =Vlookup(...) * 55 +2 et des trucs comme ça pour revenir a manipulé le résultat de recherchev l'aide d'une seule formule.

    • J'ai essayé la fonction ci-dessus, modifier l'appel de la fonction à partir de la feuille de calcul afin d'inclure une valeur à la place d'une référence de cellule, mais j'ai encore des #NOM? erreur. J'ai essayé =VBAVlookup("à la française",$D$1:$E$4,2) et aussi =VBAVlookup("à la française",D1:E4,2) mais pas de chance, comment pourrais-je appeler la fonction à partir d'une cellule
    • Vous le faites à droite. La question doit être votre macro de sécurité car il n'est pas de l'inscription qu'il n'y est une fonction de ce nom. Assurez-vous que vous utilisez une macro-enabled livre et que vos paramètres sont de moyenne ou au-dessous.
    • Où en êtes-vous de mettre votre code? Doit être dans un module normal, pas dans la feuille de module.
    • Le Code est dans un module (pas de feuille de calcul de code), aussi mon paramètres des Macros est de Permettre à tous de macro
    • Je n'ai aucune idée de ce qui s'est passé, mais après quelques mois d'heures de bidouiller la fonction juste de commencer à travailler, comment je ne sais pas. Merci quand même que le code ci-dessus et de la façon dont j'ai été l'appel à elle au-dessus de toutes les œuvres. J'ai juste une question, dans la fonction lorsque vous utilisez le "résultat = WorksheetFunction.Recherchev(recherche, cell_range, offset, opt)" est-il un moyen de spécifier la feuille de calcul de la variable cell_range comme je l'espère pour itérer sur toutes les œuvres des feuilles à l'aide Pour Chaque ws Dans des Feuilles de calcul par exemple quelque chose comme l'ajout de ws.cell_range
    InformationsquelleAutor aevanko
  2. 0

    Ci-dessous est l'échantillon pour obtenir la gamme de colonne:

    Range("A2", Range("A2").End(xlDown)).Rows.Count

    Personnaliser votre façon, si cela peut vous aider à passer votre gamme.

    InformationsquelleAutor Shankar