Ta vadnica bo pokazala, kako uporabljati funkcijo Oblika.
Funkcija oblikovanja
Oblikovanje številk z vnaprej določenimi oblikami
Funkcija oblikovanja lahko pretvori številko v niz, oblikovan z vnaprej določenimi imenovanimi številskimi oblikami. Te vnaprej določene oblike so valuta, fiksna, standardna, odstotna, znanstvena, da/ne, resnična/napačna in vklop/izklop.
| 12345678910111213141516171819202122232425262728293031 | PodoblikPrimer_1 ()MsgBox Format (1234567.8) 'Rezultat je: 1234567.8'Oblika pusti številko takšno, kot jeFormat MsgBox (1234567,8, "Valuta") "Rezultat je: 1.234.567,80 USD„Valuta uporablja nastavitve sistemske valuteMsgBox Format (1234567.8, "Fixed") 'Rezultat je: 1234567.80„Popravljeno: Vsaj ena številka pred decimalno vejico in'za decimalni del uporablja sistemske nastavitveMsgBox Format (1234567.8, "Standard") 'Rezultat je: 1.234.567,80„Standard: Na tisoče ločevalnikov in standardni sistemFormat sporočila (1234567,8, "Odstotek") "Rezultat je: 123456780,00%"Odstotek, pomnožen s 100 s % in standardnim sistemom.MsgBox Format (1234567.8, "Scientific") "Rezultat je: 1.23E+06'Znanstveni zapisFormat MsgBox (1234567.8, "Da/Ne") 'Rezultat je: Da'Ne, če je število ničMsgBox Format (1234567.8, "True/False") 'Rezultat je: True'Napačno, če je število enako ničMsgBox Format (1234567.8, "On/Off") 'Rezultat je: Vklopljeno'Izključeno, če je število ničEnd Sub |
Oblikujte številke z oblikami, ki jih določi uporabnik
Funkcija oblikovanja lahko pretvori število v niz, oblikovane uporabniško določene številske oblike. 0 je oznaka mesta, ki prikaže števko ali nič. # je nadomestno mesto za števke, ki prikaže števko ali nič. Pika (.) Je decimalno mesto, % je odstotek nadomestnega znaka in vejica (,) je ločilo tisoč. Besedilo je mogoče dodati v obliki z dvojnimi narekovaji ("") in dodati en sam znak, če se uporablja za poševnico (\).
| 1234567891011 | PodformatPrimer_2 ()Format sporočila (7.8, "000.00") "Rezultat je: 007.80Format sporočila (12347.8356, "000.00") "Rezultat je: 12347.84MsgBox Format (7.8, "###. ##") 'Rezultat je: 7.8MsgBox Format (12347.8356, "###. ##") 'Rezultat je: 12347.84Format MsgBox (7,8, "\ $. 00") 'Rezultat je: 7,80 USDMsgBox Format (1237.835, "ABA0.00") 'Rezultat je: ABA1237.84Format sporočila (12347.8356, "000.00%") 'Rezultat je: 1234783.56%Format sporočila (12347.8356, " %000.00") 'Rezultat je: %12347.84End Sub |
Oblikujte številke, odvisno od vrednosti
Funkcija oblikovanja ima lahko različne odseke z različnimi pravili oblikovanja za pozitivna števila, negativna števila, ničlo in nič. Ti odseki so ločeni s podpičjem.
| 1234567 | PodoblikPrimer_3 ()MsgBox Format (7.8, "000.00; (000.00); \ z \ e \ r \ o; nič") "Rezultat je: 007.80Format sporočila (-7.8, "000.00; (000.00); \ z \ e \ r \ o; nič") "Rezultat je: (007.80)MsgBox Format (0, "000.00; (000.00); \ z \ e \ r \ o; nič") "Rezultat je: ničMsgBox Format (Null, "000.00; (000.00); \ z \ e \ r \ o; nič") "Rezultat je: ničEnd Sub |
Oblikujte datume z vnaprej določenimi oblikami
Funkcija oblikovanja lahko oblikuje datume z različnimi vnaprej določenimi oblikami. Te oblike so dolge, srednje in kratke ter tudi dolge, srednje in kratke.
| 1234567891011121314 | PodoblikPrimer_4 ()Zatemni DateEx kot datumDatumEx = #18.4.2020 19:35:56 #Format sporočila (DateEx, "Splošni datum") "Rezultat je: 18.4.2020 19:35:56Format MsgBox (DateEx, "Long Date") "Rezultat je: sobota, 18. april 2022Format MsgBox (DateEx, "Medium Date") "Rezultat je: 18. april 20MsgBox Format (DateEx, "Short Date") "Rezultat je: 18.4.2020MsgBox Format (DateEx, "Long Time") 'Rezultat je: 19:35:56 PMFormat sporočila (DateEx, "srednji čas") "Rezultat je: 19:35MsgBox Format (DateEx, "Short Time") 'Rezultat je: 19:35End Sub |
Oblikujte datume z uporabniško določenimi oblikami
Funkcija oblikovanja lahko oblikuje datume z uporabniško določenimi oblikami. Znake, kot so d, m, y, w, q, lahko uporabite za ustvarjanje oblik datumov po meri.
| 123456789101112131415161718192021222324 | PodoblikPrimer_5 ()Zatemni DateEx kot datumDatumEx = #18.4.2020 19:35:56 PM #MsgBox Format (DateEx, "m/d/yy") 'Rezultat je: 18.4.2020MsgBox Format (DateEx, "mm-dd-yy") 'Rezultat je: 04-18-2020Format MsgBox (DateEx, "mmm-dd-yy") "Rezultat je: 18. april 2020MsgBox Format (DateEx, "mmmm-dd-yy") 'Rezultat je: april-18-2020MsgBox Format (DateEx, "mm-ddd-yy") 'Rezultat je: 04-Sat-2020MsgBox Format (DateEx, "mm-dddd-yy") 'Rezultat je: 04-sobota-2020Format sporočila (DateEx, "y")"Rezultat je: 109'število dni v letu 1-366Format sporočila (DateEx, "ww")"Rezultat je: 16'število tednov v letu 1-52Format sporočila (DateEx, "q")"Rezultat je: 2četrtletje v prvem četrtletjuEnd Sub |
Znake, kot so h, n, s in am, pm, lahko uporabite za ustvarjanje časovnih oblik po meri.
| 123456789101112 | PodoblikPrimer_6 ()Zatemni DateEx kot datumDateEx = #4/18/2020 19:06:05 PM #MsgBox Format (DateEx, "h: n: s") 'Rezultat je: 19: 6: 5Format MsgBox (DateEx, "hh: nn: ss") 'Rezultat je: 19:06:05MsgBox Format (DateEx, "hh: nn: ss am/pm") "Rezultat je: 07:06:05 popoldneMsgBox Format (DateEx, "hh: nn: ss AM/PM") "Rezultat je: 07:06:05 PMMsgBox Format (DateEx, "hh: nn: ss a/p") 'Rezultat je: 07:06:05 pMsgBox Format (DateEx, "hh: nn: ss A/P") 'Rezultat je: 07:06:05 PEnd Sub |
Oblika za boljšo berljivost
Funkcija oblikovanja lahko oblikuje nize ali številke za boljšo berljivost. @ je nadomestni znak znakov, ki se uporablja za prikaz znaka ali presledka. & je nadomestni znak znakov, ki se uporablja za prikaz znaka ali nič. ! se lahko uporablja za uporabo nadomestnih znakov od leve proti desni in za uveljavljanje malih ali velikih črk. Lahko je uporabno pri oblikovanju telefonskih številk ali drugih velikih številk brez spreminjanja prvotne vrednosti.
| 12345678910111213141516171819202122 | PodoblikPrimer_7 ()Dim StrEx kot nizStrEx = "ABCdef"Format MsgBox (StrEx, "-@@@-@@-@@") "Rezultat je:-AB-Cd-efFormat MsgBox (StrEx, "-&&&-&&-&&") "Rezultat je: -AB-Cd-ef'Začne se od desne proti levi.Format MsgBox (StrEx, "-@@@-@@-@@-@@") "Rezultat je:--AB-Cd-efFormat MsgBox (StrEx, "-&&&-&&-&&-&&") "Rezultat je: --AB-Cd-ef'Začne se od desne proti levi. Ko znakov @ doda presledek in & ne doda ničFormat MsgBox (StrEx, "!-@@@-@@-@@-@@") "Rezultat je: -ABC-de-f-MsgBox Format (StrEx, "!-&&&-&&-&&-&&") 'Rezultat je: -ABC-de-f'Začne se od leve proti desni zaradi!MsgBox Format (StrEx, ">") 'Rezultat je: ABCDEFMsgBox Format (StrEx, "<") 'Rezultat je: abcdefFormat MsgBox (1234567890, "@@@-@@@-@@@@") "Rezultat je: 123-456-7890Format MsgBox (1234567890, "@@@@-@@@-@@@") "Rezultat je: 1234-567-890End Sub |
Oblikovanje vzorcev v celicah delovnega lista
Funkcijo oblikovanja lahko uporabite v kodi VBA in tudi v celicah delovnih listov. Izberite celico ali obseg celic in sledite vnosu v meniju Oblikuj celice> Po meri. Uporabnikom je na voljo veliko oblik zapisa, uporabnik pa lahko ustvari tudi lastne oblike po meri.
Oblikovanje vzorcev s besedilno formulo
Funkcija oblikovanja lahko neposredno spremeni obliko vrednosti v kodi VBA. Za dosego istih rezultatov lahko uporabimo tudi formulo excel Text z uporabo WorksheetFunction.Text.
| 1234567891011 | PodoblikPrimer_8 ()Format sporočila (7.8, "000.00")"Rezultat je: 007.80MsgBox WorksheetFunction.Text (7.8, "000.00")"Rezultat je: 007.80Format MsgBox (7.8, "###. ##")"Rezultat je: 7.8MsgBox WorksheetFunction.Text (7.8, "###. ##")"Rezultat je: 7.8End Sub |
