เขียนVBAรับค่าในTextboxได้แค่อักษรตัวพิมพ์ใหญ่กับตัวเลข

[natsuda]

คือรบรวนหน่อยคะ ต้องการเขียนรับค่าตัวอักษรภาษาอังกฤษตัวพิมพ์ใหญ่กับตัวเลขใน Textbox คะ ขอบคุณนะคะ ขออนุญาติไม่ใส่โค๊ดนะคะ เพราะเขียนเองไม่ได้จริงๆ

[snasui]

ต้องการเช็ค TextBox ใด เช็คเมื่อเกิดเหตุการณ์ใดครับ

[natsuda]

ที่ Textbox ชื่อ NametBox1 คือถ้ากรองข้อมูลเป็นตัวอักษรภาษาไทยและอักษรภาษาอังกฤษตัวเล็กให้ขึ้นข้อความเตือนคะ

[snasui]

ตัวอย่าง 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 Sub

ส่วนการกำหนดค่าให้ TextBox เป็นค่าว่างจะใช้ TextBox.Text="" ไม่ใช่ TextBox.Text=" " แบบหลังไม่ใช่เท่ากับค่าว่าง แต่ให้เท่ากับค่าวรรคครับ

[natsuda]

ขอบคุณนะคะ ได้แล้วคะ

[suwatchai.com]

ขอถามต่อข้อมูลนี้นะค่ะ ถ้าต้องการให้สามารถเว้นวรรค ทำได้ไหมค่ะ พอดีจะเอาไปใช้ในการกรอกชื่อนามสกุลภาษาอังกฤษ รบกวนด้วยนะค่ะ

[snasui]

ลองแนบไฟล์ของตนเองแล้วแจ้งว่าปัจจุบันติดปัญหาตรงไหน อย่างไร จะได้ตอบต่อไปจากนั้นครับ