Enstaka variabel typ
VBA Enda datatyp används för att lagra nummer som kräver decimaler. Den kan lagra från -3.4028235E+38 till -1.401298E -45 för negativa värden och från 1.401298E -45 till 3.4028235E+38 för positiva värden.
För att deklarera en enda variabel använder du Dim Statement (förkortning för Dimension):
| 1 | Dim sngA som singel |
För att sedan tilldela ett värde till en variabel, använd helt enkelt likhetstecknet:
| 1 | sngA = 3658,25 |
Att sätta in detta i ett förfarande ser ut så här:
| 12345678 | Sub sngExample ()'deklarera den dubbla variabelnDim sngA som singel'fyll i den dubbla variabelnsngA = 3658,25'visa meddelanderutanMsgBox sngAAvsluta Sub |
Om du kör koden ovan visas följande meddelanderuta.
Dubbel datatyp
Dubbel datatyp är bara en längre version av Enda data typ. På grund av detta faktum kan det påverka avrundningen när det används i ett förfarande som Enda datatyp avrundas till 4 decimaler, medan Dubbel datatyp avrundas till 12 decimaler. Om du behöver mer än 4 decimaler kan du använda dubbel datatyp.
Int eller Långa datatyper
Om du inte behöver en decimal kan du använda antingen Int -datatyp eller lång datatyp.
| 1 | Dim intA som heltal |
| 1 | Dim lngB som lång |
VBA -programmering | Kodgenerator fungerar för dig!
Deklarera envariabel på modul eller global nivå
I de tidigare exemplen har vi deklarerat Enda variabel inom ett förfarande. Variabler som deklareras med ett förfarande kan endast användas inom det förfarandet.
Istället kan du deklarera enskilda variabler på modul eller global nivå.
Modulenivå
Modulenivå variabler deklareras högst upp i kodmodulerna med Dämpa påstående.
Dessa variabler kan användas med alla procedurer i den kodmodulen.
Global nivå
Global nivå variabler deklareras också högst upp i kodmodulerna. Men istället för att använda Dämpa uttalande, använd offentlig uttalande för att indikera att Enda variabel är tillgänglig för att användas under hela ditt VBA -projekt.
| 1 | Public SngA som singel |
Om du skulle förklara Enda variabel på en modulnivå och sedan försöka använda den i en annan modul, skulle ett fel uppstå.
Men om du hade använt det offentliga sökordet för att deklarera Enda variabel, skulle felet inte uppstå och proceduren skulle fungera perfekt.
Trött på att söka efter exempel på VBA -kod? Prova AutoMacro!
Format Enkel lagrad som sträng
Det kan finnas en tid då du vill formatera en enda datatyp till en sträng - till exempel kanske du vill visa en valutasymbol och avrunda talet till 2 decimaler.
För att uppnå detta använder du funktionen Format.
Följande procedur
| 1234567891011 | Sub TestSingleToCurrencyString ()'deklarera strängvariabelnDim strPengar som sträng'förklara singeln och fylla i värdetDim sngValue As SinglesngValue = 44055,256'konvertera singeln till en sträng med en valutasymbol med 2 decimalerstrMoney = Format (sngValue, "$#, ## 0.00")'se resultatetMsgBox strPengarAvsluta Sub |
skulle returnera detta resultat:
På samma sätt kanske du vill visa ett nummer som ett formaterat telefonnummer.
Denna procedur:
| 1234567891011 | Sub TestSingleToPhone ()'deklarera strängvariabelnDim strPhone Som sträng'förklara singeln och fylla i värdetDim sglValue Som singelsglValue = 555968541'konvertera singeln till en sträng med en valutasymbolstrPhone = Format (sglValue, "(000) -000 0000")'se resultatetMsgBox strPhoneAvsluta Sub |
skulle returnera detta resultat:
