Нижче ми розглянемо програму в Excel VBA що може зворотні рядки.
Ситуація:
Помістіть команду на робочому аркуші та додайте такі рядки коду:
1. Спочатку ми оголошуємо чотири змінні. Одна змінна називається текстом типу String, одна змінна називається reversedText також типу String, одна змінна називається довжиною типу Integer і одна змінна називається i типу Integer.
Затемнити текст як рядок, reversedText як рядок, довжину як ціле число, i як ціле число
2. Ми ініціалізуємо дві змінні. Ми використовуємо функцію InputBox, щоб отримати текстовий рядок від користувача. Ми використовуємо функцію Len в Excel VBA, щоб отримати довжину рядка.
text = InputBox ("Введіть текст, який потрібно змінити")
довжина = Лен (текст)
3. Починаємо цикл For Next.
Для i = 0 До довжини - 1
4. Тепер приходить простий трюк. Ми беремо останній символ із тексту і розміщуємо його перед перевернутим текстом. Ми можемо використовувати функцію Mid в Excel VBA для вилучення символу з рядка. Ми використовуємо оператор & для об'єднання (з'єднання) двох рядків.
reversedText = reversedText & Mid (текст, (довжина - i), 1)
5. Не забудьте закрити цикл.
Далі i
Приклад: text = "Автомобіль". Довжина тексту становить 3. Для i = 0 до 2 ми витягуємо підрядок тексту, починаючи з довжини позиції - i з довжиною 1. Таким чином, для i = 0, Mid (текст, 3, 1) дорівнює r. Ми розміщуємо r на першій позиції зворотного тексту. Для i = 1, Mid (текст, 2, 1) дорівнює a. Ми додаємо a до зворотного тексту, який стає ra. Для i = 2, Mid (текст, 1, 1) дорівнює C. Додаємо C до зворотного тексту, який стає raC.
6. Нарешті, ми відображаємо reversedText за допомогою MsgBox.
msgbox reversedText
7. Перевірте програму.
Результат: