Jak sformatować pole tekstowe jako walutę w programie Excel?
Zwykle w programie Excel nie ma wbudowanej funkcji umożliwiającej zmianę formatu tekstu w polu tekstowym (formant ActiveX). Jeśli jednak potrzebujesz sformatować liczby wprowadzone w polu tekstowym do waluty w jakimś celu. Jak możesz to osiągnąć? W tym artykule pokażemy metodę VBA, aby rozwiązać ten problem.
Sformatuj pole tekstowe jako walutę za pomocą kodu VBA
Sformatuj pole tekstowe jako walutę za pomocą kodu VBA
Poniższy kod VBA może pomóc w łatwym formatowaniu liczb w polu tekstowym jako waluty w programie Excel. Wykonaj następujące czynności.
1. kliknij Deweloper > wstawka > Pole tekstowe (formant ActiveX) wstawić pole tekstowe do arkusza. Zobacz zrzut ekranu:
2. Kliknij prawym przyciskiem pole tekstowe, a następnie kliknij Wyświetl kod z menu po kliknięciu prawym przyciskiem myszy.
3. W otwarciu Microsoft Visual Basic for Applications oknie, zamień oryginalny kod w oknie Kod na poniższy kod VBA.
Kod VBA: sformatuj pole tekstowe jako walutę w programie Excel
Private Sub TextBox1_Change()
TextBox1.Value = Format(TextBox1.Value, "$###,##")
End Sub
Uwagi: W kodzie TextBox1 to nazwa pola tekstowego, w którym będziesz formatować liczby jako walutę. Zmień to na własne.
4. wciśnij inny + Q klawisze jednocześnie, aby zamknąć Microsoft Visual Basic for Applications okno.
5. Wyłącz tryb projektowania.
Odtąd po wprowadzeniu numeru do pola tekstowego zostanie on automatycznie sformatowany jako waluta, jak pokazano na poniższym zrzucie ekranu.
Podobne artykuły:
- Jak automatycznie zaznaczyć tekst pola tekstowego, gdy jest on wybrany w programie Excel?
- Jak automatycznie uzupełniać pole tekstowe podczas pisania w programie Excel?
- Jak sformatować pole tekstowe jako procent w programie Excel?
- Jak połączyć teksty wielu komórek w pole tekstowe w programie Excel?
- Jak wyłączyć edycję w polu tekstowym, aby uniemożliwić wprowadzanie danych przez użytkownika w programie Excel?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Exceli doświadcz wydajności jak nigdy dotąd. Kutools for Excel Oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Office Tab Wprowadza interfejs z kartami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
