Đảo ngược chuỗi văn bản với VBA
Quy trình VBA bên dưới cho phép người dùng nhập một chuỗi và sau đó được trình bày ngược lại với cùng một chuỗi. Ví dụ: "Thứ Hai" trở thành "yadnoM":
| 123456789101112131415161718192021222324252627282930313233343536 | Tùy chọn rõ ràngPrivate Sub CommandButton1_Click ()'Xác định các biếnDim Original_String thành chuỗiDim Reversed_String As StringDim Next_Char thành chuỗiĐộ dài mờ dưới dạng số nguyênDim Pos As Integer'Lấy chuỗi gốcOriginal_String = InputBox ("Vui lòng nhập chuỗi gốc:")'Tìm độ dài đã sửa đổi của chuỗiChiều dài = Len (Chuỗi gốc)'Thiết lập chuỗi đảo ngượcReversed_String = ""'Tiến trình thông qua chuỗi trên cơ sở từng ký tự'Bắt đầu từ ký tự cuối cùng và đi về phía ký tự đầu tiênĐối với Pos = Chiều dài đến 1 bước -1Next_Char = Mid (Original_String, Pos, 1)Reversed_String = Reversed_String & Next_CharBài đăng tiếp theoMsgBox "Chuỗi được đảo ngược là" & Reversed_StringKết thúc Sub |
Các tính năng chính của mã là: -
• Nó cần một nút lệnh để kích hoạt mã - trên sự kiện nhấp chuột
• Các biến sau được thiết lập: -
o Original_String - chuỗi ban đầu sẽ được đảo ngược (“Thứ Hai”)
o Reversed_String - chuỗi đảo ngược (“yadnoM”)
o Next_Char - ký tự tiếp theo trong chuỗi sẽ được đảo ngược
o Chiều dài - chiều dài của chuỗi
o Pos - vị trí hiện tại trong chuỗi
• Một InputBox để nắm bắt chuỗi. Điều này được lưu trữ trong biến "Chuỗi gốc"
• Độ dài của chuỗi được tính bằng hàm LEN và được lưu trữ trong biến Độ dài
• Vòng lặp FOR… NEXT được thiết lập để đi qua chuỗi bắt đầu từ ký tự cuối cùng và làm việc ngược lại từng ký tự một
• Ký tự tiếp theo trong chuỗi ban đầu (hoạt động ngược lại) sau đó được thêm vào chuỗi đã đảo ngược
• Vòng lặp này được lặp lại cho đến khi chúng ta duyệt qua toàn bộ chiều dài của chuỗi
• Chuỗi đảo ngược được hiển thị trong MsgBox.
Tải xuống tệp Excel tại đây
