วิธีย้อนกลับสตริงใน vba (พร้อมตัวอย่าง)

คุณสามารถใช้ฟังก์ชัน StrReverse ใน VBA เพื่อกลับสตริงข้อความได้

นี่เป็นวิธีทั่วไปในการใช้ฟังก์ชันนี้ในทางปฏิบัติ:

 SubReverseStrings ()
    
Dim i As Integer

For i = 2 To 11
    Range("B" & i) = StrReverse(Range("A" & i))
Next i

End Sub

ตัวอย่างนี้จะกลับรายการแต่ละสตริงในช่วง A2:A11 และแสดงผลลัพธ์ในช่วง B2:B11

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

ตัวอย่าง: วิธีย้อนกลับสตริงโดยใช้ VBA

สมมติว่าเรามีคอลัมน์ชื่อทีมบาสเกตบอลต่อไปนี้ใน Excel:

สมมติว่าเราต้องการกลับชื่อของแต่ละทีมและแสดงผลลัพธ์ในเซลล์ที่เกี่ยวข้องในคอลัมน์ B

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

 SubReverseStrings ()
    
Dim i As Integer

For i = 2 To 11
    Range("B" & i) = StrReverse(Range("A" & i))
Next i

End Sub

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

คอลัมน์ B แสดงชื่อทีมแต่ละทีมในคอลัมน์ A ย้อนหลัง

ตัวอย่างเช่น:

• Mavs กลายเป็น svaM
• สเปอร์สกลาย เป็น SrupS
• Rockets กลายเป็น stekcoR
• Kings กลายเป็น sgniK

และอื่นๆ

โปรดทราบว่าฟังก์ชัน StrReverse ยังใช้ได้กับตัวเลขอีกด้วย

ตัวอย่างเช่น การใช้ฟังก์ชัน StrReverse กับตัวเลข 1234 จะส่งกลับ 4321

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

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

VBA: วิธีตรวจสอบว่าสตริงมีสตริงอื่นหรือไม่
VBA: วิธีนับจำนวนแถวในช่วง
VBA: วิธีเขียนฟังก์ชัน COUNTIF และ COUNTIFS