Excel VBA Userform IIf (IsDate) boş kaydedmiyor

Question

Sabah tüm, Bir çalışma kitabım var; bir dizi UserForms ile birden çok veri türünün girilmesine izin veren metin, sayısal değerler ve bir çok şey var. tarih alanları Her şey iyi çalışıyor, bir kullanıcı uygun bir kullanıcı formunu kullanarak bir tarihi silmek istiyorsa, çalışma sayfasındaki değerin üzerine yazmaz. Aşağıda, kullanıcı formundaki değerin bir tarih olup olmadığını kontrol etmek için kullanıyorum kod ve çalışma sayfasını doldurun, ancak hiçbir şey yapmıyor. Herhangi bir yardım takdir edildi.

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

Güncelleme: txtCollectionDate o değeri başlangıçta 2016/09/01 oldu, ama yanlışlıkla girildiği gibi kullanıcı, bunu silmek istiyor bir metin kutusu olduğunu. Kullanıcı değeri vurgulayabilmeli, silmeye (klavye) basmalı, ardından kaydetmelidir.

Answer 1

IIf ile sanki, bölüm kısmı doğru olmasa bile parça işlenir. Bu, CDate("") ile 13 tür uyuşmazlığa neden olur.

Yani yapmanız gereken:

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

Düzenleme:

Sil "görünüyor". Bu davranış belgelenmiştir: https://msdn.microsoft.com/en-us/library/office/gg264412.aspx