Как да разрешите въвеждането само на числа в текстовото поле?
В Excel можем да приложим функцията за проверка на данните, за да позволим само на числа да се въвеждат в клетки, но понякога искам само числа да се въвеждат в текстово поле, както и в клетки. Как да приемам само числа в текстово поле в Excel?
Разделете диапазон от клетки на число с функцията Paste Special
Разделете диапазон от клетки на число с функцията Paste Special
Следният VBA код може да ви помогне да въведете числа, точка (.) и отрицателен знак само в текстово поле, моля, направете следното:
1. Създайте текстово поле, като щракнете Софтуерен Инженер > Поставете > Текстово поле (ActiveX Control)и след това нарисувайте текстово поле, както ви е необходимо, вижте екранната снимка:
2. След това щракнете с десния бутон върху текстовото поле и изберете Преглед на кода от контекстното меню, за да отворите Microsoft Visual Basic за приложения прозорец и след това заменете оригиналния код със следния VBA код в празния модул:
VBA код: Позволете само числа да се въвеждат в текстовото поле:
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. След това запазете и затворете прозореца с код и излезте от Режим на проектиране, сега само числа, символ за точка и отрицателен знак могат да бъдат въведени в текстовото поле, вижте екранната снимка:
Още по темата:
Как да приложа проверка на правописа в текстовото поле?
Как да променя цвета на текстовото поле въз основа на стойност в Excel?
Как да вмъкна картина в текстово поле?
Как да задам стойност по подразбиране в текстово поле?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!