Acest tutorial va arăta cum să utilizați funcția de text în VBA.
Funcția Text este utilizată într-o foaie de lucru Excel pentru a returna o porțiune dintr-un șir într-un format specificat. Funcția Text nu este o funcție VBA, dar poate fi utilizată în VBA referindu-se la obiectul Foaie de lucru.
WorksheetFunction.Text
Sintaxa în VBA ar fi, așadar, după cum urmează:
= WorksheetFunction.Text (Arg1, Arg2)
unde Arg1 este șirul original și Arg2 este formatul șirului pe care dorim să îl returnăm.
| 1234567 | Sub TestWSFunction ()Dim dte As StringDim strD As Stringdte = "08/05/2021"strD = WorksheetFunction.Text (dte, "mmmm")MsgBox strDSfârșitul Sub |
În exemplul de mai sus, variabila șir dte stochează o dată. Funcția Text returnează apoi porțiunea lunară a datei.
Formatarea numerelor cu funcția Text
Putem folosi funcția de text pentru a forma numerele în codul nostru VBA.
| 1234567 | Sub FormatCurrency ()Dim strNum As StringDim strFormat As StringstrNum = "75896.125"strFormat = WorksheetFunction.Text (strNum, "$ #, ## 0.00")MsgBox strFormatSfârșitul Sub |
Șirul returnat în exemplul de mai sus ar fi de 75.896,13 USD.
Alte exemple de formatare a numerelor folosind funcția Text sunt:
| 12345678 | = WorksheetFunction.Text (75896.125, "0")aceasta va reveni: "75896"= WorksheetFunction.Text (75896.125, "0.0")aceasta va reveni: "75896,1"= WorksheetFunction.Text (75896.125, "#, ## 0")aceasta va reveni: "75,896" |
Cu toate acestea, Excel are o funcție VBA încorporată pe care o putem folosi în locul funcției Text dacă dorim să formatăm date și numere în VBA. Aceasta este cunoscută sub numele de funcția Format.
Funcția de format VBA
Luând exemplul de mai sus, mai degrabă decât folosind WorksheetFunction.Text, putem folosi doar funcția Format pentru a obține aceleași rezultate.
| 12345678 | = Format (75896.125, "0")aceasta va reveni: "75896"= Format (75896.125, "0.0")aceasta va reveni: "75896,1"= Format (75896.125, "#, ## 0")aceasta va reveni: "75,896" |
În mod similar, putem utiliza funcția Format pentru a formata porțiuni de date ale unui șir.
| 1234567 | Sub TestFormatFunction ()Dim dte As StringDim strD As Stringdte = "08/05/2021"strD = Format (dte, "mmmm")MsgBox strDSfârșitul Sub |
