Hoe een tekstvak opmaken als een percentage in Excel?
In het vorige artikel hebben we een VBA-methode besproken om getallen in een tekstvak als valuta in Excel op te maken. Hier in dit artikel gaan we het ook hebben over het opmaken van een nummer in een tekstvak als een percentage in Excel met de VBA-methode.
Formatteer een tekstvak als percentage met VBA-code
Formatteer een tekstvak als percentage met VBA-code
Ga als volgt te werk om een tekstvak op te maken als een percentage met VBA-code.
1. klikken Ontwikkelaar > Invoegen > Tekstvak (ActiveX-besturingselement) om een tekstvak in het werkblad in te voegen. Zie screenshot:
2. Klik met de rechtermuisknop op het tekstvak en klik vervolgens op Bekijk code vanuit het contextmenu.
3. In de opening Microsoft Visual Basic voor toepassingen venster, vervang dan de originele code in het codevenster door onderstaande VBA-code.
VBA-code: formatteer een tekstvak als percentage in Excel
Private Sub TextBox1_LostFocus()
Dim xReg As New RegExp
Dim xMatches As MatchCollection
Dim xMatch As Match
Dim xText As String
Dim xReplace As String
On Error Resume Next
Application.ScreenUpdating = False
xText = Me.TextBox1.Text
xText = Replace(xText, "%", "")
With xReg
.Global = True
.Pattern = "([^0-9]+\d+)|(\d{1,})"
Set xMatches = .Execute(xText)
For Each xMatch In xMatches
xReplace = xReplace & xMatch.Value & "%"
Next
End With
xText = xReplace & Mid(xText, Len(xReplace) - xMatches.Count + 1)
Me.TextBox1.Text = xText
Application.ScreenUpdating = True
End Sub
Note: Wijzig TextBox1 in de tekstvaknaam op basis van uw behoefte.
4. klikken Tools > Referenties. Controleer dan het Microsoft VBScript reguliere expressies box aan de Referenties - VBAProject dialoogvenster en klik op het OK knop. Zie screenshot:
5. druk de anders + Q toetsen om het Microsoft Visual Basic voor toepassingen venster.
6. Als het terugkeert naar het werkblad, klik dan op Ontwikkelaar > Ontwerpmodus nogmaals om de ontwerpmodus uit te schakelen.
Vanaf nu, wanneer u cijfers invoert in het tekstvak en de cursor uit het tekstvak schuift om op een cel te klikken, worden deze cijfers automatisch als percentage opgemaakt.
Gerelateerde artikelen:
- Hoe een tekstvak als valuta in Excel opmaken?
- Hoe automatisch tekst van een tekstvak selecteren wanneer deze is geselecteerd in Excel?
- Hoe een tekstvak automatisch aanvullen tijdens het typen 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?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor 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-tabblad 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!