Hur markerar jag text i en textruta automatiskt när den väljs i Excel?
För att radera texter i en textruta (ActiveX Control) måste du först välja alla texter i textrutan. Den här artikeln talar om att automatiskt markera alla texter i en textruta när du klickar på textrutan i Excel.
Välj automatisk text i en textruta när den väljs med VBA-kod
Välj automatisk text i en textruta när den väljs med VBA-kod
Använd VBA-koden nedan för att automatiskt markera alla texter i en textruta när du väljer textrutan i Excel.
1. För ett kalkylblad som innehåller textrutan kommer du att göra texterna automatiskt markerade, aktivera designläget genom att klicka Utvecklare > Designläge. Se skärmdump:
Eller så kan du också infoga en textruta genom att klicka Utvecklare > Insert > Textruta (ActiveX-kontroll). Se skärmdump:
2. Högerklicka på textrutan och klicka Visa kod från snabbmenyn. Se skärmdump:
3. I öppningen Microsoft Visual Basic för applikationer fönster, byt ut den ursprungliga VBA-koden i kodfönstret med nedanstående VBA-kod.
VBA-kod: Välj automatiskt texter i en textruta när du klickar på den
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 SubAnmärkningar:
1. I koden, TextBox1 är namnet på textrutan du rensar innehållet från. Ändra det till ditt eget.
2. För att automatiskt välja texter i flera textrutor när du klickar på dem, vänligen lägg till VBA-kod nedan mellan de två sektionerna i ovanstående kod. Och ändra TextBox2 till namnet på den textruta du behöver.
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 Sub4. tryck på andra + Q för att avsluta Microsoft Visual Basic för applikationer fönster.
5. Stäng av designläget.
Från och med nu, när du klickar på textrutan, kommer alla texter i textrutan att väljas automatiskt.
Relaterade artiklar:
- Hur fyller jag i en textruta automatiskt när du skriver i Excel?
- Hur rensar man innehållet i textrutan när man klickar i Excel?
- Hur sammanfoga texter från flera celler till en textruta i Excel?
- Hur inaktiverar du redigering i textrutan för att förhindra användarens inmatning i Excel?
- Hur formaterar jag en textruta i procent i Excel?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
