Jak automatycznie zaznaczyć tekst pola tekstowego, gdy jest on wybrany w programie Excel?
Aby usunąć teksty w polu tekstowym (kontrolka ActiveX), najpierw musisz zaznaczyć wszystkie teksty w polu tekstowym. W tym artykule mowa o automatycznym wybieraniu wszystkich tekstów pola tekstowego po kliknięciu pola tekstowego w programie Excel.
Automatycznie zaznacz tekst pola tekstowego, gdy jest zaznaczone za pomocą kodu VBA
Automatycznie zaznacz tekst pola tekstowego, gdy jest zaznaczone za pomocą kodu VBA
Zastosuj poniższy kod VBA, aby automatycznie zaznaczyć wszystkie teksty pola tekstowego podczas wybierania pola tekstowego w programie Excel.
1. W przypadku arkusza roboczego zawierającego pole tekstowe, którego teksty zostaną automatycznie wybrane, włącz tryb projektowania, klikając Deweloper > Tryb projektowania. Zobacz zrzut ekranu:
Możesz też wstawić pole tekstowe, klikając Deweloper > wstawka > Pole tekstowe (formant ActiveX). Zobacz zrzut ekranu:
2. Kliknij prawym przyciskiem myszy pole tekstowe i kliknij Wyświetl kod z menu kontekstowego. Zobacz zrzut ekranu:
3. W otwarciu Microsoft Visual Basic for Applications oknie, zamień oryginalny kod VBA w oknie Kod na poniższy kod VBA.
Kod VBA: automatycznie zaznaczaj teksty pola tekstowego po kliknięciu go
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
Call SelTextBox(Me.TextBox1.Object)
End Sub
Sub SelTextBox(xTextBox As Object)
With xTextBox
.SelStart = 0
.SelLength = Len(.Text)
End With
End Sub
Uwagi:
1. W kodzie TextBox1 to nazwa pola tekstowego, z którego usuniesz zawartość. Zmień to na własne.
2. Aby automatycznie wybierać teksty z wielu pól tekstowych po ich kliknięciu, dodaj poniższy kod VBA między dwiema sekcjami w powyższym kodzie. I zmień TextBox2 na nazwę potrzebnego pola tekstowego.
Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Call SelTextBox(Me.TextBox2.Object)
End Sub
4. wciśnij inny + Q klawisze, aby wyjść z Microsoft Visual Basic for Applications okno.
5. Wyłącz tryb projektowania.
Odtąd po kliknięciu pola tekstowego wszystkie teksty wewnątrz pola tekstowego będą zaznaczane automatycznie.
Podobne artykuły:
- Jak automatycznie uzupełniać pole tekstowe podczas pisania w programie Excel?
- Jak wyczyścić zawartość pola tekstowego po kliknięciu 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?
- Jak sformatować pole tekstowe jako procent w programie Excel?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami 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!