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