Змінити рядок тексту за допомогою VBA
Нижче наведено послідовність VBA, яка дозволяє користувачеві вводити рядок, а потім подається той самий рядок назад. Наприклад, "понеділок" стає "ядноМ":
| 123456789101112131415161718192021222324252627282930313233343536 | Опція явнаПриватна підкоманда CommandButton1_Click ()'Визначте змінніDim Original_String As StringDim Reversed_String As StringЗатемнити Next_Char як рядокЗатемнити довжину як ціле числоDim Pos як ціле число'Отримайте оригінальний рядокOriginal_String = InputBox ("Будь ласка, введіть вихідний рядок:")'Знайдіть переглянуту довжину рядкаДовжина = Len (Original_String)'Налаштуйте зворотний рядокЗмінено_String = ""'Перехід від рядка до символу'Починаючи з останнього символу і переходячи до першого символуДля Pos = Довжина до 1 кроку -1Next_Char = Mid (Original_String, Pos, 1)Reversed_String = Змінено_String & Next_CharНаступний позMsgBox "Змінений рядок" & Reversed_StringEnd Sub |
Основними ознаками коду є:-
• Для активації коду для події клацання потрібна кнопка команди
• Налаштовано такі змінні:-
o Original_String - вихідний рядок, який буде змінено ("понеділок")
o Reversed_String - обернений рядок ("yadnoM")
o Next_Char - наступний символ у рядку, який буде змінено
o Довжина - довжина струни
o Pos - поточна позиція в рядку
• InputBox для захоплення рядка. Це зберігається у змінній "Оригінальний рядок"
• Довжина рядка обчислюється за допомогою функції LEN і зберігається у змінній Довжина
• Цикл FOR… NEXT налаштований для переходу через рядок, починаючи з останнього символу та працюючи назад по одному символу за раз
• Наступний символ у вихідному рядку (працює назад) додається до рядка, що змінився
• Цей цикл повторюється, поки ми не пройдемо всю довжину рядка
• Змінений рядок відображається у вікні MsgBox.
Завантажте файл Excel тут
