Hvordan vælges tekst automatisk i en tekstboks, når den er valgt i Excel?
For at slette tekster i en tekstboks (ActiveX Control) skal du først vælge alle tekster inde i tekstboksen. Denne artikel taler om automatisk at vælge alle tekster i en tekstboks, når du klikker på tekstboksen i Excel.
Vælg automatisk tekst i en tekstboks, når den er valgt med VBA-kode
Vælg automatisk tekst i en tekstboks, når den er valgt med VBA-kode
Anvend nedenstående VBA-kode for automatisk at markere alle tekster i en tekstboks, når du vælger tekstboksen i Excel.
1. For et regneark, der indeholder tekstboksen, skal du markere dens tekster automatisk, skal du tænde for designtilstand ved at klikke på Udvikler > Design Mode. Se skærmbillede:
Eller du kan også indsætte en tekstboks ved at klikke på Udvikler > indsatte > Tekstboks (ActiveX-kontrol). Se skærmbillede:
2. Højreklik på tekstboksen, og klik Vis kode fra genvejsmenuen. Se skærmbillede:
3. I åbningen Microsoft Visual Basic til applikationer vindue, skal du udskifte den originale VBA-kode i kodevinduet med nedenstående VBA-kode.
VBA-kode: Vælg automatisk tekster i en tekstboks, når du klikker 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
Noter:
1. I koden, Tekstboks 1 er navnet på den tekstboks, du vil rydde indholdet fra. Skift det til dit eget.
2. For automatisk at vælge tekster i flere tekstbokse, når du klikker på dem, skal du tilføje nedenstående VBA-kode mellem de to sektioner i ovenstående kode. Og skift TextBox2 til navnet på den nødvendige tekstboks.
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. Tryk på andre + Q taster for at afslutte Microsoft Visual Basic til applikationer vindue.
5. Sluk for designtilstand.
Fra nu af, når du klikker på tekstboksen, vælges alle tekster inde i tekstboksen automatisk.
Relaterede artikler:
- Hvordan udfyldes en tekstboks automatisk, når du skriver i Excel?
- Hvordan ryddes indholdet af tekstboksen, når der klikkes på i Excel?
- Hvordan sammenkædes tekster fra flere celler i en tekstboks i Excel?
- Hvordan deaktiveres redigering i tekstboks for at forhindre brugerinput i Excel?
- Hvordan formateres en tekstboks i procent i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!