Excel VBA potprogram: Kako nazvati Sub u VBA s primjerom

Sadržaj:

Anonim

Što je potprogram u VBA?

Potprogram u VBA je dio koda koji obavlja određeni zadatak opisan u kodu ali ne vratiti rezultat ili vrijednost. Podprogrami se koriste za raščlambu velikih dijelova koda na male upravljačke dijelove. Podprogrami se mogu opozvati više puta s bilo kojeg mjesta u programu.

Recimo da ste stvorili korisničko sučelje s tekstualnim okvirima za prihvaćanje korisničkih ulaznih podataka. Možete stvoriti potprogram koji briše sadržaj tekstnih okvira. Podprogram VBA poziva prikladan je u takvom scenariju jer ne želite vratiti nikakve rezultate.

U ovom VBA vodiču naučit ćete-

  • Zašto koristiti potprograme
  • Pravila imenovanja potprograma i funkcija
  • Sintaksa VBA potprograma
  • Kako nazvati Sub u VBA

Zašto koristiti potprograme

  • Razbiti kôd u mali upravljivi kôd : Prosječni računalni program ima tisuće i tisuće redaka izvornog koda. To uvodi složenost. Podprogrami pomažu u rješavanju ovog problema raščlanjivanjem programa na male upravljačke dijelove koda.
  • Ponovna upotreba koda . Recimo da imate program koji treba pristupiti bazi podataka, gotovo svi prozori u programu trebat će komunicirati s bazom podataka. Umjesto pisanja zasebnog koda za ove prozore, možete stvoriti funkciju koja obrađuje sve interakcije s bazom podataka. Tada ga možete nazvati iz bilo kojeg prozora koji želite.
  • Podprogrami i funkcije se samo-dokumentiraju . Recimo da imate funkciju calcuLoanInterest i drugu koja kaže connectToDatabase. Samo gledajući naziv potprograma / funkcije, programer će moći reći što program radi.

Pravila imenovanja potprograma i funkcija

Da biste koristili potprograme i funkcije, postoji niz pravila kojih se čovjek treba pridržavati.

  • Ime potprograma ili VBA funkcije poziva ne može sadržavati razmak
  • Excel VBA pozivni podpoziv ili naziv funkcije trebao bi počinjati slovom ili podvlakom. Ne može započeti brojem ili posebnim znakom
  • Podprogram ili ime funkcije ne može biti ključna riječ. Ključna riječ je riječ koja u VBA ima posebno značenje. Riječi poput Private, Sub, Function i End, itd. Sve su primjeri ključnih riječi. Prevoditelj ih koristi za određene zadatke.

Sintaksa VBA potprograma

Morat ćete omogućiti karticu Developer u programu Excel da biste slijedili ovaj primjer. Ako ne znate kako omogućiti karticu Developer, pročitajte vodič o VBA Operatorima

OVDJE u sintaksi,

Private Sub mySubRoutine(ByVal arg1 As String, ByVal arg2 As String)'do somethingEnd Sub

Objašnjenje sintakse

Kodirati

Akcijski
  • "Privatni Sub mySubRoutine (...)"
  • Ovdje se ključna riječ "Sub" koristi za deklariranje potprograma pod nazivom "mySubRoutine" i pokretanje tijela potprograma.
  • Ključna riječ Private koristi se za određivanje opsega potprograma
  • "ByVal arg1 kao niz", ByVal arg2 kao niz ":
  • Deklarira dva parametra niza podataka tipa podataka arg1 i arg2
  • "Završi pod"
  • "End Sub" služi za završetak tijela potprograma

Sljedeća potprogram prihvaća ime i prezime i prikazuje ih u okviru za poruke.

Sada ćemo programirati i izvršiti ovaj potprocedura. Da vidimo ovo.

Kako nazvati Sub u VBA

Slijedi korak po korak postupak pozivanja sub-a u VBA:

  1. Dizajnirajte korisničko sučelje i postavite svojstva za korisničke kontrole.
  2. Dodajte potprogram
  3. Napišite naredbu klika događaja za naredbeni gumb koji poziva potprogram
  4. Testirajte aplikaciju

Korak 1) Korisničko sučelje

Dizajnirajte korisničko sučelje kako je prikazano na donjoj slici

Postavite sljedeća svojstva. Svojstva koja postavljamo

S N Kontrolirati Vlasništvo Vrijednost
1 CommandButton1 Ime btnDisplayFullName
2 Naslov Potprogram punog imena

Vaše bi sučelje sada trebalo izgledati kako slijedi

Korak 2) Dodajte potprogram

  1. Pritisnite Alt + F11 da biste otvorili prozor s kodom
  2. Dodajte sljedeću potprogram
Private Sub displayFullName(ByVal firstName As String, ByVal lastName As String)MsgBox firstName & " " & lastNameEnd Sub

OVDJE u kodu,

Kodirati

Akcije
  • "Private Sub displayFullName (…)"
  • Deklarira privatnu potprogram displayFullName koji prihvaća dva parametra niza.
  • "ByVal firstName As String, ByVal lastName As String"
  • Deklarira dvije varijable parametra firstName i lastName
  • MsgBox ime & "" & prezime "
  • Poziva ugrađenu funkciju MsgBox za prikaz okvira za poruke. Zatim kao parametre prosljeđuje varijable 'firstName' i 'lastName'.
  • Znak & & "koristi se za spajanje dviju varijabli i dodavanje praznog prostora između njih.

Korak 3) Pozivanje potprograma iz događaja klikanja naredbenog gumba.

  • Desni klik na naredbeni gumb kao što je prikazano na donjoj slici. Odaberite Prikaži kod.
  • Otvorit će se uređivač koda

Dodajte sljedeći kod u uređivač koda za događaj klika naredbenog gumba btnDisplayFullName.

Private Sub btnDisplayFullName_Click()displayFullName "John", "Doe"End Sub

Prozor vašeg koda sada bi trebao izgledati kako slijedi

Spremite promjene i zatvorite prozor s kodom.

Korak 4) Testiranje koda

Na alatnoj traci programera isključite način dizajniranja. Kako je prikazano dolje.

Korak 5) Kliknite naredbeni gumb "Potprogram punog imena".

Dobit ćete sljedeće rezultate

Preuzmite gornji Excel kod

Sažetak:

  • Potprogram je dio koda koji izvršava određeni zadatak. Potprogram ne vraća vrijednost nakon izvršenja
  • Podprogrami nude ponovnu upotrebu koda
  • Podprogrami pomažu u razlaganju velikih dijelova koda u male kode kojima se može upravljati.