Dupla változó típus
A VBA Kettős adattípus a tizedesjegyeket igénylő számok tárolására szolgál. A negatív értékek esetén -1,79769313486231E308 és -4,94065645841247E -324 között, míg a pozitív értékek esetén 4,94065645841247E -324 és 1,79769313486232E308 között tárolható.
Dupla változó deklarálásához használja a Dim Statement (a Dimension rövidítése) kifejezést:
1 | Dim dblA, mint kettős |
Ezután, ha értéket szeretne rendelni egy változóhoz, egyszerűen használja az egyenlőségjelet:
1 | dlbA = 3658,25 |
Ennek az eljárásba történő beillesztése így néz ki:
12345678 | DblExample ()'deklarálja a kettős változótDim dblA, mint kettős'töltse ki a kettős változótdblA = 3658,25'mutasd az üzenetdoboztMsgBox dblAEnd Sub |
Ha futtatja a fenti kódot, a következő üzenetmező jelenik meg.
Egyetlen adattípus
Az Egyetlen adattípus csak a kettős adattípus rövidebb változata. Emiatt befolyásolhatja a kerekítést, ha egy eljárásban használják, mivel az egyetlen adattípus 4 tizedesjegyig, míg a Dupla adattípus 12 tizedesjegyig kerekít. Ha nincs szüksége a kettős adattípusra, használhatja az egyszeri adattípust
Int vagy Long adattípusok
Ha nincs szüksége tizedesjegyre, használhatja az Int adattípust vagy a Hosszú adattípust.
1 | Dim intA mint egész |
1 | Dim lngB olyan hosszú |
Dupla változó deklarálása modul vagy globális szinten
Az előző példákban a Dupla változót deklaráltuk egy eljáráson belül. Az eljárással deklarált változók csak ezen az eljáráson belül használhatók.
Ehelyett kettős változókat deklarálhat modul vagy globális szinten.
Modul szint
A modul szintje a változókat a kódmodulok tetején a Homályos nyilatkozat.
Ezek a változók az adott kódmodul bármely eljárásával használhatók.
Globális szint
Globális szinten a változókat a kódmodulok tetején is deklarálják. Azonban ahelyett, hogy a Homályos nyilatkozatot, használja a Nyilvános utasítás, amely jelzi, hogy a Dupla változó használható a VBA -projekt során.
1 | Nyilvános DblA, mint kettős |
Ha a kettős változót egy modul szinten deklarálná, majd egy másik modulban próbálná használni, akkor hiba lépne fel.
Ha azonban a Nyilvános kulcsszót használta volna a kettős változó deklarálásához, a hiba nem fordulna elő, és az eljárás tökéletesen futna.
Formátum Dupla tárolás karakterláncként
Előfordulhat, hogy kettős adattípust szeretne karakterlánccá formázni - például megjeleníthet egy valuta szimbólumot, és kerekítheti a számot 2 tizedesjegyig.
Ennek eléréséhez használja a Formátum funkciót.
A következő eljárás
1234567891011 | Sub TestDoubleToCurrencyString ()'deklarálja a string változótDim strMoney karakterláncként'deklarálja a duplát, és töltse ki az értéketDim dblValue Mint dupladblValue = 44055.256'konvertálja a duplát egy karakterlánccá valuta szimbólummal 2 tizedesjegyigstrMoney = Formátum (dblValue, "$#, ## 0.00")'nézd meg az eredménytMsgBox strMoneyEnd Sub |
ezt az eredményt adja vissza:
Hasonló módon érdemes lehet egy számot formázott telefonszámként megjeleníteni.
Ez az eljárás:
1234567891011 | Sub TestDoubleToPhone ()'deklarálja a string változótDim strPhone mint karakterlánc'deklarálja a duplát, és töltse ki az értéketDim dblValue Mint dupladblValue = 555968541'konvertálja a duplát valutaszimbólummal rendelkező karakterlánccástrPhone = Formátum (dblValue, "(000) -000 0000")'nézd meg az eredménytMsgBox strPhoneEnd Sub |
ezt az eredményt adja vissza: