„Excel VBA“ paprogramė: kaip iškviesti „Sub“ VBA su pavyzdžiu

Turinys:

Anonim

Kas yra potvarkis VBA?

Paprogramė VBA yra kodo dalis, kuri atlieka tam tikrą užduotį, apibūdintą kodą, bet negrąžina rezultatą arba vertę. Subrutinai naudojami dideliems kodo gabalams suskaidyti į mažas valdomas dalis. Potvarkius galima atsiminti kelis kartus iš bet kurios programos vietos.

Tarkime, kad sukūrėte vartotojo sąsają su teksto laukeliais, kad priimtumėte vartotojo įvesties duomenis. Galite sukurti paprogramę, kuri išvalys teksto laukelių turinį. VBA skambučio paprogramė yra tinkama tokiu atveju, nes nenorite pateikti jokių rezultatų.

Šioje VBA pamokoje sužinosite

  • Kodėl verta naudoti paprogrames
  • Potvarkių ir funkcijų pavadinimo taisyklės
  • VBA potvarkio sintaksė
  • Kaip paskambinti sub į VBA

Kodėl verta naudoti paprogrames

  • Pertraukite kodą į mažą valdomą kodą : vidutinė kompiuterio programa turi tūkstančius ir tūkstančius šaltinio kodo eilučių. Tai įneša sudėtingumo. Potvarkiai padeda išspręsti šią problemą, suskaidydami programą į mažus valdomus kodo gabalus.
  • Kodo pakartotinis naudojimas . Tarkime, kad turite programą, kuriai reikia prieigos prie duomenų bazės, beveik visi programos langai turės sąveikauti su duomenų baze. Užuot rašę atskirą kodą šiems langams, galite sukurti funkciją, tvarkančią visas duomenų bazės sąveikas. Tada galite jį paskambinti iš norimo lango.
  • Potvarkiai ir funkcijos yra savarankiški dokumentai . Tarkime, kad turite funkciją „calcLoanInterest“ ir kitą, kurioje sakoma „connectToDatabase“. Tiesiog pažvelgęs į paprogramės / funkcijos pavadinimą, programuotojas galės pasakyti, ką programa veikia.

Potvarkių ir funkcijų pavadinimo taisyklės

Norint naudoti paprogrames ir funkcijas, reikia nustatyti taisykles, kurių reikia laikytis.

  • Paprogramių arba VBA skambučių funkcijos pavadinime negali būti tarpo
  • „Excel VBA“ skambučio arba funkcijos pavadinimas turėtų prasidėti raide arba pabraukimu. Jis negali prasidėti skaičiumi ar specialiuoju simboliu
  • Paprogramė ar funkcijos pavadinimas negali būti raktinis žodis. Raktinis žodis yra žodis, turintis ypatingą reikšmę VBA. Tokie žodžiai kaip „Private“, „Sub“, „Function“, „End“ ir kt. Yra raktinių žodžių pavyzdžiai. Kompiliatorius juos naudoja konkrečioms užduotims atlikti.

VBA potvarkio sintaksė

Norėdami sekti šį pavyzdį, turėsite įgalinti „Excel“ skirtuką „Kūrėjas“. Jei nežinote, kaip įgalinti skirtuką „Kūrėjas“, perskaitykite „VBA Operators“ pamoką

ČIA sintaksėje,

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

Sintaksės paaiškinimas

Kodas

Veiksmas
  • „Private Sub mySubRoutine (…)“
  • Čia raktinis žodis „Sub“ naudojamas norint paskelbti paprogramę pavadinimu „mySubRoutine“ ir paleisti paprogramės turinį.
  • Raktinis žodis Privatus naudojamas nurodant paprogramės taikymo sritį
  • „ByVal arg1 kaip eilutė, ByVal arg2 kaip eilutė“:
  • Jis deklaruoja du eilutės duomenų tipo pavadinimų arg1 ir arg2 parametrus
  • „End Sub“
  • „End Sub“ naudojamas subprogramos kūnui užbaigti

Šis paprogramė priima vardą ir pavardę ir pateikia juos pranešimų laukelyje.

Dabar mes ketiname programuoti ir vykdyti šią papildomą procedūrą. Leisk tai pamatyti.

Kaip paskambinti sub į VBA

Žemiau pateikiamas žingsnis po žingsnio procesas, kaip paskambinti sub į VBA:

  1. Sukurkite vartotojo sąsają ir nustatykite vartotojo valdiklių ypatybes.
  2. Pridėti paprogramę
  3. Parašykite paspaudimo įvykio kodą komandos mygtukui, iškviečiančiam paprogramę
  4. Išbandykite programą

1 žingsnis) Vartotojo sąsaja

Sukurkite vartotojo sąsają taip, kaip parodyta paveikslėlyje žemiau

Nustatykite šias savybes. Savybės, kurias nustatome

S / N Kontrolė Nuosavybė Vertė
1 „CommandButton“ vardas „btnDisplayFullName“
2 Antraštė Vardinis potvarkis

Dabar jūsų sąsaja turėtų atrodyti taip

2 žingsnis) Pridėti paprogramę

  1. Paspauskite Alt + F11, kad atidarytumėte kodo langą
  2. Pridėkite šį paprogramę
Private Sub displayFullName(ByVal firstName As String, ByVal lastName As String)MsgBox firstName & " " & lastNameEnd Sub

ČIA kode,

Kodas

Veiksmai
  • „Private Sub displayFullName (…)“
  • Jis paskelbia privatų paprogramę displayFullName, kuris priima du eilutės parametrus.
  • „ByVal firstName as String, ByVal lastName as String“
  • Jis deklaruoja du parametrų kintamuosius firstName ir lastName
  • MsgBox firstName & "" & lastName "
  • Jis iškviečia „MsgBox“ integruotą funkciją, kad būtų rodomas pranešimų laukelis. Tada jis perduoda „firstName“ ir „lastName“ kintamuosius kaip parametrus.
  • Ampersandas „&“ naudojamas sujungti du kintamuosius ir tarp jų pridėti tuščią vietą.

3 žingsnis. Paskambinkite paprogramei iš komandos mygtuko spustelėkite įvykį.

  • Dešiniuoju pelės mygtuku spustelėkite komandos mygtuką, kaip parodyta paveikslėlyje žemiau. Pasirinkite Peržiūrėti kodą.
  • Kodo redaktorius atsidarys

Įtraukite šį kodą į kodo rengyklę komandų mygtuko btnDisplayFullName paspaudimo įvykiui.

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

Dabar jūsų kodo langas turėtų atrodyti taip

Išsaugokite pakeitimus ir uždarykite kodo langą.

4 žingsnis) Kodo testavimas

Kūrėjo įrankių juostoje nustatykite dizaino režimą „išjungtas“. Kaip parodyta žemiau.

5 žingsnis) Spustelėkite komandos mygtuką „FullName Subroutine“.

Gausite šiuos rezultatus

Atsisiųskite aukščiau nurodytą „Excel“ kodą

Santrauka:

  • Paprogramis yra kodo dalis, atliekanti konkrečią užduotį. Po vykdymo paprogramė vertės negrąžina
  • Subrutinai siūlo kodo pakartotinį naudojimą
  • Potvarkiai padeda suskaidyti didelius kodo gabalus į mažus valdomus kodus.