Hoe automatisch tekst van een tekstvak selecteren wanneer deze is geselecteerd in Excel?
Voor het verwijderen van teksten in een tekstvak (ActiveX-besturingselement), moet u eerst alle teksten in het tekstvak selecteren. Dit artikel gaat over het automatisch selecteren van alle teksten van een tekstvak bij het klikken op het tekstvak in Excel.
Selecteer automatisch tekst van een tekstvak wanneer deze is geselecteerd met VBA-code
Selecteer automatisch tekst van een tekstvak wanneer deze is geselecteerd met VBA-code
Pas de onderstaande VBA-code toe om automatisch alle teksten van een tekstvak te selecteren bij het selecteren van het tekstvak in Excel.
1. Als een werkblad het tekstvak bevat, moet u de teksten automatisch laten selecteren. Schakel de Ontwerpmodus in door op te klikken Ontwikkelaar > Ontwerpmodus. Zie screenshot:
Of u kunt ook een tekstvak invoegen door op te klikken Ontwikkelaar > Invoegen > Tekstvak (ActiveX-besturingselement). Zie screenshot:
2. Klik met de rechtermuisknop op het tekstvak en klik op Bekijk code vanuit het contextmenu. Zie screenshot:
3. In de opening Microsoft Visual Basic voor toepassingen venster, vervang dan de originele VBA-code in het codevenster door onderstaande VBA-code.
VBA-code: selecteer automatisch teksten van een tekstvak door erop te klikken
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 SubOpmerkingen:
1. In de code, Tekstvak1 is de naam van het tekstvak waaruit u de inhoud wilt wissen. Wijzig deze in uw eigen.
2. Om automatisch teksten van meerdere tekstvakken te selecteren wanneer u erop klikt, voegt u onderstaande VBA-code toe tussen de twee secties in de bovenstaande code. En verander de TextBox2 in de naam van je benodigde tekstvak.
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. druk de anders + Q toetsen om het Microsoft Visual Basic voor toepassingen venster.
5. Schakel de ontwerpmodus uit.
Vanaf nu, wanneer u op het tekstvak klikt, worden alle teksten in het tekstvak automatisch geselecteerd.
Gerelateerde artikelen:
- Hoe een tekstvak automatisch aanvullen tijdens het typen in Excel?
- Hoe de inhoud van het tekstvak te wissen wanneer erop wordt geklikt in Excel?
- Hoe teksten van meerdere cellen samen te voegen in een tekstvak in Excel?
- Hoe kan ik bewerken in tekstvak uitschakelen om te voorkomen dat de gebruiker in Excel invoert?
- Hoe een tekstvak opmaken als een percentage in Excel?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools for Excelen ervaar efficiëntie als nooit tevoren. Kutools for Excel Biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
