Excel Forum

Code: Select all

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    With TextBox1
        If IsDate(.Text) Then
            .Text = Format(DateValue(.Text), "d/mmm/yyyy")
            .BackColor = vbWhite
        Else
            MsgBox "กรุณากรอกวันเดือนปีเป็นรูปแบบ พ.ศ. ตัวอย่างเช่น 2/2/2566"
            .BackColor = vbYellow
            .Value = ""
            Cancel = True
        End If
    End With
End Sub

Code: Select all

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    Dim yr As Integer
    With TextBox1
        If IsDate(.Text) Then
            yr = VBA.Year(.Text)
            If yr < 2400 Then
                MsgBox "กรุณากรอกวันเดือนปีเป็นรูปแบบ พ.ศ. ตัวอย่างเช่น 2/2/2566"
                .BackColor = vbYellow
                .Value = ""
                Cancel = True
                Exit Sub
            End If
            .Text = Format(DateValue(.Text), "d/mmm/yyyy")
            .BackColor = vbWhite
'        Else
'            MsgBox "กรุณากรอกวันเดือนปีเป็นรูปแบบ พ.ศ. ตัวอย่างเช่น 2/2/2566"
'            .BackColor = vbYellow
'            .Value = ""
'            Cancel = True
        End If
    End With
End Sub