Hogyan lehet csak számokat bevinni a szövegmezőbe?
Az Excel alkalmazásában alkalmazhatjuk az Adatellenőrzés funkciót, hogy csak számokat adhassunk meg a cellákba, de néha azt akarom, hogy csak a szövegmezőbe és a cellákba is csak számokat írjanak be. Hogyan fogadhatunk csak el egy számot az Excel szövegdobozában?
Oszd el a cellatartományt egy számmal a Speciális beillesztés funkcióval
Oszd el a cellatartományt egy számmal a Speciális beillesztés funkcióval
A következő VBA-kód segíthet abban, hogy számokat, pontokat (.) És negatív jeleket csak egy szövegmezőbe írjon be, kérjük, tegye a következőket:
1. Kattintással hozzon létre egy szövegdobozt Fejlesztő > betétlap > Szövegdoboz (ActiveX-vezérlő), majd rajzoljon egy szövegdobozt szükség szerint, lásd a képernyőképet:
2. Ezután kattintson a jobb gombbal a szövegmezőre, és válassza a lehetőséget Kód megtekintése a helyi menüből a Microsoft Visual Basic for Applications ablakban, majd cserélje ki az eredeti kódot a következő VBA kóddal az üres modulba:
VBA kód: Csak számok bevitele a szövegmezőbe:
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. Ezután mentse el és zárja be a kódablakot, és lépjen ki a Tervezési mód, most csak számokat, periódusszimbólumot és negatív előjelet lehet beírni a szövegdobozba, lásd a képernyőképet:
Kapcsolódó cikkek:
Hogyan kell alkalmazni a helyesírás-ellenőrzést a szövegmezőben?
Hogyan lehet megváltoztatni a szövegdoboz színét az Excel értéke alapján?
Hogyan lehet képet beilleszteni a szövegmezőbe?
Hogyan állítsunk be alapértelmezett értéket a szövegmezőben?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!