Здравствуйте,
необходимо в VBA трансформировать формулу:
=СУММ(ИНДЕКС(AR23:BX23;ПОИСКПОЗ($R$11;$AR$14:$BX$14;0)):ИНДЕКС(AR23:BX23;ПОИСКПОЗ($T$11;$AR$14:$BX$14;0)))
мой вариант (но не работает):
необходимо в VBA трансформировать формулу:
=СУММ(ИНДЕКС(AR23:BX23;ПОИСКПОЗ($R$11;$AR$14:$BX$14;0)):ИНДЕКС(AR23:BX23;ПОИСКПОЗ($T$11;$AR$14:$BX$14;0)))
мой вариант (но не работает):
Код |
---|
Public Function CDSDayReport_a1(DateStart As Range, DateEnd As Range, Dates As Range, Volumes As Range) CDSDayReport_a1 = WorksheetFunction.Sum(WorksheetFunction.Index(Volumes, WorksheetFunction.Match(DateStart, Dates, 0)) : WorksheetFunction.Index(Volumes, WorksheetFunction.Match(DateEnd, Dates, 0))) End Function |
В чём-то есть "ньюанс". Поэтапно записывал, работало, как дошёл до .Sum так сломалось. Возможно необходимо цикл вместо Суммы. Я незнаю.
Подскажите, кто знает.