У меня есть формула в ячейке, которая рассчитывает данную дату. Я хочу написать макрос VBA, который будет принимать формулу, преобразовывать ее в результирующее значение даты и копировать это значение в другую / соседнюю ячейку.

Я попытался записать макрос, используя "F2" и "F9", однако скрипт VBA возвращает, например 

ActiveCell.FormulaR1C1 = "12/31/2009".

Я хочу написать макрос для работы в последующие годы, где формула для ячейки даты может быть 31.12.2012, 2013 и т.д. Я построил формулы, чтобы устранить влияние високосного года, поэтому я не могу просто добавить 365, чтобы вывести в следующем году.

|источник

1 ответ1

2

Это скопирует значение и формат из текущей активной ячейки в ячейку справа

Sub CopyValue()
    ActiveCell.Offset(0, 1).Value = ActiveCell.Value
    ActiveCell.Offset(0, 1).NumberFormat = ActiveCell.NumberFormat
End Sub
|источник

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .