4

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つのテキストボックスがあり、ユーザーが5つではなく1つの日付を入力するだけでよい場合、ユーザーは他の4つのテキストボックスの日付を入力する必要があるという問題があります。フォームを送信するために。

だから私の質問:最初にテキストボックスにテキストが存在するかどうかを判断し、次に日付が正しい形式であるかどうかを判断するために使用できるVBAコードは何ですか。

私はこれに似たものを試していました:

 If textboxDate1.ListIndex = -1 Then

しかし、IsDate句で動作させることができませんでした。

よろしくお願いします。

4

1 に答える 1

4
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 
于 2012-08-08T11:24:57.110 に答える