Vrsta enojne spremenljivke
VBA Samski podatkovni tip se uporablja za shranjevanje številk, ki zahtevajo decimalna mesta. Shrani lahko od -3.4028235E+38 do -1.401298E -45 za negativne vrednosti in od 1.401298E -45 do 3.4028235E+38 za pozitivne vrednosti.
Če želite razglasiti enotno spremenljivko, uporabite stavek Dim (okrajšava za Dimenzija):
1 | Dim sngA kot samski |
Potem, če želite spremenljivki dodeliti vrednost, preprosto uporabite znak enako:
1 | sngA = 3658,25 |
Dajanje tega v postopek izgleda tako:
12345678 | Sub sngExample ()'razglasi dvojno spremenljivkoDim sngA kot samski'napolni dvojno spremenljivkosngA = 3658,25'pokaži polje s sporočilomMsgBox sngAEnd Sub |
Če zaženete zgornjo kodo, se prikaže naslednje polje s sporočilom.
Dvojni tip podatkov
Podatkovni tip Double je le daljša različica Samski podatkovni tip. Zaradi tega lahko vpliva na zaokroževanje, če se uporablja v postopku kot Samski podatkovni tip bo zaokrožen na 4 decimalna mesta, medtem ko bo Dvojno Vrsta podatkov se bo zaokrožila na 12 decimalnih mest. Če potrebujete več kot 4 decimalna mesta, lahko uporabite tip podatkov Double.
Int ali dolgi tipi podatkov
Če decimalnega mesta ne potrebujete, lahko uporabite podatkovni tip Int ali dolgi podatkovni tip.
1 | Zatemni intA kot celo število |
1 | Dim lngB kot Long |
Programiranje VBA | Generator kod deluje za vas!
Razglasite eno spremenljivko na modularni ali globalni ravni
V prejšnjih primerih smo razglasili Samski spremenljivko v postopku. Spremenljivke, deklarirane s postopkom, se lahko uporabljajo samo v tem postopku.
Namesto tega lahko razglasite posamezne spremenljivke na ravni modula ali na globalni ravni.
Raven modula
Raven modula spremenljivke so na vrhu kodnih modulov označene z Dim izjavo.
Te spremenljivke je mogoče uporabiti s katerim koli postopkom v tem kodnem modulu.
Globalna raven
Globalna raven spremenljivke so razglašene tudi na vrhu kodnih modulov. Namesto da uporabite Dim izjavo, uporabite Javno izjavo, ki nakazuje, da je Samski spremenljivka je na voljo za uporabo v celotnem projektu VBA.
1 | Javni SngA kot samski |
Če bi razglasili Samski spremenljivko na ravni modula in jo nato poskusite uporabiti v drugem modulu, bi prišlo do napake.
Če pa ste za objavo datoteke uporabili ključno besedo Public Samski spremenljivke, do napake ne bi prišlo in postopek bi deloval brezhibno.
Utrujen od iskanja primerov kode VBA? Preizkusite AutoMacro!
Oblikuj eno shranjeno kot niz
Morda boste želeli oblikovati en sam podatkovni tip v niz - na primer boste morda želeli prikazati simbol valute in zaokrožiti številko na 2 decimalni mesti.
Če želite to narediti, uporabite funkcijo Oblika.
Naslednji postopek
1234567891011 | Sub TestSingleToCurrencyString ()'razglasi spremenljivko nizaZatemni strMoney As String'razglasite single in napolnite vrednostDim sngValue As SinglesngValue = 44055.256'pretvorite singel v niz z valutnim simbolom z dvema decimalnima mestomastrMoney = Oblika (sngValue, "$#, ## 0.00")'si oglejte rezultatMsgBox str denarEnd Sub |
bi vrnil ta rezultat:
Podobno boste morda želeli prikazati številko kot oblikovano telefonsko številko.
Ta postopek:
1234567891011 | Sub TestSingleToPhone ()'razglasi spremenljivko nizaZatemni strPhone kot niz'razglasite single in napolnite vrednostDim sglValue Kot en samsglValue = 555968541'pretvorite singl v niz z valutnim simbolomstrPhone = Oblika (sglValue, "(000) -000 0000")'si oglejte rezultatMsgBox strPhoneEnd Sub |
bi vrnil ta rezultat: