Excel VBA Userform IIf (IsDate) не сохраняет пробел

Question

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

ws.Cells(lastRow, txtCollectionDate.Tag).Value = IIf(IsDate(txtCollectionDate), CDate(txtCollectionDate), "") 

Update: txtCollectionDate это текстовое поле, это значение изначально было 09/01/2016, но пользователь хочет удалить это, как оно было введено в заблуждении. Пользователь должен иметь возможность выделить значение, нажать «Удалить» (клавиатура), а затем сохранить.

Answer 1

Кажется, что с IIf тогда часть будет обработана, даже если часть критерия неверна. Это приводит к ошибке несоответствия типа 13 с CDate("").

Так что вы должны сделать:

If IsDate(txtCollectionDate) Then 
ws.Cells(lastRow, txtCollectionDate.Tag).Value = CDate(txtCollectionDate) 
Else 
ws.Cells(lastRow, txtCollectionDate.Tag).Value = "" 
End If 

Edit:

Удалить "Кажется". Это поведение задокументировано: https://msdn.microsoft.com/en-us/library/office/gg264412.aspx