Muutujate kasutamine Excel rakenduste Visual Basic alamprotseduurides

Andmetüübi kokkuvõte

Need on levinumad muutujate andmetüübid.

andmetüüp Variant

Kui te muutuja deklareerimisel andmetüüpi ei määra või muutujat üldse ei deklareeri, määrab Visual Basic muutuja andmetüübi automaatselt. Järgmised on selle andmetüübina deklareeritud muutujate eelised.

• Muutujad võivad sisaldada stringi, kuupäeva, kellaaega, loogikaväärtusi või arvväärtusi.

• Muutujad saavad automaatselt sisaldavad väärtused teisendada.

Puuduseks on see, et variandimuutujad nõuavad vähemalt 16 baiti mälu. 16 baiti mälu võib olla oluline suurtes protseduurides või keerukates moodulites.

Makros selle Variable_Test tehke järgmist.

Muutke makros Variable_Test koodiks:

Sub Variable_Test()
    Dim x, y
    x = "string"
    y = 1.23
    MsgBox "the value of x is " & x & _
    Chr(13) & "the value of y is " & y
End Sub

Käivitage Variable_Test makro.

Teile ei saa viga, kuna variantmuutujale x ja y saate midagi määrata.

MÄRKUS. Samuti võite jätta välja järgmise rea ja makro töötab endiselt, kuna muutujaid x ja y käsitletakse andmetüüpidena Variant.

    Dim x, y

Protseduuritaseme ulatus

Protseduuritaseme ulatusega muutujat ei vaadelda väljaspool protseduuri, kus see deklareeritakse. Kui määrate protseduuritaseme ulatusega muutuja väärtuse, siis teised makrod selle muutuja sisu ei vaata.

Veendumaks, et protseduuritaseme ulatusega muutujat ei ole näha väljaspool protseduuri, kus see deklareeritakse, tehke järgmist.

1. Lisage oma projekti uus moodul.

2. Tippige sellesse moodulisse mõlemad järgmised makrod.
     Sub Macro1() Dim x As Integer x = 10 MsgBox "x, nagu macro1 on " & x 'the next line runs Macro2 Macro2 End Sub Sub Macro2() MsgBox "x, nagu on näha Macro2 on " & x End Sub

3. Käivitage makro1 ja kuvatakse järgmine teade:
   
   x, as seen by Macro1 is 10

4. Klõpsake nuppu OKja kuvatakse järgmine teade:
   
   x, as seen by Macro2 is

5. Klõpsake nuppu OK.

Makro2 ei kuva muutuja x väärtust, kuna muutuja x on makro1 kohalik.

Privaatne ja avalik moodulitaseme ulatus

Muutujaid saate määratleda mooduli deklaratsioonide jaotises (mooduli ülaosas, eelkõige alamprotseduurides) ja määrata muutuja ulatuse avaliku lause, lause Dim või Eraväljavõtte abil. Kui panete avaliku lause muutuja ette, on muutuja saadaval kõigi projekti moodulite makrode jaoks. Kui lisate muutuja ette kas lause Dim või Era, on muutuja saadaval ainult mooduli makrodele, kus see deklareeritakse.

Avaliku avalduse ja dim-lause erinevuse miseks tehke järgmist.

1. Salvestage ja sulgege kõik avatud töövihikud ning avage uus töövihik.

2. Käivitage Visual Basic redaktor.

3. Lisage oma projekti moodul.

4. Type the following code into this module:
   
   Public x As Integer
   Sub Macro_1a()
       x = 10
       MsgBox x
       Macro_1b
   End Sub
   Sub Macro_1b()
       x = x * 2
       MsgBox x
       Macro2
   End Sub

5. Lisage oma projekti veel üks moodul.

6. Tippige sellesse moodulisse järgmine kood:

   
   Sub Macro2()     x = x * 3
       MsgBox x
   End Sub

7. Käivitage Macro_1a makro esimeses moodulis.

8. Kui muutuja x on deklareeritud kui "Avalik x Täisarv", on kõigil projekti kolmel makrol juurdepääs väärtusele x. Esimesel teateväljal kuvatakse väärtus 10. Teisel sõnumiväljal kuvatakse väärtus 20 (kuna x on korrutatud arvuga 2 Macro_1b). Kolmandas teateboksis kuvatakse väärtus 60 (kuna x-i väärtus muudeti väärtuseks 20 Macro_1b ja seejärel korrutati see lahtris Macro2 arvuga 3).

9. Esimese mooduli deklaratsioonirea muutmine:
   
      Public x As Integer
   
   to:
   
      Dim x As Integer

10. Käivitage Macro_1a makro.

11. Kui muutuja x on deklareeritud kui "Dim x As Integer", pääsevad juurde ainult esimese mooduli makrod väärtusele x. Seega kuvab esimene teateboks väärtuse 10, teises sõnumiväljas väärtus 20 (kuna x on korrutatud arvuga 2 Macro_1b) ja kolmandas teateboksis kuvatakse väärtus 0 (kuna makro2 ei näe x-i väärtust ja nulli lähtestamata väärtust kasutab makro 2).

12. Esimese mooduli deklaratsioonirea muutmine:
    
      Dim x As Integer
    
    kuni:
    
        Private x As Integer

13. Käivitage Macro_1a makro.

14. Samad sõnumiväljad kuvatakse lause "Eravälja" abil, nagu need kasutasid lauset Dim. Muutujal x on sama ulatus, mis on privaatne moodulile, kus see deklareeritakse.

MÄRKUS. Kui soovite, et muutuja ulatus piirduks mooduliga, kus see deklareeritakse, kasutage lause Dim asemel privatestatementi. Mõlemad saavutavad sama efekti, kuid ulatus on koodi lugemisel selgem, kui kasutate lauset Era.
 

Muutuja väärtuse lähtestamine

Makro käivitamisel lähtestatakse kõik muutujad väärtuseks. Arvuline muutuja lähtestatakse nulliks, muutuvpikkusega string lähtestatakse nullpikkusega stringiks ("") ja fikseeritud pikkusega string täidetakse ASCII koodiga 0. Variandimuutujad lähtestatakse väärtuseks Tühi. Tühi muutuja on arvulises kontekstis null ja stringi kontekstis nullpikkusega string ("").

Protseduuritaseme muutujad

Kui teil on muutuja, mis on makros deklareeritud lause Dim abil, säilitab muutuja selle väärtuse seni, kuni makro töötab. Kui see makro nõuab muid makrosid, säilitatakse muutuja väärtus (pole teistele makrodele saadaval), kui need makrod töötavad ka.

Protseduuritaseme muutujate töö demonstreerimiseks tehke järgmist.

1. Lisage oma projekti uus moodul.

2. Tippige sellesse moodulisse mõlemad järgmised makrod:
   
   Sub Macro1()
       'set x as a procedure level variable
      X-i täisarvuna nihkemine
      MsgBox "the initialized value of x is " & x
      x = 10
       MsgBox "x is " & x
       'the next line runs Macro2
       Makro2
       MsgBox "x is still " & x
   End Sub (Lõpeta alam)
   Alammakro2()
       MsgBox "x, nagu makro2 nägi, on " & x
   End Sub

3. Käivitage makro1.

4. Kuvatakse järgmine teade:
   
       the initialized value of x is 0

5. Klõpsake nuppu OKja kuvatakse teade:
   
    x is 10

6. Klõpsake nuppu OKja kuvatakse järgmine teade:
   
   x, as seen by Macro2 is

7. Klõpsake nuppu OK.

8. Makro2 ei kuva muutuja x väärtust, kuna muutuja x on makro1 kohalik. Kuvatakse järgmine teade:
   
   x is still 10

9. Klõpsake nuppu OK.

10. Käivita makro1.

Teile kuvatakse samad sõnumid, mida on kirjeldatud juhistes 3–6, kuna kohe, kui 6. juhises makro1 lõpetas töötamise, läks muutuja x väärtus kaotsi. Seega, kui käivitate 7. juhises makro1 uuesti, kuvatakse esimeses sõnumis väärtus x nullina (lähtestatud väärtus).

Staatiline märksõna

Kui protseduuritaseme muutuja deklareeritakse staatilise märksõna abil, säilitab muutuja selle väärtuse, kuni projekt lähtestatakse. Seega, kui teil on staatiline muutuja, lähtestatakse järgmine kord, kui helistate oma protseduurile, staatiline muutuja viimasele väärtusele.

Staatilise märksõna töö kohta leiate teavet järgmiselt.

1. Change the code in Macro1 to:
   
   Sub Macro1()
       'set x as a procedure level variable
       Static x As Integer
          MsgBox "the initialized value of x is " & x
       x = x + 10
       MsgBox "x is " & x
   End Sub

2. Käivitage makro1.

3. Kuvatakse teade:
   
   the initialized value of x is 0

4. Klõpsake nuppu OKja kuvatakse teade:
   
   x is 10

5. Klõpsake nuppu OK.

6. Käivitage makro1 ja kuvatakse järgmine teade:
   
   the initialized value of x is 10

7. Klõpsake nuppu OKja kuvatakse järgmine teade:
   
   x is 20

8. Klõpsake nuppu OK.

Sõnumites kuvatavad väärtused on teist korda erinevad, kuna muutuja x deklareeritakse staatilise muutujana ja muutuja säilitab selle väärtuse pärast makro1 esmast käivitamist.

MÄRKUS.  Kui teil on moodulitaseme muutuja, on selle eluiga sama mis staatilise protseduuritaseme muutuja korral.

Moodulitaseme muutuja eluea kontrollimiseks tehke järgmist.

1. Change the code in the module that contains Macro1 to the following:
   
   Dim x As Integer  'create a module-level variable
   Sub Macro1()
      MsgBox "the initialized value of x is " & x
      x = x + 10
      MsgBox "x is " & x
   End Sub

2. Käivitage makro1 ja kuvatakse järgmine teade:
   
   the initialized value of x is 0

3. Klõpsake nuppu OK ja kuvatakse järgmine teade:
   
   x is 10

4. Klõpsake nuppu OK,

5. Käivitage makro1 ja teile kuvatakse järgmine teade:
   
   the initialized value of x is 10

6. Klõpsake nuppu OK.

7. Kuvatakse järgmine teade:
   
   x is 20

8. Klõpsake nuppu OK.

Sõnumites kuvatavad väärtused on teist korda erinevad, kuna muutuja x deklareeritakse staatilise muutujana ja see säilitab väärtuse pärast makro1 esmast käivitamist.
 

Projekti lähtestamine muutujate lähtestamiseks

Kui soovite lähtestada staatilise muutuja või moodulitaseme muutuja väärtuse, klõpsake nuppu Lähtesta
Standardne tööriistariba või klõpsake menüüs Käivita nuppu Lähtesta.

Kui teete seda makro1 projektis ja käivitate makro 1uuesti, lähtestatakse muutuja x väärtus tagasi nulli ja kuvatakse esimene teade:

    the initialized value of x is 0