Перетащите автозаполнение для пользовательской функции VBA - PullRequest
0 голосов
/ 14 ноября 2018

У меня есть следующая функция:

Function myFunc() As String

Application.Volatile

Dim i As Long, lTotal As Long
For i = 3 To 10

    If Range("H3").Value = Cells(i, 2).Value And Range("I3").Value < _
    Cells(i, 4).Value And _
    Range("I3").Value >= Cells(i, 3).Value Then

    lTotal = Cells(i, 5).Value + lTotal

    End If

    myFunc = lTotal

Next i

End Function

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

[Редактировать] Прикрепленное изображение.Рассматривайте таблицу Dasboard как отдельную таблицу, в которой вводятся записи вручную.Рассматривайте таблицу журнала как таблицу продолжения, в которой хранится запись каждого часа для каждой даты.Записи из таблицы Dashboard публикуются в таблице журнала.Я использую эту функцию в выходной столбец в таблице журнала.Я хочу иметь возможность перетащить его вниз, чтобы заполнить таблицу журнала.

image

1 Ответ

0 голосов
/ 14 ноября 2018

Зачем использовать UDF? Не изобретай велосипед. Вы можете просто сделать это с SUMIFS

=SUMIFS($E$3:$E$10,$B$3:$B$10,"=" & H3,$C$3:$C$10,"<=" & I3,$D$3:$D$10,">" & I3)

Поместите формулу в J3 и опустите ее.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...