Sådan bruges variabler i Excel underprocedurer i Visual Basic for Applications

Oversigt over datatype

Disse er de almindelige variable datatyper:

Datatypen Varians

Hvis du ikke angiver en datatype, når du erklærer en variabel, eller du slet ikke erklærer en variabel, angiver Visual Basic automatisk datatypen for varianten for denne variabel. Følgende er fordelene ved variabler, der erklæres som denne datatype:

• Variablerne kan indeholde streng-, dato-, klokkeslæts-, booleske eller numeriske værdier.

• Variablerne kan konvertere de værdier, som de indeholder, automatisk.

Ulempen er, at variabler kræver mindst 16 byte hukommelse. 16 byte hukommelse kan være betydelig i store procedurer eller i komplekse moduler.

Hvis du vil se, hvordan det fungerer i Variable_Test, skal du følge disse trin:

Skift koden i Variable_Test til:

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

Afspil Variable_Test makro.

Du får ikke en fejl, fordi du kan tildele noget til variantvariablerne x og y.

BEMÆRK! Du kan også lade følgende linje være ude, og makroen fungerer stadig, efterhånden som variablerne x og y behandles som datatyperne Variant:

    Dim x, y

Omfang på procedureniveau

En variabel med omfang på procedureniveau ses ikke uden for den procedure, hvor den erklæres. Hvis du angiver værdien for en variabel, der har omfang på procedureniveau, kan variablens indhold ikke ses af andre makroer.

Følg disse trin for at bekræfte, at en variabel med omfang på procedureniveau ikke ses uden for den procedure, hvor den er erklæret:

1. Indsæt et nyt modul i projektet.

2. Skriv begge af følgende makroer i dette modul:
     Sub Macro1() Dim x As Integer x = 10 MsgBox "x, som det ses af Macro1 er " & x 'den næste linje kører Macro2 Macro2 End Sub Sub Macro2() MsgBox "x, som det ses af Macro2 er " & x End Sub

3. Afspil Makro1, og du får vist følgende meddelelse:
   
   x, as seen by Macro1 is 10

4. Klik på OK,og du får vist følgende meddelelse:
   
   x, as seen by Macro2 is

5. Klik på OK.

Makro2 viser ikke en værdi for variablen x, fordi variablen x er lokal i forhold til Makro1.

Omfang på privat og offentligt modulniveau

Du kan definere variabler i erklæringssektionen i et modul (øverst i et modul, over alle underprocedurer), og angive omfanget af din variabel ved hjælp af Den Offentlige erklæring, Dim-sætningen eller Private-sætningen. Hvis du placere sætningen Offentlig foran variablen, vil din variabel være tilgængelig for alle makroerne i alle modulerne i projektet. Hvis du placere enten sætningen Dim eller Privat foran variablen, er din variabel kun tilgængelig for makroer i modulet, hvor den erklæres.

Hvis du vil se forskellen mellem Den Offentlige sætning og Dim-sætningen, skal du følge disse trin:

1. Gem og luk alle åbne projektmapper, og åbn derefter en ny projektmappe.

2. Start Visual Basic Editor.

3. Indsæt et modul i projektet.

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. Indsæt endnu et modul i projektet.

6. Skriv følgende kode i dette modul:

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

7. Afspil Macro_1a makro i det første modul.

8. Når variablen x erklæres som "Offentligt x Som heltal", har alle tre makroer i projektet adgang til værdien x. I det første meddelelsesfelt vises værdien 10. I det andet meddelelsesfelt vises en værdi på 20 (fordi x ganges med 2 i Macro_1b). Det tredje meddelelsesfelt viser en værdi på 60 (fordi værdien af x blev ændret til 20 i Macro_1b og derefter blev den ganget med 3 i Makro2).

9. Rediger erklæringens linje i det første modul fra:
   
      Public x As Integer
   
   til:
   
      Dim x As Integer

10. Afspil Macro_1a makro.

11. Når variablen x er erklæret som "Dim x Som heltal", er det kun makroerne i det første modul, der har adgang til værdien x. Så den første meddelelse viser en værdi på 10, viser det andet meddelelsesfelt værdien 20, (fordi x ganges med 2 i Macro_1b), og den tredje meddelelsesboks viser en værdi på 0, (fordi Makro2 ikke kan se værdien af x, og den ikke-initialiserede værdi af nul bruges af makro 2).

12. Rediger erklæringens linje i det første modul fra:
    
      Dim x As Integer
    
    til:
    
        Private x As Integer

13. Afspil Macro_1a makro.

14. De samme meddelelsesfelter vises ved hjælp af området Privat sætning, som de brugte Dim-sætningen. Variablen x har samme omfang og er privat for det modul, hvor det erklæres.

BEMÆRK! Hvis du ønsker, at omfanget af din variabel skal være begrænset til det modul, hvor den er erklæret, skal du bruge Privatestatement i stedet for Dim-sætningen. De kan begge opnå den samme effekt, men omfanget er tydeligere, når du læser koden, hvis du bruger sætningen Private.
 

Initialisere værdien af en variabel

Når du kører en makro, initialiseres alle variablerne til en værdi. En numerisk variabel initialiseres til nul, en variabel længdestreng initialiseres til en streng af længden nul (""), og en fast længdestreng udfyldes med ASCII-koden 0. Variantvariabler initialiseres til Tom. En Tom variabel repræsenteres af et nul i en numerisk kontekst og en streng af længden nul ("") i en strengkontekst.

Variabler på procedureniveau

Hvis du har en variabel, der erklæres i en makro ved hjælp af dim-sætningen, bevarer variablen sin værdi, så længe makroen kører. Hvis denne makro kalder andre makroer, bevares variablens værdi (ikke tilgængelig for andre makroer), så længe disse andre makroer også kører.

Følg disse trin for at demonstrere, hvordan variabler på procedureniveau fungerer:

1. Indsæt et nyt modul i projektet.

2. Skriv begge af følgende makroer i dette modul:
   
   Sub Macro1()
       'set x as a procedure level variable
      Dim x As Integer
      MsgBox "den initialiserede værdi af x er " & x
      x = 10
       MsgBox "x is " & x
       'den næste linje kører Makro2
       Makro2
       MsgBox "x er stadig " & x
   End Sub
   Sub Macro2()
       MsgBox "x, som det ses af Macro2 er " & x
   End Sub

3. Kør Makro1.

4. Du modtager følgende meddelelse:
   
       the initialized value of x is 0

5. Klik på OK,og du får vist meddelelsen:
   
    x is 10

6. Klik på OK,og du får vist følgende meddelelse:
   
   x, as seen by Macro2 is

7. Klik på OK.

8. Makro2 viser ikke en værdi for variablen x, fordi variablen x er lokal i forhold til Makro1. Du får følgende meddelelse:
   
   x is still 10

9. Klik på OK.

10. Kør Makro1.

Du modtager de samme meddelelser, der er beskrevet i trin 3 til 6, fordi så snart Macro1 holdt op med at køre i trin 6, gik værdien af variablen x tabt. Når du kører Makro1 igen i trin 7, viser den første meddelelse derfor værdien af x som nul (den initialiserede værdi).

Statisk nøgleord

Hvis en variabel på procedureniveau erklæres ved hjælp af det statiske nøgleord, bevarer variablen sin værdi, indtil projektet nulstilles. Hvis du har en statisk variabel, initialiseres den statiske variabel til dens sidste værdi, næste gang du kalder proceduren.

Hvis du vil se, hvordan det statiske nøgleord fungerer, skal du følge disse trin:

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ør Makro1.

3. Du får meddelelsen:
   
   the initialized value of x is 0

4. Klik på OK,og du får vist meddelelsen:
   
   x is 10

5. Klik på OK.

6. Afspil Makro1, og du får vist følgende meddelelse:
   
   the initialized value of x is 10

7. Klik på OK,og du får vist følgende meddelelse:
   
   x is 20

8. Klik på OK.

De værdier, der vises i meddelelserne, er forskellige anden gang, fordi variablen x erklæres som en statisk variabel, og variablen bevarer sin værdi, når du kører Makro1 første gang.

BEMÆRK!  Hvis du har en variabel på modulniveau, er dens levetid den samme, som hvis det var en statisk variabel på procedureniveau.

Følg disse trin for at bekræfte levetiden for en variabel på modulniveau:

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. Afspil Makro1, og du får vist følgende meddelelse:
   
   the initialized value of x is 0

3. Klik på OK, og du får vist følgende meddelelse:
   
   x is 10

4. Klik på OK.

5. Afspil Makro1, og du får vist denne meddelelse:
   
   the initialized value of x is 10

6. Klik på OK.

7. Du modtager følgende meddelelse:
   
   x is 20

8. Klik på OK.

De værdier, der vises i meddelelserne, er forskellige anden gang, fordi variablen x erklæres som en statisk variabel, og den bevarer sin værdi, når du kører Makro1 første gang.
 

Nulstil et projekt for at nulstille variabler

Hvis du vil nulstille værdien for en statisk variabel eller for en variabel på modulniveau, skal du klikke på knappen Nulstil på knappen
Standardværktøjslinjen, eller klik på Nulstil i menuen Kør.

Hvis du gør dette for Makro1-projektet og derefter kører Makro1igen, initialiseres værdien af variablen x tilbage til nul, og du modtager den første meddelelse:

    the initialized value of x is 0