VBA Передача имени диапазона из другого рабочего листа в функцию

Question

Возможно, я пытаюсь сделать слишком много здесь, но я много часов работал над этим без везения. Я надеюсь, что вы можете помочь.

Я создаю функцию, единственным параметром которой является именованный диапазон на другом листе в той же книге. Моя проблема в том, что я не могу понять, как передать это имя в функцию и использовать ее.

Моя цель - вызвать функцию для суммирования столбца, указанного именованным диапазоном, на другом листе, называемом клиентскими платежами.

Вот мой код, который работает:

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

я получаю всего, что является правильным, но, конечно, я указал столбец в функции. Не слишком полезно.

Вот что я пытался, что не работает:

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

Это не работает, когда я удалить кавычки ColumnToAdd, и многие другие варианты я пробовал.

Что я хочу сделать, это ввести = PayPerMonth (MBPADV) или = PayPerMonth (SBTSADV) и т. Д., Чтобы вызвать функцию и нацелиться в правый столбец, где MBPADV и SBTSADV называются столбцами.

Я не вешаю использовать имена столбцов. Это просто делает его более читаемым (для меня, во всяком случае!).

Можно ли это сделать?

Answer 1

Range("named range") возвращает диапазон в Workbook, поэтому должно быть хорошо пройти в вашу функцию, которая принимает диапазон.

Если у вас есть именованный диапазон в книге под названием ColumnToAdd, это должно работать:

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

Обновление за комментарии:

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

Использование:

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

Примечание :

Ваш вызов функции возвращает вариант. Вы можете объявить As Integer, As Single или As Float в конце Function PayPerMonth(ColumnToAdd As Range), чтобы помочь A) ускорить обработку, поскольку Excel не придется тратить время на выяснение, с какой переменной она работает, и B) самостоятельно/следующий кодер, когда приходит время для поддержания кода - явное делает ваш код более удобочитаемым.