Poniżej przyjrzymy się programowi w Excel VBA to może odwrócone struny.
Sytuacja:
Umieść przycisk polecenia w arkuszu i dodaj następujące wiersze kodu:
1. Najpierw deklarujemy cztery zmienne. Jedna zmienna o nazwie text typu String, jedna zmienna o nazwie reversedText również typu String, jedna zmienna o nazwie length typu Integer i jedna zmienna o nazwie i typu Integer.
Tekst Dim As String, reversedText As String, długość As Integer, i As Integer
2. Inicjujemy dwie zmienne. Używamy funkcji InputBox, aby pobrać ciąg tekstowy od użytkownika. Używamy funkcji Len w Excel VBA, aby uzyskać długość ciągu.
text = InputBox("Wprowadź tekst, który chcesz odwrócić")
długość = Len(tekst)
3. Rozpoczynamy pętlę For Next.
Dla i = 0 Do długości - 1
4. Teraz przychodzi prosta sztuczka. Bierzemy ostatni znak z tekstu i umieszczamy go na początku ReversedText. Możemy użyć funkcji Mid w Excel VBA, aby wyodrębnić znak z ciągu. Używamy operatora & do łączenia (połączenia) dwóch ciągów.
reversedText = reversedText & Mid(text, (długość - i), 1)
5. Nie zapomnij zamknąć pętli.
Dalej ja
Przykład: tekst = „Samochód”. Długość tekstu wynosi 3. Dla i = 0 do 2, wyodrębniamy podłańcuch tekstu rozpoczynający się od pozycji długość - i o długości 1. Zatem dla i = 0 Mid(tekst, 3, 1) równa się r. Umieszczamy r na pierwszej pozycji reversedText. Dla i = 1 Mid(tekst, 2, 1) równa się a. Dodajemy a do reversedText, które staje się ra. Dla i = 2 Mid(text, 1, 1) równa się C. Dodajemy C do reversedText, który staje się raC.
6. Na koniec wyświetlamy reversedText używając MsgBox.
msgbox reversedText
7. Przetestuj program.
Wynik: