У наставку ћемо погледати програм у Екцел ВБА да могу обрнути низови.
Ситуација:
Поставите командно дугме на свој радни лист и додајте следеће редове кода:
1. Прво, декларишемо четири променљиве. Једна променљива која се зове текст типа Стринг, једна променљива која се назива реверседТект такође типа Стринг, једна променљива која се назива дужина типа Интегер и једна променљива која се назива и типа Интегер.
Затамни текст као низ, обрнути текст као низ, дужина као цео број, и као цео број
2. Покрећемо две променљиве. Користимо функцију ИнпутБок да бисмо добили текстуални низ од корисника. Користимо функцију Лен у Екцел ВБА да бисмо добили дужину низа.
тект = ИнпутБок ("Унесите текст који желите да обрнете")
дужина = Лен (текст)
3. Покрећемо петљу Фор Нект.
За и = 0 Дужини - 1
4. Сада долази једноставан трик. Узимамо последњи знак из текста и постављамо га испред РеверседТект -а. Можемо користити функцију Мид у Екцелу ВБА за издвајање знака из низа. Оператор & користимо за спајање (спајање) два низа.
реверседТект = реверседТект & Мид (текст, (дужина - и), 1)
5. Не заборавите да затворите петљу.
Затим сам
Пример: тект = "Ауто". Дужина текста је 3. За и = 0 до 2 издвајамо подниз текста који почиње од дужине позиције - и са дужином 1. Дакле, за и = 0, Мид (текст, 3, 1) је једнако р. Стављамо р на прву позицију обрнутог текста. За и = 1, средина (текст, 2, 1) је једнака а. Додајемо а обрнутом тексту који постаје ра. За и = 2, Мид (тект, 1, 1) је једнак Ц. Додајемо Ц обрнутом тексту који постаје раЦ.
6. На крају, приказујемо реверседТект користећи МсгБок.
мсгбок реверседТект
7. Тестирајте програм.
Резултат: