Upper Textbox

[snoopy1150]

เรียน ทุกท่านครับ

คือผมอยากถามว่าตัว Textbox สามารถ key ตัวเล็กแล้วให้แปลงเป็น ตัวใหญ่ได้หรือไม่ ครับ
หากได้ต้องเขียน Code ประมาณไหนครับ ทั้งนี้ผมได้แนบ code มาให้ดูด้วยครับ

Code: Select all

Private Sub CommandButton1_Click()
    If Me.TextBox1.Value <> "" Then
        Dim ws As Worksheet
        Set ws = Worksheets("From")
        
        Me.TextBox1.Text = Application.Trim(Me.TextBox1.Text)
        Me.TextBox2.Text = Application.Trim(Me.TextBox2.Text)
        
        Range("Stlo").Value = Me.TextBox1.Value
        Range("Enlo").Value = Me.TextBox2.Value
        Else
        
    End If

        
End Sub

[snasui]

Code: Select all

Me.TextBox1.Text = Application.Trim(Me.TextBox1.Text)
Me.TextBox2.Text = Application.Trim(Me.TextBox2.Text)

สามารถปรับเป็น

Code: Select all

Me.TextBox1.Text = Application.Trim(Ucase(Me.TextBox1.Text))
Me.TextBox2.Text = Application.Trim(Ucase(Me.TextBox2.Text))

[snoopy1150]

ขอบคุณครับ อาจารย์