เขียนVBAรับค่าในTextboxได้แค่อักษรตัวพิมพ์ใหญ่กับตัวเลข
Posted: Thu Apr 21, 2016 1:08 am
คือรบรวนหน่อยคะ ต้องการเขียนรับค่าตัวอักษรภาษาอังกฤษตัวพิมพ์ใหญ่กับตัวเลขใน Textbox คะ ขอบคุณนะคะ ขออนุญาติไม่ใส่โค๊ดนะคะ เพราะเขียนเองไม่ได้จริงๆ
คลังคำตอบแห่งความรู้จากคนไทย เพื่อโลกที่ต้องการเข้าใจในสิ่งเล็ก ๆ อย่างลึกซึ้ง
https://www.snasui.com/
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=" " แบบหลังไม่ใช่เท่ากับค่าว่าง แต่ให้เท่ากับค่าวรรคครับ