Вызов функции VBA

Question

У меня есть макрос Excel, который отображает каждый месяц в виде отдельного рабочего листа excel. В моем макросе «Воскресные» листы содержат часовые часы работы на одного сотрудника и дают мне еженедельную сумму. Я попытался создать функцию, которая позволит мне выбрать, какие листы мне нужны до верхнего и нижнего диапазона, но я не могу заставить его работать. В чем проблема? В настоящее время у меня есть:

Function SampleSum(ByVal ZZ As Integer, ByVal XX As Integer) As Integer 
Application.Volatile 
SampleSum = Sheets(ZZ).Range("BA5") + Sheets(XX).Range("BA5") 
Sheets(XX).Range("BB5") = SampleSum 
End Function 

Я хотел бы быть в состоянии «назвать» функцию с любым числом или 2 переменных занимает место ZZ & XX.

Answer 1

Прежде всего, так как вы объявили приложение «летучий», я бы не программно редактировать таблицу оттуда, так как он может пойти в цикле: http://msdn.microsoft.com/en-us/library/office/ff195441%28v=office.15%29.aspx Во-вторых, функция возвращает что-то. Подпрограмма не работает. Если вам нужно написать только в ячейке, я бы рекомендовал использовать подпрограмму.

Function SampleSum(ByVal ZZ As Integer, ByVal XX As Integer) As Integer 
    Application.Volatile 
    SampleSum = Sheets(ZZ).Range("BA5") + Sheets(XX).Range("BA5") 
End Function 

Sub Main() 
    Sheets(XX).Range("BB5") = SampleSum(ZZ, XX) 
End Sub 

ZZ и XX в «Main» Sub могут быть номера вашего выбора