Enkelt variabel type
VBA Enkelt datatype bruges til at gemme tal, der kræver decimaler. Det kan gemme fra -3.4028235E+38 til -1.401298E -45 for negative værdier og fra 1.401298E -45 til 3.4028235E+38 for positive værdier.
For at deklarere en enkelt variabel bruger du Dim Statement (forkortelse for Dimension):
| 1 | Dim sngA som single |
For derefter at tildele en værdi til en variabel skal du blot bruge lighedstegnet:
| 1 | sngA = 3658,25 |
At sætte dette i en procedure ser sådan ud:
| 12345678 | Sub sngExample ()'erklærer den dobbelte variabelDim sngA som single'udfyld den dobbelte variabelsngA = 3658,25'vis meddelelsesboksenMsgBox sngAAfslut Sub |
Hvis du kører koden ovenfor, vises følgende meddelelsesboks.
Dobbelt datatype
Den dobbelte datatype er blot en længere version af Enkelt datatype. På grund af denne kendsgerning kan det påvirke afrundingen, når det bruges i en procedure som Enkelt datatype vil runde til 4 decimaler, mens Dobbelt datatype vil runde til 12 decimaler. Hvis du har brug for mere end 4 decimaler, kan du bruge dobbeltdatatypen.
Int eller lange datatyper
Hvis du ikke har brug for en decimal, kan du enten bruge Int -datatypen eller lang datatype.
| 1 | Dim intA som heltal |
| 1 | Dim lngB som lang |
VBA -programmering | Kodegenerator virker for dig!
Erklær enkeltvariabel på modul eller globalt niveau
I de tidligere eksempler har vi erklæret Enkelt variabel inden for en procedure. Variabler, der er angivet med en procedure, kan kun bruges inden for denne procedure.
I stedet kan du erklære enkeltvariabler på modulet eller globalt niveau.
Modulniveau
Modulniveau variabler erklæres øverst i kodemodulerne med Svag udmelding.
Disse variabler kan bruges med enhver procedure i det pågældende kodemodul.
Globalt niveau
Globalt niveau variabler erklæres også øverst i kodemodulerne. Men i stedet for at bruge Svag erklæring, brug Offentlig erklæring for at angive, at Enkelt variabel er tilgængelig til brug i hele dit VBA -projekt.
| 1 | Offentlig SngA som single |
Hvis du skulle erklære Enkelt variabel på et modulniveau og derefter prøve at bruge det i et andet modul, ville der opstå en fejl.
Men hvis du havde brugt det offentlige søgeord til at erklære Enkelt variabel, ville fejlen ikke opstå, og proceduren ville køre perfekt.
Træt af at søge efter eksempler på VBA -kode? Prøv AutoMacro!
Format Single gemt som streng
Der kan være et tidspunkt, hvor du ønsker at formatere en enkelt datatype til en streng - for eksempel vil du måske vise et valutasymbol og afrunde tallet til 2 decimaler.
For at opnå dette bruger du formateringsfunktionen.
Følgende procedure
| 1234567891011 | Sub TestSingleToCurrencyString ()'erklærer strengvariablenDim strPenge som streng'erklærer singlen og udfyld værdienDim sngValue As SinglesngValue = 44055,256'konverter singlen til en streng med et valutasymbol med 2 decimalerstrMoney = Format (sngValue, "$#, ## 0.00")'se resultatetMsgBox strPengeAfslut Sub |
ville returnere dette resultat:
På samme måde vil du måske vise et nummer som et formateret telefonnummer.
Denne procedure:
| 1234567891011 | Sub TestSingleToPhone ()'erklærer strengvariablenDim strPhone Som streng'erklærer singlen og udfyld værdienDim sglValue Som singlesglValue = 555968541'konverter singlen til en streng med et valutasymbolstrPhone = Format (sglValue, "(000) -000 0000")'se resultatetMsgBox strPhoneAfslut Sub |
ville returnere dette resultat:
