Dưới đây chúng ta sẽ xem xét một chương trình trong Excel VBA có thể đảo ngược các chuỗi.

Tình huống:

Reverse String in Excel VBA

Đặt một nút lệnh trên trang tính của bạn và thêm các dòng mã sau:

  1. Đầu tiên, chúng tôi khai báo bốn biến. Một biến được gọi là văn bản có kiểu String, một biến được gọi là Văn bản đảo ngược cũng thuộc kiểu String, một biến được gọi là độ dài của kiểu Integer và một biến được gọi là i kiểu Integer.

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

  1. Chúng tôi khởi tạo hai biến. Chúng tôi sử dụng hàm InputBox để lấy một chuỗi văn bản từ người dùng. Chúng tôi sử dụng hàm Len trong Excel VBA để lấy độ dài của một chuỗi.

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

length = Len(text)

Enter Text

  1. Chúng tôi bắt đầu một vòng lặp For Next.

For i = 0 To length - 1

  1. Bây giờ đến thủ thuật đơn giản. Chúng tôi lấy ký tự cuối cùng từ văn bản và đặt nó ở phía trước của ReversedText. Chúng ta có thể sử dụng hàm Mid trong Excel VBA để trích xuất một ký tự từ một chuỗi. Chúng tôi sử dụng toán tử & để nối (nối) hai chuỗi.

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

  1. Đừng quên đóng vòng lặp.

Next i

Ví dụ: text = “Xe hơi”. Độ dài của văn bản là 3. Với i = 0 đến 2, chúng tôi trích xuất chuỗi con của văn bản bắt đầu từ độ dài vị trí – i với độ dài 1. Do đó, với i = 0, Mid (text, 3, 1) bằng r. Chúng tôi đặt r ở vị trí đầu tiên của reverseText. Với i = 1, Mid (text, 2, 1) bằng a. Chúng tôi thêm một vào reverseText trở thành ra. Với i = 2, Mid (text, 1, 1) bằng C. Chúng ta thêm C vào reverseText trở thành raC.

  1. Cuối cùng, chúng tôi hiển thị reverseText bằng MsgBox.

msgbox reversedText

  1. Chạy thử chương trình.

Kết quả:

Reverse String Result