Hoe kan ik toestaan dat alleen cijfers worden ingevoerd in een tekstvak?
In Excel kunnen we de functie Gegevensvalidatie toepassen om alleen getallen in cellen in te voeren, maar soms wil ik dat alleen getallen zowel in een tekstvak als in cellen worden getypt. Hoe accepteer je alleen cijfers in een tekstvak in Excel?
Verdeel een celbereik door een getal met de functie Plakken speciaal
Verdeel een celbereik door een getal met de functie Plakken speciaal
De volgende VBA-code kan u helpen om cijfers, punt (.) En een minteken alleen in een tekstvak in te voeren, doe dit als volgt:
1. Maak een tekstvak door op te klikken Ontwikkelaar > Invoegen > Tekstvak (ActiveX-besturingselement), en teken vervolgens een tekstvak zoals je nodig hebt, zie screenshot:
2. Klik vervolgens met de rechtermuisknop op het tekstvak en selecteer Bekijk code vanuit het contextmenu om het Microsoft Visual Basic voor toepassingen venster en vervang vervolgens de originele code door de volgende VBA-code in de lege module:
VBA-code: laat alleen cijfers toe om in het tekstvak in te voeren:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii > Asc("9") Or KeyAscii < Asc("0") Then
If KeyAscii = Asc("-") Then
If InStr(1, Me.TextBox1.Text, "-") > 0 Or _
Me.TextBox1.SelStart > 0 Then KeyAscii = 0
ElseIf KeyAscii = Asc(".") Then
If InStr(1, Me.TextBox1.Text, ".") > 0 Then KeyAscii = 0
Else
KeyAscii = 0
End If
End If
End Sub
3. Sla vervolgens het codevenster op en sluit het, en sluit het Ontwerpmodusnu kunnen alleen cijfers, puntsymbool en minteken worden ingevoerd in het tekstvak, zie screenshot:
Gerelateerde artikelen:
Hoe de spellingcontrole in het tekstvak toe te passen?
Hoe verander je de tekstvakkleur op basis van waarde in Excel?
Hoe een afbeelding in een tekstvak invoegen?
Hoe stel ik een standaardwaarde in een tekstvak in?
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!
