Egyváltozós típus
A VBA Egyetlen adattípus a tizedesjegyeket igénylő számok tárolására szolgál. Negatív értékek esetén -3,4028235E+38 és -1,401298E -45 között, pozitív értékek esetén pedig 1,401298E -45 és 3,4028235E+38 között tárolható.
Egyetlen változó deklarálásához használja a Dim Statement (a Dimension rövidítése) kifejezést:
1 | Dim sngA Single |
Ezután, ha értéket szeretne rendelni egy változóhoz, egyszerűen használja az egyenlőségjelet:
1 | sngA = 3658,25 |
Ennek az eljárásba történő beillesztése így néz ki:
12345678 | Sub sngExample ()'deklarálja a kettős változótDim sngA Single'töltse ki a kettős változótsngA = 3658,25'mutasd az üzenetdoboztMsgBox sngAEnd Sub |
Ha futtatja a fenti kódot, a következő üzenetmező jelenik meg.
Dupla adattípus
A kettős adattípus csak a Egyetlen adattípus. Ebből kifolyólag befolyásolhatja a kerekítést, ha egy eljárásban használják Egyetlen az adattípus 4 tizedesjegyig kerekít, míg a Kettős az adattípus 12 tizedesjegyig kerekít. Ha több mint 4 tizedesjegyre van szüksége, használhatja a Dupla 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ú |
VBA programozás | A kódgenerátor működik az Ön számára!
Egyetlen változó deklarálása modulon vagy globális szinten
Az előző példákban kijelentettük a Egyetlen változó egy eljárásban. Az eljárással deklarált változók csak ezen az eljáráson belül használhatók.
Ehelyett egyetlen változót 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 nyilatkozat arra utal, hogy a Egyetlen változó használható a VBA projekt során.
1 | Nyilvános SngA egyedülállóként |
Ha bejelentenéd a Egyetlen modul szintjén, majd próbálja meg egy másik modulban használni, hiba lépne fel.
Ha azonban a Nyilvános kulcsszót használta a Egyetlen változó, a hiba nem fordul elő, és az eljárás tökéletesen fut.
Unod már a VBA kódpéldák keresését? Próbálja ki az AutoMacro -t!
Format Single tárolva karakterláncként
Előfordulhat, hogy egyetlen 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 TestSingleToCurrencyString ()'deklarálja a string változótDim strMoney karakterláncként'deklarálja a kislemezt, és töltse ki az értéketDim sngValue SinglesngValue = 44055.256'konvertálja a kislemezt egy karakterlánccá valutaszimbólummal 2 tizedesjegyigstrMoney = Formátum (sngValue, "$#, ## 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 TestSingleToPhone ()'deklarálja a string változótDim strPhone mint karakterlánc'deklarálja a kislemezt, és töltse ki az értéketDim sglValue EgyedülállósglValue = 555968541'konvertálja a kislemezt karakterlánccá valuta szimbólummalstrPhone = Formátum (sglValue, "(000) -000 0000")'nézd meg az eredménytMsgBox strPhoneEnd Sub |
ezt az eredményt adja vissza: