Acest tutorial va arăta cum să utilizați funcția Format.
Funcția Format
Formatează numerele cu formate predefinite
Funcția Format poate converti un număr în șir formatat cu formate numerice numite predefinite. Aceste formate predefinite sunt Monedă, Fix, Standard, Procent, Științific, Da / Nu, Adevărat / Fals și Activat / Dezactivat.
| 12345678910111213141516171819202122232425262728293031 | Sub FormatExample_1 ()Format MsgBox (1234567.8) „Rezultatul este: 1234567.8„Format doar lasă numărul așa cum esteFormat MsgBox (1234567.8, „Monedă”) 'Rezultatul este: 1.234.567,80 USD„Moneda utilizează setările valutare ale sistemelorFormat MsgBox (1234567.8, „Fix”) 'Rezultatul este: 1234567.80'Fix: cel puțin o cifră înainte de punctul zecimal și'folosește setările de sistem pentru partea zecimalăFormat MsgBox (1234567.8, „Standard”) 'Rezultatul este: 1.234.567,80„Standard: mii de separatoare și sistem standardFormat MsgBox (1234567.8, „Procent”) 'Rezultatul este: 123456780.00%„Procent, se înmulțește cu 100 cu% și sistemul standard.Format MsgBox (1234567.8, „Științific”) 'Rezultatul este: 1.23E + 06'Notatie stiintificaMsgBox Format (1234567.8, "Da / Nu") 'Rezultatul este: Da- Nu, dacă numărul este zeroFormat MsgBox (1234567.8, „Adevărat / Fals”) 'Rezultatul este: Adevărat„Fals dacă numărul este egal cu zeroFormat MsgBox (1234567.8, „Activat / Dezactivat”) 'Rezultatul este: Activat'Dezactivat dacă numărul este zeroSfârșitul Sub |
Formatează numerele cu formate definite de utilizator
Funcția Format poate converti un număr într-un șir, formatate de formate numerice definite de utilizator. 0 este un substituent de cifre care afișează o cifră sau zero. # este un substituent de cifră care afișează o cifră sau nimic. Un punct (.) Este substituentul zecimal,% este procentul de substituent și virgula (,) este separatorul de mii. Textul poate fi adăugat în format folosind ghilimele duble („”) și poate fi adăugat un singur caracter dacă este utilizat după o bară inversă (\).
| 1234567891011 | Sub FormatExample_2 ()Format MsgBox (7.8, "000.00") 'Rezultatul este: 007.80Format MsgBox (12347.8356, "000.00") 'Rezultatul este: 12347.84Format MsgBox (7.8, "###. ##") 'Rezultatul este: 7.8Format MsgBox (12347.8356, "###. ##") 'Rezultatul este: 12347.84Format MsgBox (7.8, "\ $. 00") 'Rezultatul este: 7,80 USDFormat MsgBox (1237.835, "ABA0.00") 'Rezultatul este: ABA1237.84Format MsgBox (12347.8356, "000.00%") 'Rezultatul este: 1234783.56%Format MsgBox (12347.8356, "% 000.00") 'Rezultatul este:% 12347.84Sfârșitul Sub |
Formatează numerele în funcție de valori
Funcția Format poate avea secțiuni diferite folosind reguli de format diferite pentru numerele pozitive, numerele negative, zero și Null. Aceste secțiuni sunt separate printr-un punct și virgulă.
| 1234567 | Sub FormatExample_3 ()Format MsgBox (7.8, "000.00; (000.00); \ z \ e \ r \ o; nimic") 'Rezultatul este: 007.80Format MsgBox (-7,8, "000,00; (000,00); \ z \ e \ r \ o; nimic") 'Rezultatul este: (007,80)Format MsgBox (0, "000,00; (000,00); \ z \ e \ r \ o; nimic") 'Rezultatul este: zeroFormat MsgBox (Nul, "000,00; (000,00); \ z \ e \ r \ o; nimic") 'Rezultatul este: nimicSfârșitul Sub |
Formatează datele cu formate predefinite
Funcția de formatare poate formata date cu diferite formate predefinite. Aceste formate sunt date lungi, medii și scurte și, de asemenea, lungi, medii și scurte.
| 1234567891011121314 | Sub FormatExample_4 ()Dim DateEx Ca datăDateEx = # 18/04/2020 19:35:56 PM #Format MsgBox (DateEx, „Data generală”) 'Rezultatul este: 18.04.2020 19:35:56Format MsgBox (DateEx, „Data lungă”) 'Rezultatul este: sâmbătă, 18 aprilie 2022Format MsgBox (DateEx, „Data medie”) 'Rezultatul este: 18-apr-20Format MsgBox (DateEx, „Data scurtă”) 'Rezultatul este: 18.04.2020Format MsgBox (DateEx, „Long Time”) 'Rezultatul este: 19:35:56Format MsgBox (DateEx, „Ora medie”) 'Rezultatul este: 19:35Format MsgBox (DateEx, „scurt timp”) 'Rezultatul este: 19:35Sfârșitul Sub |
Formatează datele cu formate definite de utilizator
Funcția Format poate format date cu formate definite de utilizator. Caracterele precum d, m, y, w, q pot fi utilizate pentru a crea formate de dată personalizate.
| 123456789101112131415161718192021222324 | Sub FormatExample_5 ()Dim DateEx Ca datăDateEx = # 18/04/2020 19:35:56 PM #Format MsgBox (DateEx, „l / z / aa”) 'Rezultatul este: 18.04.2020Format MsgBox (DateEx, "mm-zz-aa") 'Rezultatul este: 18.04.2020Format MsgBox (DateEx, "mmm-dd-yy") 'Rezultatul este: 18 aprilie 2020Format MsgBox (DateEx, "mmmm-dd-yy") 'Rezultatul este: 18 aprilie 2020Format MsgBox (DateEx, "mm-ddd-yy") 'Rezultatul este: 04-sâmbătă-2020Format MsgBox (DateEx, "mm-dddd-yy") 'Rezultatul este: 04-sâmbătă-2020Format MsgBox (DateEx, „y”)„Rezultatul este: 109„numărul zilei din anul 1-366Format MsgBox (DateEx, "ww")„Rezultatul este: 16'numărul săptămânii din anul 1-52Format MsgBox (DateEx, "q")„Rezultatul este: 2'trimestru în anul 1-4Sfârșitul Sub |
Caracterele precum h, n, s și am, pm combinații pot fi utilizate pentru a crea formate de timp personalizate.
| 123456789101112 | Sub FormatExample_6 ()Dim DateEx Ca datăDateEx = # 18/04/2020 19:06:05 PM #Format MsgBox (DateEx, "h: n: s") 'Rezultatul este: 19: 6: 5Format MsgBox (DateEx, "hh: nn: ss") 'Rezultatul este: 19:06:05Format MsgBox (DateEx, "hh: nn: ss am / pm") 'Rezultatul este: 07:06:05 pmFormat MsgBox (DateEx, "hh: nn: ss AM / PM") 'Rezultatul este: 07:06:05 PMFormat MsgBox (DateEx, "hh: nn: ss a / p") 'Rezultatul este: 07:06:05 pFormat MsgBox (DateEx, "hh: nn: ss A / P") 'Rezultatul este: 07:06:05 PSfârșitul Sub |
Format pentru o mai bună lizibilitate
Funcția de formatare poate formata șiruri sau numere pentru o mai bună lizibilitate. @ este un substituent de caractere folosit pentru a afișa un caracter sau un spațiu. & este un substituent de caractere folosit pentru a afișa un caracter sau nimic. ! poate fi folosit pentru a utiliza substituenți de caractere de la stânga la dreapta și poate fi folosit pentru a impune litere mici sau mari. Poate fi util în formatarea numerelor de telefon sau a altor numere mari fără a modifica valoarea inițială.
| 12345678910111213141516171819202122 | Sub FormatExample_7 ()Dim StrEx Ca șirStrEx = "ABCdef"Format MsgBox (StrEx, "- @@@ - @@ - @@") 'Rezultatul este: - AB-Cd-efFormat MsgBox (StrEx, "- &&& - && - &&") 'Rezultatul este: -AB-Cd-ef„Începe de la dreapta la stânga.Format MsgBox (StrEx, "- @@@ - @@ - @@ - @@") 'Rezultatul este: - -AB-Cd-efFormat MsgBox (StrEx, "- &&& - && - && - &&") 'Rezultatul este: --AB-Cd-ef„Începe de la dreapta la stânga. Când nu există caractere @ adaugă spații și nu adaugă nimicFormat MsgBox (StrEx, "! - @@@ - @@ - @@ - @@") 'Rezultatul este: -ABC-de-f -Format MsgBox (StrEx, "! - &&& - && - && - &&") 'Rezultatul este: -ABC-de-f„Începe de la stânga la dreapta din cauza!MsgBox Format (StrEx, ">") 'Rezultatul este: ABCDEFMsgBox Format (StrEx, "<") 'Rezultatul este: abcdefFormat MsgBox (1234567890, "@@@ - @@@ - @@@@") 'Rezultatul este: 123-456-7890Format MsgBox (1234567890, "@@@@ - @@@ - @@@") 'Rezultatul este: 1234-567-890Sfârșitul Sub |
Formatează modele în celulele foii de lucru
Funcția de formatare poate fi utilizată în codul VBA și, de asemenea, în celulele foilor de lucru. Selectați celula sau gama de celule și urmați intrarea din meniu Formatare celule> Personalizate. Există multe formate definite de utilizator și, de asemenea, utilizatorul își poate crea propriile formate personalizate.
Formatează modele cu formula textului
Funcția de formatare poate modifica direct formatul unei valori din codul VBA. De asemenea, putem folosi formula Excel pentru a obține același rezultat folosind WorksheetFunction.Text.
| 1234567891011 | Sub FormatExample_8 ()Format MsgBox (7.8, "000.00")'Rezultatul este: 007.80MsgBox WorksheetFunction.Text (7.8, "000.00")'Rezultatul este: 007.80Format MsgBox (7.8, "###. ##")'Rezultatul este: 7.8MsgBox WorksheetFunction.Text (7.8, "###. ##")'Rezultatul este: 7.8Sfârșitul Sub |
