Pakeiskite teksto eilutę naudodami VBA
Žemiau pateikta VBA tvarka leidžia vartotojui įvesti eilutę ir tada pateikiama ta pačia eilute atgal. Pavyzdžiui, „pirmadienis“ tampa „yadnoM“:
| 123456789101112131415161718192021222324252627282930313233343536 | Pasirinkimas aiškusPrivati antrinė komandaButton1_Click ()„Apibrėžkite kintamuosiusDim Original_String As StringDim Atvirkštinė_String kaip eilutėPritemdyti kitą eilutę kaip eilutęŠviesus ilgis kaip sveikasis skaičiusDim Pos As Integer'Gaukite originalią stygąOriginal_String = InputBox ("Pls įveskite pradinę eilutę:")„Raskite pataisytą eilutės ilgįIlgis = Len (Original_String)„Nustatykite atvirkštinę eilutęReversed_String = ""„Eikite per eilutę pagal simbolį„Pradėkite nuo paskutinio simbolio ir eikite link pirmojoPoz. = Ilgis iki 1 žingsnio -1Next_Char = Mid (Original_String, Pos, 1)Reversed_String = Reversed_String & Next_CharKitas pozMsgBox „Atvirkštinė eilutė yra„ & Reversed_String “Pabaiga Sub |
Pagrindinės kodo savybės yra šios:-
• Norint suaktyvinti kodą, paspaudimo atveju reikia komandinio mygtuko
• Nustatomi šie kintamieji:-
o Original_String - originali eilutė, kuri bus pakeista („pirmadienis“)
o Reversed_String - atvirkštinė eilutė („yadnoM“)
o Next_Char - kitas simbolis eilutėje, kuris bus pakeistas
o Ilgis - eilutės ilgis
o Pos - dabartinė eilutės padėtis
• Įvesties langelis, skirtas užfiksuoti eilutę. Tai saugoma kintamajame „Original String“
• Eilutės ilgis apskaičiuojamas naudojant LEN funkciją ir išsaugomas kintamajame Length
• FOR… NEXT kilpa yra sukurta taip, kad eitų per eilutę, pradedant nuo paskutinio simbolio ir dirbant atgal po vieną simbolį
• Kitas simbolis pradinėje eilutėje (veikiantis atgal) pridedamas prie atvirkštinės eilutės
• Ši kilpa kartojama tol, kol praeiname visą eilutės ilgį
• Atvirkštinė eilutė rodoma „MsgBox“.
Atsisiųskite „Excel“ failą čia
