Excel VBA apakšprogramma: Kā izsaukt VBA ar piemēru

Satura rādītājs:

Anonim

Kas ir apakšprogramma VBA?

Subroutine VBA ir gabals kodu, kas veic īpašu uzdevumu aprakstīts kodu, bet neatgriež rezultātu vai vērtību. Apakšprogrammas tiek izmantotas, lai sadalītu lielus koda gabalus mazās pārvaldāmās daļās. Apakšprogrammas var atsaukt vairākas reizes no jebkuras vietas programmā.

Pieņemsim, ka esat izveidojis lietotāja saskarni ar tekstlodziņiem, lai pieņemtu lietotāja ievades datus. Varat izveidot apakšprogrammu, kas notīra tekstu lodziņu saturu. Šādā gadījumā VBA izsaukuma apakšprogramma ir piemērota, jo nevēlaties atgriezt nekādus rezultātus.

Šajā VBA apmācībā jūs uzzināsiet

  • Kāpēc izmantot apakšprogrammas
  • Apakšprogrammu un funkciju nosaukšanas noteikumi
  • VBA apakšprogrammas sintakse
  • Kā piezvanīt Sub VBA

Kāpēc izmantot apakšprogrammas

  • Sadalīt kodu mazā vadāmā kodā : Vidējai datorprogrammai ir tūkstošiem un tūkstošiem pirmkodu rindu. Tas ievieš sarežģītību. Apakšprogrammas palīdz atrisināt šo problēmu, sadalot programmu mazos pārvaldāmos koda gabalos.
  • Kodu atkārtota izmantošana . Pieņemsim, ka jums ir programma, kurai jāpiekļūst datu bāzei, gandrīz visiem programmas logiem būs jāsadarbojas ar datu bāzi. Tā vietā, lai šiem logiem rakstītu atsevišķu kodu, varat izveidot funkciju, kas apstrādā visas datu bāzes mijiedarbības. Pēc tam to var izsaukt no jebkura vajadzīgā loga.
  • Apakšprogrammas un funkcijas ir pašdokumentējošas . Pieņemsim, ka jums ir funkcija calcLoanInterest un vēl viena, kas saka connectToDatabase. Vienkārši apskatot apakšprogrammas / funkcijas nosaukumu, programmētājs varēs pateikt, ko programma dara.

Apakšprogrammu un funkciju nosaukšanas noteikumi

Lai izmantotu apakšprogrammas un funkcijas, ir jāievēro noteikumi, kas jāievēro.

  • Apakšprogrammas vai VBA izsaukuma funkcijas nosaukumā nedrīkst būt atstarpe
  • Excel VBA izsaukuma apakšdaļas vai funkcijas nosaukumam jāsākas ar burtu vai pasvītrojumu. To nevar sākt ar skaitli vai īpašu rakstzīmi
  • Apakšprogramma vai funkcijas nosaukums nevar būt atslēgvārds. Atslēgvārds ir vārds, kam VBA ir īpaša nozīme. Tādi vārdi kā Privāts, Apakšsadaļa, Funkcija un Beigas utt. Ir visi atslēgvārdu piemēri. Kompilators tos izmanto noteiktiem uzdevumiem.

VBA apakšprogrammas sintakse

Lai sekotu šim piemēram, jums būs jāiespējo cilne Izstrādātājs programmā Excel. Ja nezināt, kā iespējot cilni Izstrādātājs, izlasiet VBA operatoru apmācību

ŠEIT sintaksē,

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

Sintakses skaidrojums

Kods

Darbība
  • "Private Sub mySubRoutine (…)"
  • Šeit atslēgvārds "Sub" tiek izmantots, lai pasludinātu apakšprogrammu ar nosaukumu "mySubRoutine" un sāktu apakšprogrammas pamattekstu.
  • Atslēgvārds Privāts tiek izmantots, lai norādītu apakšprogrammas darbības jomu
  • "ByVal arg1 kā virkne, ByVal arg2 kā virkne":
  • Tas deklarē divus virknes datu tipa nosaukuma arg1 un arg2 parametrus
  • "End Sub"
  • "End Sub" tiek izmantots, lai izbeigtu apakšprogrammas ķermeni

Šī apakšprogramma pieņem vārdu un uzvārdu un parāda tos ziņojumu lodziņā.

Tagad mēs plānojam un izpildīsim šo apakšprocedūru. Ļaujiet to redzēt.

Kā piezvanīt Sub VBA

Tālāk ir sniegts soli pa solim process, kā piezvanīt Sub VBA:

  1. Noformējiet lietotāja saskarni un iestatiet lietotāja vadīklu īpašības.
  2. Pievienojiet apakšprogrammu
  3. Ierakstiet komandas pogas klikšķa notikuma kodu, kas izsauc apakšprogrammu
  4. Pārbaudiet lietojumprogrammu

1. solis) Lietotāja saskarne

Noformējiet lietotāja saskarni, kā parādīts attēlā zemāk

Iestatiet šādas īpašības. Īpašības, kuras mēs iestatām

S / N Kontrole Īpašums Vērtība
1 CommandButton1 Nosaukums btnDisplayFullName
2 Paraksts Pilns nosaukums Apakšprogramma

Tagad jūsu saskarnei vajadzētu izskatīties šādi

2. solis) Pievienojiet apakšprogrammu

  1. Nospiediet Alt + F11, lai atvērtu koda logu
  2. Pievienojiet šādu apakšprogrammu
Private Sub displayFullName(ByVal firstName As String, ByVal lastName As String)MsgBox firstName & " " & lastNameEnd Sub

ŠEIT kodā,

Kods

Darbības
  • "Private Sub displayFullName (…)"
  • Tas deklarē privātu apakšprogrammu displayFullName, kas pieņem divus virknes parametrus.
  • "ByVal firstName kā virkne, ByVal lastName kā virkne"
  • Tas deklarē divus parametru mainīgos vārdus vārds un uzvārds
  • MsgBox firstName & "" & lastName "
  • Tas izsauc iebūvēto MsgBox funkciju, lai parādītu ziņojumu lodziņu. Pēc tam tā kā parametrus nodod mainīgos “firstName” un “lastName”.
  • Zīme "&" tiek izmantota, lai savienotu abus mainīgos un pievienotu tukšu atstarpi starp tiem.

3. darbība. Apakšprogrammas izsaukšana no komandas pogas noklikšķiniet uz notikuma.

  • Ar peles labo pogu noklikšķiniet uz komandas pogas, kā parādīts attēlā zemāk. Atlasiet Skatīt kodu.
  • Tiks atvērts kodu redaktors

Pievienojiet kodu koda redaktorā komandas pogas btnDisplayFullName klikšķa notikumam.

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

Jūsu koda logam tagad vajadzētu izskatīties šādi

Saglabājiet izmaiņas un aizveriet koda logu.

4. solis) koda pārbaude

Izstrādātāja rīkjoslā noformēšanas režīms ir izslēgts. Kā parādīts zemāk.

5. solis) Noklikšķiniet uz komandas pogas “Pilna nosaukuma apakšprogramma”.

Jūs saņemsiet šādus rezultātus

Lejupielādējiet iepriekš minēto Excel kodu

Kopsavilkums:

  • Apakšprogramma ir koda daļa, kas veic noteiktu uzdevumu. Pēc izpildes apakšprogramma neatgriež vērtību
  • Apakšprogrammas piedāvā koda atkārtotu izmantošanu
  • Apakšprogrammas palīdz sadalīt lielus koda gabalus mazos pārvaldāmos kodos.