VBA Passage d'un nom de plage d'une feuille de travail différente à une fonction

Question

Peut-être que j'essaie d'en faire trop ici, mais j'ai travaillé pendant des heures sans succès. J'espère que tu peux aider.

Je crée une fonction dont le seul paramètre est une plage nommée sur une autre feuille dans le même classeur. Mon problème est que je ne peux pas comprendre comment passer ce nom dans la fonction et l'utiliser.

Mon objectif est d'appeler la fonction pour additionner la colonne spécifiée par la plage nommée sur l'autre feuille de calcul, appelée Paiements clients.

Voici mon code qui fonctionne:

Function PayPerMonth() 
PayPerMonth = Application.WorksheetFunction.Sum(Worksheets("Client Payments").Range("C:C")) 
End Function 

Je reçois un total qui est correct, mais bien sûr, je spécifié la colonne dans la fonction. Pas trop utile.

Voici ce que j'ai essayé cela ne fonctionne pas:

Function PayPerMonth(ColumnToAdd) 
PayPerMonth = Application.WorksheetFunction.Sum(Worksheets("Client Payments").Range("ColumnToAdd")) 
End Function 

Il ne fonctionne pas lorsque je supprime les guillemets autour ColumnToAdd, et bien d'autres variantes que j'ai essayé. Ce que je veux faire est d'entrer = PayPerMonth (MBPADV) ou = PayPerMonth (SBTSADV) etc. pour appeler la fonction et viser la colonne de droite, où MBPADV et SBTSADV sont nommés des colonnes.

Je ne suis pas coincé sur l'utilisation des noms de colonnes. Cela le rend plus lisible (pour moi, de toute façon!).

Est-ce que cela peut être fait?

Answer 1

Range("named range") renvoie une plage dans le WorkBook, il devrait donc être bon de passer à votre fonction qui prend une portée.

En supposant que vous avez une plage nommée dans le classeur appelé ColumnToAdd, cela devrait fonctionner:

Function PayPerMonth(ColumnToAdd) 
    PayPerMonth = Application.WorksheetFunction.Sum(Range("ColumnToAdd") 
End Function 

mise à jour par les commentaires:

Function PayPerMonth(ColumnToAdd As Range) 
    PayPerMonth = Application.WorksheetFunction.Sum(Range(ColumnToAdd)) 
End Function 

Utilisation:

Dim MyRange as Range 
MyRange = Sheet.Columns("C") 
Amount = PayPerMonth(MyRange) 

Remarque :

Votre appel de fonction renverra une variante. Vous pouvez déclarer As Integer, As Single ou As Float à la fin de Function PayPerMonth(ColumnToAdd As Range) pour aider A) accélérer le traitement, car Excel ne sera pas à passer du temps à essayer de comprendre quel type de variable, il travaille avec, et B) vous/la Codeur suivant quand vient le temps de maintenir le code - être explicite rend votre code plus lisible.