/ / Reverse สตริงใน Excel VBA

กลับสตริงใน Excel VBA

ด้านล่างเราจะดูที่โปรแกรมมา Excel VBA ที่สามารถ สตริงย้อนกลับ.

สถานการณ์:

สตริงย้อนกลับใน Excel VBA

วางปุ่มคำสั่งในแผ่นงานของคุณและเพิ่มบรรทัดรหัสต่อไปนี้:

1. ขั้นแรกเราจะประกาศตัวแปรสี่ตัว หนึ่งตัวแปรที่เรียกว่าข้อความประเภท String หนึ่งตัวแปรที่เรียกว่า reversedText นอกจากนี้ยังมีชนิด String หนึ่งตัวแปรชื่อ length of Type Integer และตัวแปรหนึ่งชื่อ i ของ Type Integer

Dim text As String, reversedText As String, length As Integer, i As Integer

2. เราเริ่มต้นตัวแปรสองตัวแปร เราใช้ฟังก์ชัน InputBox เพื่อรับสตริงข้อความจากผู้ใช้ เราใช้ฟังก์ชัน Len ใน Excel VBA เพื่อดูความยาวของสตริง

text = InputBox("Enter the text you want to reverse")
length = Len(text)

ป้อนข้อความ

3. เราเริ่มต้นลูป For Next

For i = 0 To length - 1

4. ตอนนี้มาพร้อมกับเคล็ดลับง่ายๆ เราใช้อักขระตัวสุดท้ายจากข้อความและวางไว้ที่ด้านหน้าของ ReversedText เราสามารถใช้ฟังก์ชัน Mid ใน Excel VBA เพื่อดึงอักขระจากสตริง เราใช้ตัวดำเนินการ & เพื่อ concatenate (join) สองสาย

reversedText = reversedText & Mid(text, (length - i), 1)

5. อย่าลืมปิดวง

Next i

ตัวอย่าง: text = "รถยนต์" ความยาวของข้อความเท่ากับ 3 สำหรับ i = 0 ถึง 2 เราแยกสตริงย่อยของข้อความที่เริ่มต้นที่ความยาวตำแหน่ง - i มีความยาว 1 ดังนั้นสำหรับ i = 0, Mid (text, 3, 1) เท่ากับ r เราวาง r ที่ตำแหน่งแรกของ reversedText สำหรับ i = 1, Mid (text, 2, 1) เท่ากับ a. เราเพิ่มคำที่ตรงกันข้ามซึ่งจะกลายเป็น ra สำหรับ i = 2, Mid (text, 1, 1) เท่ากับ C. เราเพิ่ม C เป็น reversedText ซึ่งเป็น raC

6. ในที่สุดเราจะแสดงข้อความย้อนกลับโดยใช้ MsgBox

msgbox reversedText

7. ทดสอบโปรแกรม

ผล:

ย้อนกลับผลลัพธ์สตริง

อ่านเพิ่มเติมได้ที่: