ชุมชนความรู้ Excel และ Microsoft 365 สำหรับการทำงานจริง ตั้งแต่สูตร ฟังก์ชัน VBA, Power Query, PivotTable, Dashboard และ AI จนถึงการวิเคราะห์ข้อมูลและพัฒนาระบบงานในองค์กร
https://snasui.com/
ต้องการเช็ค TextBox ใด เช็คเมื่อเกิดเหตุการณ์ใดครับ ตัวอย่าง Code ครับCode: Select all
Private Sub NametBox1_Change()
Dim i As Integer
For i = 1 To Len(Me.NametBox1.Text)
Select Case Asc(UCase(Mid(Me.NametBox1.Text, i, 1)))
Case 48 To 57, 65 To 90
Case Else
MsgBox "Please check your character."
Exit Sub
End Select
Next i
Me.NametBox1.Text = UCase(Me.NametBox1.Text)
Me.Caption = NametBox1.Value
End SubTextBox.Text="" ไม่ใช่ TextBox.Text=" " แบบหลังไม่ใช่เท่ากับค่าว่าง แต่ให้เท่ากับค่าวรรคครับ
ลองแนบไฟล์ของตนเองแล้วแจ้งว่าปัจจุบันติดปัญหาตรงไหน อย่างไร จะได้ตอบต่อไปจากนั้นครับ