/ / Wstecz ciągi w programie Excel VBA

Odwróć ciągi w Excelu VBA

Poniżej przyjrzymy się programowi w Excel VBA to może wsteczne struny.

Sytuacja:

Odwróć ciąg w Excelu VBA

Umieść przycisk polecenia w arkuszu i dodaj następujące wiersze kodu:

1. Najpierw deklarujemy cztery zmienne. Jedna zmienna nazywa się tekstem typu String, jedną zmienną o nazwie reverseText również typu String, jedną zmienną o nazwie długość typu Integer i jedną zmienną o nazwie i typu Integer.

Dim text As String, reversedText As String, length As Integer, i As Integer

2. Inicjujemy dwie zmienne. Używamy funkcji InputBox, aby uzyskać ciąg tekstowy od użytkownika. Używamy funkcji Len w Excelu VBA, aby uzyskać długość ciągu znaków.

text = InputBox("Enter the text you want to reverse")
length = Len(text)

Wprowadź tekst

3. Rozpoczynamy pętlę For Next.

For i = 0 To length - 1

4. Teraz przychodzi prosta sztuczka. Pobieramy ostatnią literę z tekstu i umieszczamy ją na początku tekstu ReversedText. Możemy użyć funkcji Mid w Excel VBA, aby wyodrębnić znak z ciągu znaków. Używamy operatora & do łączenia (łączenia) dwóch łańcuchów.

reversedText = reversedText & Mid(text, (length - i), 1)

5. Nie zapomnij zamknąć pętli.

Next i

Przykład: text = "Car". Długość tekstu to 3. Dla i = 0 do 2, wyodrębniamy podciąg tekstu rozpoczynającego się od długości pozycji - i o długości 1. Tak więc, dla i = 0, środek (tekst, 3, 1) jest równy r. Umieszczamy r na pierwszej pozycji odwróconego tekstu. Dla i = 1, Mid (tekst, 2, 1) równa się a. Dodajemy do odwróconego tekstu, który staje się ra. Dla i = 2, Mid (tekst, 1, 1) równa się C. Dodajemy C do odwróconego tekstu, który staje się raC.

6. Na końcu wyświetlamy reverseText za pomocą MsgBox.

msgbox reversedText

7. Sprawdź program.

Wynik:

Odwróć wynik ciągu

Przeczytaj również: