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

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир 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
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4481
Репутация: 906 ±
Замечаний: 0% ±

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

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

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


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

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

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

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

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


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

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

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