Excel Forum

1. กรอกได้เฉพาะตัวเลขสามารถระบบตรวจได้
2. กรอกตัวเลขน้อยกว่า 3 หลัก ระบบไมสามารถตรวจสอบได้
รบกวน อาจารย์แนะนำ code VBA ด้วยครับ ตัวอย่าง Code VBA
Private Sub TextSdBank_BeforeUpdate(Cancel As Integer)
If Nz(Me.TextSdBank, "") = "" Then
Exit Sub
End If
If Not IsNumeric(Me.TextSdBank) Then
MsgBox " Input only number "
Cancel = True
Exit Sub
End If
If Val(Me.TextSdBank) < 0 Then
MsgBox "ไม่สามารถใส่เครื่องหมายลบ"
Cancel = True
Exit Sub
End If
If Val(M.TextSdBank, "").Length < 3 Then
MsgBox "ข้อมูลยังไม่ครบ 13 ตัว"
Else
Label1.Text = ""
End If
End Sub

ช่วยโพสต์ Code ให้แสดงเป็น Code ตามกฎข้อ 5 ด้านบนด้วยครับ

การนับอักขระใช้ Len ครับ เช่น Len(M.TextSdBank.Text)<3

ขอขอบคุณ คิดไม่ถึงครับ