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


สตริงจะเป็นตัวพิมพ์ เล็กและตัวพิมพ์ใหญ่ หากอักษรตัวแรกของแต่ละคำในสตริงเป็นตัวพิมพ์ใหญ่ และตัวอักษรอื่นๆ ทั้งหมดของแต่ละคำเป็นตัวพิมพ์เล็ก

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

 Sub ConvertToProperCase()
    
    Dim i As Integer

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

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

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

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

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

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

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

 Sub ConvertToProperCase()
    
    Dim i As Integer

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

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

VBA แปลงสตริงให้เป็นตัวพิมพ์ที่เหมาะสม

คอลัมน์ B จะแสดงแต่ละสตริงในคอลัมน์ A ในกรณีที่เหมาะสม

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

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

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

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

เพิ่มความคิดเห็น

อีเมลของคุณจะไม่แสดงให้คนอื่นเห็น ช่องข้อมูลจำเป็นถูกทำเครื่องหมาย *