forms - VBA验证文本框中是否存在文本，然后检查日期是否格式正确

Question

我有一个与 VBA 结合创建的 Excel 表单。在表单中，我有一个文本框，用户可以在其中输入日期。

我创建了这个 VBA 子句以确保用户键入支持xx/xx/xxxx 格式的日期。

If Not IsDate(textboxDate1.Text) Then
  Call MsgBox("Please select a correct Date format", vbOKOnly)
  Exit Sub
End If

但是，使用此 VBA 代码，用户需要输入日期，无论用户是否需要。因此，当我有 4 个其他文本框在我的表单中输入日期时，用户只需要输入 1 个日期，而不是 5 个，我遇到了用户需要为其他四个文本框输入日期的问题为了提交表格。

所以我的问题是：什么 VBA 代码可用于首先确定文本框中是否存在文本，然后再确定日期格式是否正确。

我正在尝试类似的事情：

 If textboxDate1.ListIndex = -1 Then

但我无法让它与 IsDate 子句一起使用。

提前谢谢了。

Answer 1

If (Len(Trim(textboxDate1.Text)) <> 0)  And Not IsDate(textboxDate1.Text) Then 
  Call MsgBox("Please select a correct Date format", vbOKOnly) 
  Exit Sub 
End If