Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Проверка вводимых значений - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Проверка вводимых значений (Макросы/Sub)
Проверка вводимых значений
nyaf_nyaf Дата: Пятница, 27.03.2020, 12:34 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Добрый день, помогите пожалуйста, мне нужно, чтобы была проверка ввода в числовые поля
Например, если я введу в числовую ячейку текст, то должно вывести ошибка и закрывает запись
К сообщению приложен файл: 4502355.xlsm (24.8 Kb)
 
Ответить
СообщениеДобрый день, помогите пожалуйста, мне нужно, чтобы была проверка ввода в числовые поля
Например, если я введу в числовую ячейку текст, то должно вывести ошибка и закрывает запись
Автор - nyaf_nyaf
Дата добавления - 27.03.2020 в 12:34
Shylo Дата: Пятница, 27.03.2020, 18:02 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 155
Репутация: 7 ±
Замечаний: 0% ±

Excel-2003; 2010
Я использую такую конструкцию для TextBox :
[vba]
Код
' ввод только цифр TextBox4
  Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
[/vba]
 
Ответить
СообщениеЯ использую такую конструкцию для TextBox :
[vba]
Код
' ввод только цифр TextBox4
  Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
[/vba]
Автор - Shylo
Дата добавления - 27.03.2020 в 18:02
nyaf_nyaf Дата: Пятница, 27.03.2020, 19:21 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

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


Сообщение отредактировал nyaf_nyaf - Пятница, 27.03.2020, 19:21
 
Ответить
СообщениеShylo, Спасибо, а можно сделать так, чтобы нельзя было записать текст в числовые ячейки
Автор - nyaf_nyaf
Дата добавления - 27.03.2020 в 19:21
Shylo Дата: Пятница, 27.03.2020, 20:01 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 155
Репутация: 7 ±
Замечаний: 0% ±

Excel-2003; 2010
nyaf_nyaf, Для отдельной ячейки или диапазона: "ДАННЫЕ" - "ПРОВЕРКА ДАННЫХ" а там установить условия уже по усмотрению. Но при вводе через форму макрос уже запрещает ввод текстового контента.
 
Ответить
Сообщениеnyaf_nyaf, Для отдельной ячейки или диапазона: "ДАННЫЕ" - "ПРОВЕРКА ДАННЫХ" а там установить условия уже по усмотрению. Но при вводе через форму макрос уже запрещает ввод текстового контента.
Автор - Shylo
Дата добавления - 27.03.2020 в 20:01
nyaf_nyaf Дата: Суббота, 28.03.2020, 09:39 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

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


Сообщение отредактировал nyaf_nyaf - Суббота, 28.03.2020, 10:29
 
Ответить
СообщениеShylo, Спасибо думаю разберусь
Автор - nyaf_nyaf
Дата добавления - 28.03.2020 в 09:39
Shylo Дата: Суббота, 28.03.2020, 13:51 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 155
Репутация: 7 ±
Замечаний: 0% ±

Excel-2003; 2010
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]
использует возможности функции ЕТЕКСТ()
 
Ответить
Сообщение 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]
использует возможности функции ЕТЕКСТ()
Автор - Shylo
Дата добавления - 28.03.2020 в 13:51
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Проверка вводимых значений (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!