Как разрешить ввод только чисел в текстовое поле?
В Excel можно использовать проверку данных, чтобы разрешить ввод только чисел в ячейки. Но что делать, если нужно ограничить ввод только числами не в ячейке, а в текстовом поле? Как настроить текстовое поле в Excel так, чтобы в него можно было вводить исключительно числа?
Разделите диапазон ячеек на число с помощью функции Вставить специально
Разделите диапазон ячеек на число с помощью функции Вставить специально
Следующий код VBA позволяет вводить в текстовое поле только цифры, точку (.) и знак минус. Выполните следующие действия:
1.Создайте текстовое поле: щёлкните Разработчик > Вставить > Текстовое поле (элемент управления ActiveX), а затем нарисуйте его в нужном месте (см. снимок экрана):
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?
Как вставить изображение в текстовое поле?
Как установить значение по умолчанию в текстовом поле?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек