Tip variabil unic
VBA Singur tipul de date este utilizat pentru a stoca numere care necesită zecimale. Poate stoca de la -3.4028235E + 38 până la -1.401298E-45 pentru valori negative și de la 1.401298E-45 până la 3.4028235E + 38 pentru valori pozitive.
Pentru a declara o singură variabilă, utilizați declarația Dim (prescurtare pentru Dimension):
| 1 | Dim sngA ca Single |
Apoi, pentru a atribui o valoare unei variabile, pur și simplu utilizați semnul egal:
| 1 | sngA = 3658,25 |
Punerea acestui lucru într-o procedură arată astfel:
| 12345678 | Sub sngExample ()'declarați dubla variabilăDim sngA ca Single'populează variabila dublăsngA = 3658,25'arată caseta de mesajeMsgBox sngASfârșitul Sub |
Dacă rulați codul de mai sus, va fi afișată următoarea casetă de mesaj.
Tip de date dublu
Tipul de date dublu este doar o versiune mai lungă a Singur tipul de date. Datorită acestui fapt, poate efectua rotunjirea atunci când este utilizat într-o procedură ca Singur tipul de date se va rotunji la 4 zecimale, în timp ce Dubla Tipul de date se va rotunji la 12 zecimale. Dacă aveți nevoie de mai mult de 4 zecimale, puteți utiliza tipul de date dublu.
Tipuri de date Int sau Long
Dacă nu aveți nevoie de o zecimală, puteți utiliza fie tipul de date Int, fie tipul de date Long.
| 1 | Dim intA ca întreg |
| 1 | Dim lngB ca Long |
Programare VBA | Generatorul de coduri funcționează pentru dvs.!
Declarați variabila unică la nivel de modul sau global
În exemplele anterioare, am declarat Singur variabilă în cadrul unei proceduri. Variabilele declarate cu o procedură pot fi utilizate numai în cadrul acestei proceduri.
În schimb, puteți declara variabile unice la nivel de modul sau global.
Nivelul modulului
Nivelul modulului variabilele sunt declarate în partea de sus a modulelor de cod cu Dim afirmație.
Aceste variabile pot fi utilizate cu orice procedură din acel modul de cod.
Nivel global
La nivel global variabilele sunt de asemenea declarate în partea de sus a modulelor de cod. Cu toate acestea, în loc să utilizați fișierul Dim declarație, utilizați Public declarație pentru a indica faptul că Singur variabila este disponibilă pentru a fi utilizată în întregul proiect VBA.
| 1 | Public SngA ca Single |
Dacă ar fi să declarați Singur variabilă la nivel de modul și apoi încercați să îl utilizați într-un alt modul, ar apărea o eroare.
Cu toate acestea, dacă ați fi folosit cuvântul cheie public pentru a declara Singur variabilă, eroarea nu va apărea și procedura va rula perfect.
V-ați săturat să căutați exemple de cod VBA? Încercați AutoMacro!
Formatează singur stocat ca șir
Poate fi un moment în care doriți să formatați un singur tip de date într-un șir - de exemplu, poate doriți să afișați un simbol valutar și să rotunjiți numărul cu 2 zecimale.
Pentru a realiza acest lucru, utilizați funcția Format.
Următoarea procedură
| 1234567891011 | Sub TestSingleToCurrencyString ()'declarați variabila șirDim strMoney As String'declarați singurul și completați valoareaDim sngValue As SinglesngValue = 44055.256'convertiți singurul într-un șir cu un simbol valutar cu 2 zecimalestrMoney = Format (sngValue, "$ #, ## 0.00")'vizualizați rezultatulMsgBox strMoneySfârșitul Sub |
ar returna acest rezultat:
În mod similar, poate doriți să afișați un număr ca număr de telefon formatat.
Această procedură:
| 1234567891011 | Sub TestSingleToPhone ()'declarați variabila șirDim strPhone As String'declarați singurul și completați valoareaDim sglValue Ca unicsglValue = 555968541'converti singurul într-un șir cu un simbol valutarstrPhone = Format (sglValue, "(000) -000 0000")'vizualizați rezultatulMsgBox strPhoneSfârșitul Sub |
ar returna acest rezultat:
