как добавить формулу в ячейку с помощью VB - PullRequest
0 голосов
/ 21 июня 2019

Я новичок в VBA, и мне нужно понять, как скопировать формулу и добавить к ней дату.

У меня есть лист с именем "Reg ALL - current", и у меня есть несколько формул, написанных наэтот лист из ячеек AJ до BF.

Скажем, AI содержит значение даты как 30/04/2019 следующее AJ будет содержать 01/05/2019 и AK как 02/05/2019 и т. д.до BF

Но AJ заполняется по формуле, подобной этой

=IF(AND(OR($E:$E="END",$E:$E="Preend",$E:$E="HOLDREG",$E:$E="ISHOLD",$E:$E="WAIT"),[@[30/04/2019]]=""),$AP$1,"") "

и AK будут с

 =IF(AND(OR($E:$E="END",$E:$E="Preend",$E:$E="HOLDREG",$E:$E="ISHOLD",$E:$E="WAIT"),[@[30/04/2019]]="",[@[01/05/2019]]=""),$AK$1,"")

, где две даты

Поэтому мне пришлось написать код VBA для автоматического заполнения значения

Дата добавляется в конце.Поэтому я создал переменную sy Sdaterange и присвоил ей значение

sDateRange = ",[@[" & Range("rStart").Offset(0, 0).Value2 & "]]=" & Chr(34) & Chr(34) 

, так как кавычки не работают, я увидел значение ascii и добавил их.

Теперь я не могу добавитьесли к строке, то не могу продолжить с кодом.

Так что я хотел достичь этого, но не мог

Start = IF(AND(OR($E:$E="END",$E:$E="Preend",$E:$E="HOLDREG",$E:$E="ISHOLD",$E:$E="WAIT")

С AJ до BF

  1. Change(30/04/2019) = ,[@[30/04/2019]]=""

  2. Change(30/04/2019)& Change(31/04/2019)

Ожидается: я хочу, чтобы код VBA скопировал формулу и добавилэти даты им.Может ли кто-нибудь помочь мне?

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