Note: The other languages of the website are Google-translated. Back to English
Logga in  \/ 
x
or
x
Registrera  \/ 
x

or

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:


De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

  • återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
  • Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
  • Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
  • Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
  • Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
  • Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
  • Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
  • Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
  • Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2019 och 365. Stöder alla språk. Enkel distribution i ditt företag eller organisation. Fullständiga funktioner 30-dagars gratis provperiod. 60-dagars pengarna tillbaka-garanti.
kte-flik 201905

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!
officetab botten
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Diana Lim · 1 years ago
    can change color of the automatically selected text inside textbox?