Передача ссылки на ячейку в формулу VBA в качестве аргумента - PullRequest
Новая
       26

Передача ссылки на ячейку в формулу VBA в качестве аргумента

0 голосов
/ 09 июля 2020

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

Dim WshtRD As Worksheet

Dim DI As Date
Dim RngDI As Range
Set WshtRD = ActiveSheet
AI = DateValue(Range("O3"))
With WshtRD
Set RngDI = .Range("A:A").find(What:=Format(AI, "dd/mm/yyyy"), LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)      
End With`


Range(RngDI.Offset(columnOffset:=3), "D2").Select
    
    
Range("Q10").Formula = "=AVERAGE()"`

Я хотел бы установить этот диапазон 

Range(RngDI.Offset(columnOffset:=3), "D2").Select

в качестве аргумента для функции AVG.

Кто-нибудь может мне помочь? Спасибо!

...