Hogyan válasszuk ki automatikusan a szövegdoboz szövegét, ha az Excelben van kiválasztva?
Szöveg törléséhez egy szövegdobozban (ActiveX Control) először is ki kell jelölnie az összes szöveget a szövegmezőben. Ez a cikk arról szól, hogy automatikusan kiválasztja a szövegmező összes szövegét, amikor rákattint az Excel szövegdobozára.
A szövegdoboz szövegének automatikus kiválasztása, ha VBA kóddal van kiválasztva
A szövegdoboz szövegének automatikus kiválasztása, ha VBA kóddal van kiválasztva
Kérjük, alkalmazza az alábbi VBA-kódot a szövegmező összes szövegének automatikus kiválasztásához, amikor kiválasztja a szövegdobozt az Excel-ben.
1. Ha egy munkalap tartalmazza azt a szövegdobozt, amelynek szövegeit automatikusan kiválasztja, kérjük, kapcsolja be a Tervezési módot Fejlesztő > Tervezési mód. Lásd a képernyőképet:
Vagy kattintással beilleszthet egy szövegdobozt is Fejlesztő > betétlap > Szövegdoboz (ActiveX-vezérlő). Lásd a képernyőképet:
2. Kattintson a jobb gombbal a szövegmezőre, majd kattintson a gombra Kód megtekintése a helyi menüből. Lásd a képernyőképet:
3. A nyílásban Microsoft Visual Basic for Applications ablakban, kérjük, cserélje ki az eredeti VBA kódot a Kód ablakban az alábbi VBA kódra.
VBA kód: A szövegdoboz szövegének automatikus kiválasztása, amikor rákattint
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
Megjegyzések:
1. A kódban 1. szövegdoboz annak a szövegdoboznak a neve, amelyből törli a tartalmát. Kérjük, változtassa meg sajátjával.
2. Ha több szövegmező szövegét automatikusan kiválasztja, amikor rájuk kattint, kérjük, adja hozzá a VBA kódot a fenti kód két szakasza közé. És állítsa a TextBox2-t a szükséges szövegdoboz nevére.
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. megnyomni a más + Q gombokkal lépjen ki a Microsoft Visual Basic for Applications ablak.
5. Kapcsolja ki a Tervezési módot.
Mostantól a szövegdobozra kattintva a szövegdobozon belüli összes szöveg automatikusan kiválasztásra kerül.
Kapcsolódó cikkek:
- Hogyan tölthetünk be automatikusan egy szövegdobozt, amikor Excelbe gépelünk?
- Hogyan törölhető a szövegdoboz tartalma, ha rákattint az Excel programban?
- Hogyan lehet összefűzni több cella szövegét egy szövegdobozba az Excelben?
- Hogyan lehet letiltani a szövegmezőben történő szerkesztést, hogy megakadályozzuk a felhasználók Excel-be történő bevitelét?
- Hogyan formázzuk a szövegmezőt százalékban az Excelben?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!