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 Sub

Anmä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 Sub

4. 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?