Cum să permiteți introducerea numai numerelor în caseta de text?
În Excel, putem aplica funcția de validare a datelor pentru a permite introducerea numai a numerelor în celule, dar, uneori, vreau ca doar numerele să fie introduse într-o casetă text, precum și în celule. Cum să acceptați numai numere dintr-o casetă text în Excel?
Împărțiți o gamă de celule la un număr cu funcția Lipire specială
Împărțiți o gamă de celule la un număr cu funcția Lipire specială
Următorul cod VBA vă poate ajuta să introduceți numere, punct (.) Și un semn negativ numai într-o casetă text, vă rugăm să faceți acest lucru:
1. Creați o casetă text făcând clic pe Dezvoltator > Insera > Casetă text (control ActiveX), apoi desenează o casetă text după cum ai nevoie, vezi captura de ecran:
2. Apoi faceți clic dreapta pe caseta de text și selectați Afișați codul din meniul contextual pentru a deschide fișierul Microsoft Visual Basic pentru aplicații fereastră, apoi înlocuiți codul original cu următorul cod VBA în modulul gol:
Cod VBA: permiteți introducerea numai numerelor în caseta de text:
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. Apoi salvați și închideți fereastra de cod și ieșiți din Mod de proiectare, acum, numai numerele, simbolul punctului și semnul negativ pot fi introduse în caseta de text, consultați captura de ecran:
Legate de articole:
Cum se aplică verificarea ortografică în caseta de text?
Cum se schimbă culoarea casetei de text pe baza valorii din Excel?
Cum se introduce o imagine în caseta de text?
Cum se setează o valoare implicită într-o casetă text?
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!