Проверка вводимых значений

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Проверка вводимых значений (Макросы/Sub)

nyaf_nyaf

Дата: Пятница, 27.03.2020, 12:34 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019

Добрый день, помогите пожалуйста, мне нужно, чтобы была проверка ввода в числовые поля
Например, если я введу в числовую ячейку текст, то должно вывести ошибка и закрывает запись

К сообщению приложен файл: 4502355.xlsm (24.8 Kb)

Ответить

Shylo

Дата: Пятница, 27.03.2020, 18:02 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 171

Репутация: 7 ±

Замечаний: 0% ±

Excel-2007; 2016

Я использую такую конструкцию для TextBox :
[vba]

Код

' ввод только цифр TextBox4
Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub

[/vba]

Ответить

nyaf_nyaf

Дата: Пятница, 27.03.2020, 19:21 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019

Shylo, Спасибо, а можно сделать так, чтобы нельзя было записать текст в числовые ячейки

Сообщение отредактировал nyaf_nyaf - Пятница, 27.03.2020, 19:21

Ответить

Shylo

Дата: Пятница, 27.03.2020, 20:01 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 171

Репутация: 7 ±

Замечаний: 0% ±

Excel-2007; 2016

nyaf_nyaf, Для отдельной ячейки или диапазона: "ДАННЫЕ" - "ПРОВЕРКА ДАННЫХ" а там установить условия уже по усмотрению. Но при вводе через форму макрос уже запрещает ввод текстового контента.

Ответить

nyaf_nyaf

Дата: Суббота, 28.03.2020, 09:39 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019

Shylo, Спасибо думаю разберусь

Сообщение отредактировал nyaf_nyaf - Суббота, 28.03.2020, 10:29

Ответить

Shylo

Дата: Суббота, 28.03.2020, 13:51 | Сообщение № 6

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 171

Репутация: 7 ±

Замечаний: 0% ±

Excel-2007; 2016

nyaf_nyaf, Если необходимо запретить ввод текста на самом листе именно кодом, есть такая хитрость [vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
  For Each cl In Target.Cells
    If WorksheetFunction.IsText(cl) Then cl.ClearContents
  Next
End Sub

[/vba]
использует возможности функции ЕТЕКСТ()

Ответить

Проверка вводимых значений (Макросы/Sub)

Страница 1 из 1
1