Typ s jednou proměnnou
VBA Singl datový typ se používá k ukládání čísel, která vyžadují desetinná místa. Může ukládat od -3,4028235E+38 do -1,401298E -45 pro záporné hodnoty a od 1,401298E -45 do 3,4028235E+38 pro kladné hodnoty.
Chcete -li deklarovat proměnnou Single, použijte příkaz Dim (zkratka pro Dimension):
| 1 | Dim sngA jako Single |
Potom k přiřazení hodnoty proměnné jednoduše použijte znaménko rovnosti:
| 1 | sngA = 3658,25 |
Uvedení do postupu vypadá takto:
| 12345678 | Sub sngExample ()'deklarujte dvojitou proměnnouDim sngA jako Single'naplňte dvojitou proměnnousngA = 3658,25'zobrazit pole se zprávouMsgBox sngAEnd Sub |
Pokud spustíte výše uvedený kód, zobrazí se následující okno se zprávou.
Dvojitý datový typ
Datový typ Double je pouze delší verzí souboru Singl datový typ. Díky této skutečnosti může ovlivnit zaokrouhlení, pokud je použito v postupu jako Singl datový typ se zaokrouhlí na 4 desetinná místa, zatímco Dvojnásobek datový typ se zaokrouhlí na 12 desetinných míst. Pokud potřebujete více než 4 desetinná místa, můžete použít datový typ Double.
Interní nebo dlouhé datové typy
Pokud nepotřebujete desetinné místo, můžete použít datový typ Int nebo datový typ Long.
| 1 | Dim intA jako Integer |
| 1 | Dim lngB as Long |
Programování VBA | Generátor kódu pracuje pro vás!
Deklarujte jednu proměnnou na úrovni modulu nebo na globální úrovni
V předchozích příkladech jsme deklarovali Singl proměnná v rámci procedury. Proměnné deklarované pomocí procedury lze použít pouze v rámci této procedury.
Místo toho můžete deklarovat jednotlivé proměnné na úrovni modulu nebo na globální úrovni.
Úroveň modulu
Úroveň modulu proměnné jsou deklarovány v horní části modulů kódu pomocí Ztlumit tvrzení.
Tyto proměnné lze použít s jakoukoli procedurou v tomto modulu kódu.
Globální úroveň
Globální úroveň proměnné jsou také deklarovány v horní části modulů kódu. Místo použití Ztlumit prohlášení, použijte Veřejnost prohlášení, které naznačuje, že Singl proměnná je k dispozici pro použití v celém vašem projektu VBA.
| 1 | Veřejný SngA jako svobodný |
Pokud byste prohlásili Singl proměnnou na úrovni modulu a poté ji zkuste použít v jiném modulu, dojde k chybě.
Pokud jste však použili klíčové slovo Public k deklaraci souboru Singl proměnná, chyba by nenastala a postup by běžel perfektně.
Už vás nebaví hledat příklady kódu VBA? Zkuste AutoMacro!
Formátovat jeden uložený jako řetězec
Může nastat čas, kdy budete chtít formátovat jeden datový typ na řetězec - například budete chtít zobrazit symbol měny a zaokrouhlit číslo na 2 desetinná místa.
Chcete -li toho dosáhnout, použijte funkci Formát.
Následující postup
| 1234567891011 | Dílčí testSingleToCurrencyString ()'deklarujte proměnnou řetězceDim strMoney As String'deklarujte singl a naplňte hodnotuDim sngValue as SinglesngValue = 44055.256'převeďte singl na řetězec se symbolem měny se 2 desetinnými místy.'strMoney = Formát (sngValue, "$#, ## 0,00")'zobrazit výsledekMsgBox strMoneyEnd Sub |
vrátí tento výsledek:
Podobně můžete chtít zobrazit číslo jako formátované telefonní číslo.
Tento postup:
| 1234567891011 | Dílčí test SingleToPhone ()'deklarujte proměnnou řetězceDim strPhone jako řetězec'deklarujte singl a naplňte hodnotu.'Dim sglValue Jako jedensglValue = 555968541'převeďte singl na řetězec se symbolem měny.'strPhone = Formát (sglValue, "(000) -000 0000")'zobrazit výsledekMsgBox strPhoneEnd Sub |
vrátí tento výsledek:
