Ошибка при попытке ввода даты с использованием VBA - PullRequest
Новая
       9

Ошибка при попытке ввода даты с использованием VBA

0 голосов
/ 14 апреля 2020

У меня есть некоторый код VBA для вставки функции сопоставления индексов в таблицу для поиска значений дат. Если значение даты не может быть найдено, т.е. функция возвращает ошибку, я хочу вставить вместо ошибки дату по умолчанию.

Изначально я попытался: 

Selection.FormulaArray = _
    "=IFERROR(INDEX(PSE_Data[#All],MATCH(RC6,'PSE Data'!C[-11],0),17),""01/01/2020""))"

Однако это ввод даты в виде текста, а не в формате даты. Поэтому я попытался: 

Dim errordate As Date
    errordate = DateValue("Jan 01, 2020")    
Selection.FormulaArray = _
        "=IFERROR(INDEX(PSE_Data[#All],MATCH(RC6,'PSE Data'!C[-2],0),17),""errordate""))"

Однако тогда я получаю 1004 ошибку времени выполнения.

Буду признателен за любую помощь в разрешении.

1 Ответ

1 голос
/ 14 апреля 2020

Как указано @BigBen, использование Date(2020,1,1) вместо ""01/01/2020"" решает проблему!

...