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

Вход

Регистрация

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

 

= Мир MS Excel/Проверка ячеек на пустоту и текст - Мир MS Excel

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

Excel 2013
Здравствуйте! Надо организовать проверку ячеек на содержание нуля или пустоту. Если ячейка пустая или содержит 0,то выводить сообщение.
Делаю так:
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As Long, ch As Long, i As Long, del As String
On Error GoTo Message
ch = Target.Value
'продолжение тела программы
Exit Sub
Message:
MsgBox "Введите число!", vbOKOnly + vbExclamation, "Ошибка!"
End Sub
[/vba]
Но дело в том,что если я ввожу в любую ячейку число,то оно мне тоже выбивает ошибку,хотя нужно так: если ячейка хоть одна заполнена,то сообщение не выводим,а если все пустые,то выводим. Если введен текст вместо числа,то выводим сообщение. Подскажите,пожалуйста,кто что может.


Сообщение отредактировал Zvuk - Суббота, 17.06.2017, 16:57
 
Ответить
СообщениеЗдравствуйте! Надо организовать проверку ячеек на содержание нуля или пустоту. Если ячейка пустая или содержит 0,то выводить сообщение.
Делаю так:
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As Long, ch As Long, i As Long, del As String
On Error GoTo Message
ch = Target.Value
'продолжение тела программы
Exit Sub
Message:
MsgBox "Введите число!", vbOKOnly + vbExclamation, "Ошибка!"
End Sub
[/vba]
Но дело в том,что если я ввожу в любую ячейку число,то оно мне тоже выбивает ошибку,хотя нужно так: если ячейка хоть одна заполнена,то сообщение не выводим,а если все пустые,то выводим. Если введен текст вместо числа,то выводим сообщение. Подскажите,пожалуйста,кто что может.

Автор - Zvuk
Дата добавления - 17.06.2017 в 16:56
RAN Дата: Суббота, 17.06.2017, 17:06 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Замените
'продолжение тела программы

на
Если ячейка пустая или содержит 0,то выводить сообщение

И все заработает


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеЗамените
'продолжение тела программы

на
Если ячейка пустая или содержит 0,то выводить сообщение

И все заработает

Автор - RAN
Дата добавления - 17.06.2017 в 17:06
KuklP Дата: Суббота, 17.06.2017, 21:51 | Сообщение № 3
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Ну да.. Андрейка в принципе молодецище. Уже и не предложу specialcells :(
Спасибо, Андрюш.


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеНу да.. Андрейка в принципе молодецище. Уже и не предложу specialcells :(
Спасибо, Андрюш.

Автор - KuklP
Дата добавления - 17.06.2017 в 21:51
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Проверка ячеек на пустоту и текст (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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