Hvordan tillader man kun at indtaste tal i tekstfeltet?
I Excel kan vi anvende datavalideringsfunktionen for kun at tillade tal at blive indtastet i celler, men nogle gange vil jeg kun have numre, der skal indtastes i en tekstboks såvel som i celler. Hvordan accepteres kun tal i en tekstboks i Excel?
Del en række celler med et tal med funktionen Indsæt speciel
Del en række celler med et tal med funktionen Indsæt speciel
Følgende VBA-kode kan kun hjælpe dig med at indtaste tal, punktum (.) Og et negativt tegn i en tekstboks.
1. Opret en tekstboks ved at klikke på Udvikler > indsatte > Tekstboks (ActiveX-kontrol), og tegn derefter en tekstboks efter behov, se skærmbillede:
2. Højreklik derefter på tekstboksen, og vælg Vis kode fra genvejsmenuen for at åbne Microsoft Visual Basic til applikationer vindue, og udskift derefter den originale kode med følgende VBA-kode i det tomme modul:
VBA-kode: Tillad kun at indtaste tal i tekstboksen:
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. Gem og luk derefter kodevinduet, og afslut Design Mode, nu kan kun tal, periodesymbol og negativt tegn indtastes i tekstboksen, se skærmbillede:
Relaterede artikler:
Hvordan anvender stavekontrol i tekstfelt?
Hvordan ændres tekstboksfarve baseret på værdi i Excel?
Hvordan indsættes billede i tekstfeltet?
Hvordan indstilles en standardværdi i en tekstboks?
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!