Реверс строк в Excel VBA
Ниже мы рассмотрим программу в Excel VBA, которая может полностью изменить строки.
Ситуация:
Поместите командную кнопку на листе и добавьте строки следующего кода:
-
Во-первых, мы объявляем четыре переменные. Одна переменная называется текст строкового типа, одна переменная с именем reversedText также типа String, одна переменная называется длина целого типа, и одна переменная с именем I типа Integer.
Dim text As String, reversedText As String, length As Integer, i As Integer
-
Мы инициализируем две переменные. Мы используем функцию InputBox, чтобы получить текстовую строку от пользователя. Мы используем функцию Len в Excel VBA, чтобы получить длину строки.
text = InputBox("Enter the text you want to reverse")
length = Len(text)
-
Мы начинаем Для следующего цикла.
For i = 0 To length - 1
-
Теперь приходит простой трюк. Мы берем последний символ из текста и поместить его в передней части ReversedText. Мы можем использовать функцию Mid в Excel VBA для извлечения символа из строки. Мы используем и оператор для конкатенации (объединение) двух строк.
reversedText = reversedText & Mid(text, (length - i), 1)
-
Не забудьте закрыть петлю.
Next i
Пример: текст = «Автомобиль». Длина текста 3. Для I = 0 до 2, мы извлечь подстроку текста, начиная с длиной позиции — я с длиной 1. Таким образом, при г = 0, Середина (текст, 3, 1) равен г. Кладем г на первой позиции reversedText. Для I = 1, Середина (текст, 2, 1) равен а. Мы добавим к reversedText, которая становится ра. Для I = 2, средний (текст, 1, 1) равна C. Добавим к C reversedText, которая становится рац.
-
И, наконец, мы выводим reversedText с помощью MsgBox.
msgbox reversedText
-
Проверьте программу.
Результат:
