วิธีแปลงสตริงเป็นตัวพิมพ์ใหญ่โดยใช้ vba

คุณสามารถใช้ฟังก์ชัน UCase ใน VBA เพื่อแปลงสตริงเป็นตัวพิมพ์ใหญ่ได้

คุณสามารถใช้ไวยากรณ์ต่อไปนี้เพื่อแปลงช่วงของเซลล์ที่มีสตริงเป็นตัวพิมพ์ใหญ่:

 Sub ConvertToUpperCase()
    
    Dim i As Integer

    For i = 2 To 10
        Range(" B " & i) = UCase(Range(" A " & i))
    Next i
    
End Sub

ตัวอย่างนี้จะแปลงแต่ละสตริงในช่วง A2:A10 เป็นตัวพิมพ์ใหญ่ และแสดงผลลัพธ์ในช่วง B2:B10

ตัวอย่างต่อไปนี้แสดงวิธีใช้ไวยากรณ์นี้ในทางปฏิบัติ

ตัวอย่าง: แปลงสตริงเป็นตัวพิมพ์ใหญ่โดยใช้ VBA

สมมติว่าเรามีคอลัมน์สตริงต่อไปนี้ใน Excel:

สมมติว่าเราต้องการแปลงแต่ละสตริงในคอลัมน์ A เป็นตัวพิมพ์ใหญ่และแสดงผลลัพธ์ในคอลัมน์ B:

เราสามารถสร้างมาโครต่อไปนี้เพื่อทำสิ่งนี้:

 Sub ConvertToUpperCase()
    
    Dim i As Integer

    For i = 2 To 10
        Range(" B " & i) = UCase(Range(" A " & i))
    Next i
    
End Sub

เมื่อเราเรียกใช้แมโครนี้ เราได้รับผลลัพธ์ต่อไปนี้:

คอลัมน์ B แสดงแต่ละสตริงในคอลัมน์ A เป็นตัวพิมพ์ใหญ่

หมายเหตุ : คุณสามารถดูเอกสารฉบับเต็มของฟังก์ชัน UCase ได้ใน VBA ที่นี่

แหล่งข้อมูลเพิ่มเติม

บทช่วยสอนต่อไปนี้จะอธิบายวิธีการทำงานทั่วไปอื่นๆ ใน VBA:

วิธีเปรียบเทียบสตริงใน VBA
วิธีลบช่องว่างออกจากสตริงใน VBA
วิธีแทนที่อักขระในสตริงใน VBA