Co to jest VBA TextBox w programie Excel?
VBA TextBox jest jednym z wielu formantów z formantów UserForm w programie Excel. TextBox VBA może się przydać, gdy chcesz mieć dane wejściowe od użytkownika, takie jak jego imię i nazwisko, wiek, adres, wynagrodzenie itp. Korzystając z kontroli TextBox, możesz pozwolić użytkownikom na wprowadzanie tego rodzaju informacji i zaoszczędzić wiele czasu, a także błędy literowe . VBA TextBox może składać się z danych statycznych lub dynamicznych.
UserForm sam w sobie jest bardzo użytecznym narzędziem, które ma różne opcje sterowania, takie jak TextBox, MsgBox i InputBox itp., Które zapewniają bardziej praktyczny sposób uzyskiwania danych od użytkownika, dzięki czemu można funkcjonalnie przetwarzać te dane i uzyskiwać z nich przydatne informacje .
W tym artykule zdobędziesz praktyczne doświadczenie w programie Excel VBA TextBox.
Przykłady Excel VBA TextBox
Poniżej znajdują się różne przykłady VBA TextBox w Excelu.
Możesz pobrać ten szablon Excel VBA TextBox tutaj - Szablon Excel VBA TextBoxPrzykład # 1 - Jak wstawić TextBox w VBA?
Poniżej znajdują się kroki, aby wstawić TextBox w Excel VBA.
Krok 1: Otwórz plik programu Excel i naciśnij klawisze Alt + F11, aby przejść do okienka VBA.
Krok 2: Jak już omówiliśmy, TextBox jest opcją dostępną w UserForm. Musimy więc wstawić UserForm w VBE. Przejdź do menu Wstaw > Kliknij opcję UserForm .
Krok 3: Jak tylko wstawisz UserForm do VBA, możesz zobaczyć z nim powiązaną opcję Toolbox i mieć różne opcje związane z UserForm.
Krok 4: W tym przyborniku wybierz TextBox .
Krok 5: Przeciągnij ten TextBox w formularzu użytkownika.
Krok 6: Naciśnij klawisz F4, aby wyświetlić właściwości UserForm (możesz to zrobić, klikając prawym przyciskiem myszy wstawiony UserForm). Te właściwości umożliwiają dokonanie niezbędnych zmian, takich jak zmiana nazwy UserForm, aby mieć do niej łatwy dostęp.
Niektóre inne podstawowe zmiany, które można wprowadzić za pomocą panelu właściwości UserForm, to np. Zmiana czcionki, zmiana rozmiaru itp.
Krok 7: Wpisz tekst jako „ Witamy w VBA TextBox! ”W TextBox w UserForm.
W ten sposób możesz stworzyć VBA TextBox.
Przykład # 2 - Ustawienie wartości na VBA TextBox
Zobaczmy, jak możemy ustawić wartości dla TextBox. Czasami obowiązkowe jest ustawienie wartości, w przeciwnym razie użytkownik wprowadzi wszystko, co ich interesuje.
Krok 1: Wstaw nowy formularz użytkownika do VBE. Przejdź do menu Wstaw > kliknij UserForm.
Krok 2: Z Narzędzi UserForm wybierz TextBox i przeciągnij go do UserForm.
Krok 3: Wstaw CommandButton w UserForm w taki sam sposób jak TextBox.
Krok 4: Zmień podpis przycisku polecenia na „ Prześlij ” w obszarze właściwości. Możesz przejść do właściwości przycisku polecenia, klikając prawym przyciskiem myszy przycisk polecenia> kliknij Właściwości .
Krok 5: Kliknij dwukrotnie przycisk przesyłania lub kliknij go prawym przyciskiem myszy i wybierz opcję Wyświetl kod .
Krok 6: W kodzie wstaw wiersz nowego kodu w ramach podprocedury, jak poniżej.
Kod:
Private Sub CommandButton1_Click () TextBox1.Value = "Nazywam się Lalit!" Napis końcowy
Ten podświetlony kod pozwala przypisać wartość po prawej stronie ujętą w podwójne cudzysłowy do TextBox. Możesz także użyć właściwości TextBox.Text zamiast TextBox.Values, aby ustawić wartość dla TextBox.
Krok 7: Naciśnij F5 lub przycisk Uruchom pod VBE, aby uruchomić ten kod, zobaczysz UserForm z pustym TextBox. Jak tylko naciśniesz przycisk przesyłania, pojawi się w nim tekst przypisany do TextBox.
Przykład # 3 - Ogranicz wprowadzanie tekstu przez pole tekstowe, aby akceptować tylko wartości liczbowe
Wykonaj poniższe kroki:
Krok 1: Wstaw nowy UserForm do twojego VBA i dodaj w nim TextBox.
Krok 2: Zmień nazwę TextBox w sekcji Właściwości na „ My_Age ”.
Krok 3: Kliknij dwukrotnie TextBox lub kliknij go prawym przyciskiem myszy i wybierz Wyświetl kod .
Będziesz mógł zobaczyć początkową podprocedurę, jak poniżej:
Kod:
Sub prywatny My_Age_Change () End Sub
Krok 4: Teraz spróbuj dodać warunek If, który zaczyna się od If Not.
Kod:
Sub prywatny My_Age_Change () If Not End End
Krok 5: Poproś kompilator, aby sprawdził, czy wartość TextBox „My_Age” jest liczbowa, czy też nie używa IsNumeric Słowo kluczowe przed warunkiem If Not.
Kod:
Sub prywatny My_Age_Change () If Not IsNumeric (My_Age.Value) End Sub
Krok 6: Jak wymaga każdy warunek JEŻELI, dodaj dla niego Słowo kluczowe Następnie .
Kod:
Sub prywatny My_Age_Change () If Not IsNumeric (My_Age.Value), a następnie End Sub
W tym fragmencie kodu prosisz kompilator o sprawdzenie, czy wartość wprowadzona przez użytkownika w TextBox jest liczbą, czy nie. Jeśli nie jest to liczba, to co robić? Wykonaj następny krok.
Krok 7: Za pomocą MsgBox dodaj komentarz w stylu „Przepraszam! Dozwolone są tylko cyfry. ”Wyświetlane, jeśli wartość w TextBox nie jest liczbą.
Kod:
Sub prywatny My_Age_Change () Jeśli nie jest IsNumeric (My_Age.Value), to MsgBox „Przepraszamy! Dozwolone są tylko numery”. Napis końcowy
Krok 8: Teraz zamknij tę instrukcję IF za pomocą słowa kluczowego End IF.
Kod:
Sub prywatny My_Age_Change () Jeśli nie jest IsNumeric (My_Age.Value), to MsgBox „Przepraszamy! Dozwolone są tylko numery”. End If End Sub
Krok 9: Teraz uruchom ten kod, naciskając przycisk F5 na klawiaturze lub przycisk Uruchom z VBE i zobacz wynik. Otrzymasz TextBox, jak pokazano poniżej:
Teraz próbuję wprowadzić w nim wartość całkowitą i sprawdzić, czy rzeczywiście pozwala mi to wprowadzić, czy nie.
Bingo, pozwala mi przechowywać wartość całkowitą.
Teraz spróbujmy dodać zmiennoprzecinkowe (wartość z kropkami dziesiętnymi) do tego pola tekstowego i zobaczmy, czy pozwala nam to samo wprowadzić.
Sprawdźmy, czy to pole tekstowe pozwala nam przechowywać pod nim ujemne wartości, czy nie. Wpiszę liczbę ujemną i sprawdzę.
Dobrze! Dobrze!! Cóż, strzela mi wiadomość, że dozwolone są tylko liczby. Stało się tak, ponieważ ten kod napisany początkowo ma warunek JEŻELI, nie ma żadnego obejścia, co zrobić, jeśli liczba nie jest dodatnia. Co więcej, wiek nie może być ujemny. Dobrze? Dlatego otrzymuję komunikat ostrzegawczy, jak widać powyżej. Jeśli jednak klikniesz OK w oknie komunikatu i spróbujesz wprowadzić numer, pozwoli ci to zrobić. Ale nie zalecę łamania obowiązujących tam zasad.
Na koniec spróbujmy jakiegoś ciągu tekstowego w polu i zobaczmy, czy pozwala na przechowywanie tego samego w polu tekstowym, czy nie.
Jak słusznie się spodziewałem, gdy tylko wprowadziłem pierwszą literę ciągu, system uniemożliwił mi to, rzucając wiadomość. Wynika to z faktu, że w kodzie wspomnieliśmy o warunku, że jeśli wartość nie jest liczbowa, wyślij wiadomość do użytkownika, że dozwolone są tylko wartości liczbowe.
Rzeczy do zapamiętania
- VBA TextBox to specjalna opcja w UserForm. Który jest zaprojektowany, aby pobierać dane wejściowe od samego użytkownika.
- Istnieją dwie metody ustawiania wartości dla TextBox: przy użyciu TextBox.Text i przy użyciu TextBox.Value.
- Czasami ograniczenie wprowadzania danych przez użytkownika jest obowiązkowe, aby uzyskać odpowiedni typ danych.
Polecane artykuły
To jest przewodnik po VBA TextBox. Tutaj omawiamy sposób tworzenia TextBox w Excel VBA wraz z praktycznymi przykładami i szablonem Excel do pobrania. Możesz także przejrzeć nasze inne sugerowane artykuły -
- Jak korzystać z funkcji VBA IsNumeric?
- Tworzenie pola kombi w programie Excel
- Wstaw CheckBox do Excela
- Funkcja VBA UCASE w programie Excel
- Jak zamknąć UserForm w VBA?