/ / Зворотні рядки в Excel VBA

Зворотні рядки в Excel VBA

Нижче ми розглянемо програму в Росії Excel VBA що може зворотні рядки.

Ситуація:

Зворотний рядок у Excel VBA

Помістіть на вашій робочій клавіші команду та додайте наступні кодові рядки:

1. По-перше, ми оголошуємо чотири змінні. Одна змінна називається текстом типу String, однією змінною з назвою reversedText є також тип String, одна змінна з назвою довжини типу Integer, а також одну змінну з ім'ям типу 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 i = 0 To length - 1

4. Тепер виходить простий трюк. Ми беремо останній символ з тексту та розміщуємо його на передній панелі ReversedText. Ми можемо використовувати функцію Mid у Excel VBA для вилучення символу з рядка. Ми використовуємо оператор &, щоб об'єднати (об'єднати) два рядки.

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

5. Не забудьте закрити цикл.

Next i

Приклад: text = "Автомобіль". Довжина тексту 3. Для i = 0 до 2 ми витягуємо підрядку тексту, починаючи з довжини позиції - i з довжиною 1. Таким чином, для i = 0 середня (текст, 3, 1) дорівнює r. Ми розміщуємо r на першій позиції зворотного тексту. Для i = 1 середня (текст, 2, 1) дорівнює a. Додаємо a до reversedText, який стає ra. Для i = 2, середній (текст, 1, 1) дорівнює C. Додамо C до зворотного тексту, який стає раК.

6. Нарешті, ми показуємо зворотний текст, використовуючи MsgBox.

msgbox reversedText

7. Перевірте програму.

Результат:

Зворотний результат рядка

Також читайте: