Перевернуть строку текста с помощью VBA
Приведенная ниже процедура VBA позволяет пользователю ввести строку, а затем эта же строка отображается в обратном порядке. Например, «понедельник» становится «ядноМ»:
| 123456789101112131415161718192021222324252627282930313233343536 | Вариант ЯвныйЧастная подпрограмма CommandButton1_Click ()'Определить переменныеУменьшить исходную_строку как строкуТусклая обратная_строка как строкаDim Next_Char As StringТусклая длина как целое числоDim Pos As Integer'Получить исходную строкуOriginal_String = InputBox ("Пожалуйста, введите исходную строку:")'Найдите исправленную длину строкиДлина = Длина (Исходная_строка)'Настройте перевернутую строкуReversed_String = ""'Посимвольно перемещаться по строке'Начиная с последнего символа и двигаясь к первому символуДля Pos = длина до 1 шага -1Next_Char = Mid (Исходная_строка, Поз, 1)Reversed_String = Reversed_String и Next_CharСледующая позицияMsgBox "Перевернутая строка" & Reversed_StringКонец подписки |
Основные особенности кода: -
• Требуется командная кнопка для активации кода - при событии щелчка.
• Устанавливаются следующие переменные: -
o Original_String - исходная строка, которая будет перевернута («Понедельник»)
o Reversed_String - обратная строка («ядноМ»)
o Next_Char - следующий символ в строке, который будет перевернут
o Длина - длина строки
o Pos - текущая позиция в строке
• InputBox для захвата строки. Это хранится в переменной «Исходная строка».
• Длина строки рассчитывается с помощью функции LEN и сохраняется в переменной Length.
• Цикл FOR… NEXT настроен для прохождения строки, начиная с последнего символа и двигаясь в обратном направлении по одному символу за раз.
• Следующий символ исходной строки (работающий в обратном направлении) затем добавляется к перевернутой строке.
• Этот цикл повторяется до тех пор, пока мы не пройдем всю длину строки
• Перевернутая строка отображается в MsgBox.
Загрузите файл Excel здесь
