Kaip tiesiogiai įvesti VBA kodą „Excel 2016“.

Įžanga

Kartais geriausias būdas įvesti „Excel 2016“ kodą yra tiesiausias. Tiesioginis VBA kodo įvedimas apima... na, kodo įvedimas tiesiogiai. Kitaip tariant, kodą įvedate naudodami klaviatūrą. Teksto įvedimas ir redagavimas VBA modulyje veikia taip, kaip tikitės. Galite pasirinkti, kopijuoti, iškirpti, įklijuoti ir atlikti kitus veiksmus su tekstu.

1. Kodo įvedimo principai

2. Eilutės pavyzdys

Štai vieno teiginio, suskaidyto į tris eilutes, pavyzdys:

Selection.Sort Key1:=Range("A1"), _
Order1:=xlDidėjantis, Antraštė:=xlAtspėk, _
Orientacija:=xlTopToBottom

3. Klaidos taisymas

Baltai dengti inžinieriai, sukūrę VBE, numatė, kad žmonės darys klaidų. Todėl VBE turi kelis anuliavimo ir perdarymo lygius. Jei ištrynėte teiginį, kurio neturėjote, įrankių juostoje spustelėkite mygtuką Anuliuoti (arba paspauskite Ctrl+Z).

4. Kaip įvesti realų kodą

Ar esate pasirengę įvesti realų kodą? Išbandykite šiuos veiksmus:

1. Sukurkite naują darbaknygę programoje „Excel“.
2. Paspauskite Alt + F11, kad suaktyvintumėte VBE.
3. Projekto lange spustelėkite naujos darbaknykės pavadinimą.
4. Norėdami į projektą įterpti VBA modulį, pasirinkite Įterpti → Modulis.
5. Į modulį įveskite šį kodą:

Sub GuessName()
Msg = "Ar tavo vardas " & Application.UserName & "?"
Ans = MsgBox(Msg, vbYesNo)
If Ans = vbNo Then MsgBox "O, nesvarbu."
If Ans = vbYes Then MsgBox "Aš turiu būti psichika!"
End Sub

5. Kodo vykdymas

Perkelkite žymeklį į bet kurią įvesto teksto vietą ir paspauskite F5, kad atliktumėte procedūrą. F5 yra komandos Vykdyti → Vykdyti antrinę/vartotojo formą nuoroda. Jei teisingai įvedėte kodą, „Excel“ atlieka procedūrą ir galite atsakyti į paprastą dialogo langą.

6. Dialogo lango pavyzdys

„GuessName“ procedūra rodo šį dialogo langą.

Kai įvesite 5 veiksme nurodytą kodą, galite pastebėti, kad VBE šiek tiek pakoreguoja įvestą tekstą, pavyzdžiui, automatiškai įterpia teiginį End Sub.

7. Terminai ir koncepcijos

Įrašams, šioje paprastoje makrokomandoje naudojamos šios sąvokos:

• Papildomos procedūros apibrėžimas (pirmoji eilutė)
• Reikšmių priskyrimas kintamiesiems (Msg ir Ans)
• Concatenating (prisijungti) eilutę (naudojant ir operatorius)
• Naudojant integruotą VBA funkciją („MsgBox“)
• Naudojant integruotas VBA konstantas (vbYesNo, vbNo ir vbYes)
• „Jei-tada“ konstrukcijos naudojimas (du kartus)
• Papildomos procedūros pabaiga (paskutinė eilutė)

Neblogai pradedančiajam, tiesa?