300 Piemēri

Apgrieztās stīgas

Reverse Strings

Zemāk mēs apskatīsim programmu Excel VBA ka var reversās stīgas .



Situācija:

Reversā virkne programmā Excel VBA





excel formula vārds uzvārds

Novietojiet a komandu pogu darblapā un pievienojiet šādas koda rindiņas:

1. Pirmkārt, mēs deklarējam četrus mainīgos. Viens mainīgais, ko sauc par teksta tipu String, viens mainīgais, ko sauc par reversedText, arī tipa String, viens mainīgais, ko sauc par Integer tipa garumu, un viens mainīgais, kura nosaukums ir i.



NavtekstsString, reversedText Stīga, garums Vesels skaitlis, i Vesels skaitlis

2. Mēs inicializējam divus mainīgos. Mēs izmantojam funkciju InputBox, lai no lietotāja iegūtu teksta virkni. Mēs izmantojam Len funkciju programmā Excel VBA, lai iegūtu virknes garumu.

vidējā un apaļā funkcija Excel
text = InputBox ('Ievadiet tekstu, kuru vēlaties mainīt')
garums = Len (teksts)

Ievadiet tekstu

3. Mēs sākam For For Next cilpu.

Priekši = 0Uzgarums - 1

4. Tagad nāk vienkāršs triks. Mēs ņemam pēdējo rakstzīmi no teksta un ievietojam to ReversedText priekšpusē. Lai iegūtu rakstzīmi no virknes, Excel VBA varam izmantot funkciju Mid. Mēs izmantojam & operatoru, lai savienotu (savienotu) divas virknes.

reversedText = reversedText & Mid (teksts, (garums - i), 1)

5. Neaizmirstiet slēgt cilpu.

Nākamaisi

Piemērs: text = 'Auto'. Teksta garums ir 3. Ja i = 0 līdz 2, mēs iegūstam teksta apakšvirkni, sākot ar pozīcijas garumu - i ar garumu 1. Tādējādi, ja i = 0, vidējais (teksts, 3, 1) ir vienāds ar r. Mēs ievietojam r apgrieztā teksta pirmajā pozīcijā. Ja i = 1, vidējs (teksts, 2, 1) ir vienāds ar a. Mēs pievienojam a reversedText, kas kļūst par ra. Ja i = 2, Mid (teksts, 1, 1) ir vienāds ar C. Mēs pievienojam C reversam tekstam, kas kļūst par raC.

kā lietot stdev

6. Visbeidzot, mēs parādām reversedText, izmantojot MsgBox.

msgbox reversedText

7. Pārbaudiet programmu.

Rezultāts:

Reversās virknes rezultāts

3/5 Pabeigts! Uzziniet vairāk par manipulācijām ar virkni>
Doties uz nākamo nodaļu: Datums un laiks



^