วิธีแปลงสตริงให้เป็นตัวพิมพ์ที่เหมาะสมโดยใช้ 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
เมื่อเราเรียกใช้แมโครนี้ เราได้รับผลลัพธ์ต่อไปนี้:
คอลัมน์ B จะแสดงแต่ละสตริงในคอลัมน์ A ในกรณีที่เหมาะสม
หมายเหตุ : คุณสามารถค้นหาเอกสารฉบับเต็มของฟังก์ชัน StrConv ใน VBA ได้ที่นี่
แหล่งข้อมูลเพิ่มเติม
บทช่วยสอนต่อไปนี้จะอธิบายวิธีการทำงานทั่วไปอื่นๆ ใน VBA:
วิธีเปรียบเทียบสตริงใน VBA
วิธีลบช่องว่างออกจากสตริงใน VBA
วิธีแทนที่อักขระในสตริงใน VBA