Wdrażanie Makro VBA to najskuteczniejsza, najszybsza i najbezpieczniejsza metoda na przeprowadzenie dowolnej operacji w Excelu.W tym artykule pokażemy jak sformatować liczbę w programie Excel przy użyciu VBA .

Pobierz Workbook

Darmowy ćwiczeniowy zeszyt Excela można pobrać stąd.

Formatuj liczbę za pomocą VBA.xlsm

3 Metody formatowania liczb w Excelu za pomocą VBA

Spójrz na poniższy przykład. W obu zapisaliśmy te same liczby Kolumna B oraz C tak, że kiedy sformatujemy liczbę w Kolumna C to będziesz wiedział od B Kolumna w jakim formacie była wcześniej liczba.

1) VBA do formatowania liczby z jednego typu na inny w Excelu

Najpierw dowiedzmy się, jak sformatować liczbę 12345 z Komórka C5 w naszym zbiorze danych z VBA do Waluta format.

Kroki:

• Naciśnij Alt + F11 na klawiaturze lub przejdź do zakładki Programista -> Visual Basic otworzyć Edytor Visual Basic .

• W wyskakującym oknie kodu, na pasku menu, kliknij Insert -> Moduł .

• Skopiuj poniższy kod i wklej go do okna kodu.

 Sub NumberFormat() Range("C5").NumberFormat = "#,##0.0" 'To sformatuje liczbę 12345 na walutę End Sub 

Twój kod jest teraz gotowy do uruchomienia.

• Naciśnij F5 na klawiaturze lub z paska menu wybrać Run -> Run Sub/UserForm. Możesz też po prostu kliknąć na mała ikona Play na pasku podmenu, aby uruchomić makro.

Ten kod będzie sformatować liczbę 12345 na walutę z wartością dziesiętną.

Jeśli chcesz pokazać symbol waluty w komórce to po prostu umieść symbol przed kodem.

 Sub NumberFormat() Range("C6").NumberFormat = "$#,##0.0" 'To sformatuje liczbę 12345 na walutę z symbolem $ End Sub 

W naszym przypadku użyliśmy dolar ($) Możesz użyć dowolnego symbolu waluty, który chcesz.

Ten kod sformatuje liczbę na walutę za pomocą dolar ($) symbol.

Możesz również przekonwertować ten format liczby na wiele innych formatów. Wystarczy postępować zgodnie z poniższym kodem, aby przekształcić liczbę w wymagany format.

 Sub NumberFormat() 'Oryginalna liczba 12345 Range("C5").NumberFormat = "#,##0.0" 'Spowoduje to sformatowanie liczby na walutę Range("C6").NumberFormat = "$#,##0.0" 'Spowoduje to sformatowanie liczby na walutę z symbolem $ Range("C7").NumberFormat = "0.00%" 'Spowoduje to sformatowanie liczby na wartość procentową Range("C8").NumberFormat = "#,##.00;[red]-#,##.00" 'To.sformatuje liczbę na kolor czerwony (formatowanie warunkowe) Range("C9").NumberFormat = "#?/?" 'To sformatuje liczbę na ułamki Range("C10").NumberFormat = "0#"" Kg"" 'To sformatuje liczbę z tekstem Range("C11").NumberFormat = "#-#-#-#" 'To sformatuje liczbę z separatorami Range("C12").NumberFormat = "#,##0.00" 'To sformatuje liczbęliczba z przecinkami i przecinkiem jeśli dotyczy Range("C13").NumberFormat = "#,##0" 'To sformatuje liczbę na tysiące z przecinkami jeśli dotyczy Range("C14").NumberFormat = "#,##0.00" 'To sformatuje liczbę na miliony Range("C15").NumberFormat = "dd-mmm-yyy hh:mm AM/PM" 'To sformatuje liczbę na datę &time End Sub 

Makro VBA

Przegląd

Read More: Excel Custom Number Format Multiple Conditions

2. Makro do formatowania zakresu liczb w Excelu

Widzieliśmy, jak zmienić format liczby dla pojedynczej komórki. Ale jeśli chcesz zmiana formatu dla zakresu liczb następnie VBA Kod jest dość podobny do tego z powyższej sekcji. Tym razem zamiast przekazywać pojedynczy numer referencyjny komórki wewnątrz nawiasów obiektu Range, musisz przejść cały zakres (jak np. C5:C8) wewnątrz nawiasów.

 Sub NumberFormatRng() Range("C5:C8").NumberFormat = "$#,##0.0" End Sub 

Ten kod sformatuje określony zakres liczb z twojego zestawu danych w programie Excel.

Read More: Jak sformatować liczbę do miliona w Excelu (6 sposobów)

Podobne Lektury:

• Excel zaokrągla do 2 miejsc po przecinku (z kalkulatorem)
• Jak Umieszczanie nawiasów dla liczb ujemnych w programie Excel
• Jak sformatować liczbę w tysiącach K i milionach M w Excelu (4 sposoby)
• Niestandardowy format liczbowy: Miliony z jednym miejscem po przecinku w Excelu (6 sposobów)
• Jak zmienić format liczb z przecinka na kropkę w Excelu (5 sposobów)

3. osadzić VBA do konwersji liczby z funkcją Format w Excelu

Można również użyć Funkcja formatu w Excelu VBA aby przekonwertować liczby. Makro, które to zrobi to,

Kroki:

• W taki sam sposób jak poprzednio, otwórz Edytor Visual Basic od Deweloper zakładka i Wkładka a Moduł w oknie kodu.
• W oknie kodu skopiuj poniższy kod i wklej go.

 Sub NumberFormatFunc() MsgBox Format(12345, "#,##0.00") End Sub 

Twój kod jest teraz gotowy do uruchomienia.

W okienku wiadomości otrzymasz sformatowany numer.

Related Content: Jak przekonwertować liczbę na procent w Excelu (3 szybkie sposoby)

Wniosek

Ten artykuł pokazał, jak sformatować liczbę w Excelu z VBA Mam nadzieję, że ten artykuł był dla Ciebie bardzo korzystny. Czuj się swobodnie, jeśli masz jakieś pytania dotyczące tematu.