Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.01.2022, 12:02   #1
DMITRIY_78
Форумчанин
 
Регистрация: 11.12.2018
Сообщений: 202
По умолчанию проверка полей на пустоту

Ребята подскажите не получается проверить Select Case в чем ошибка, доходит проверку до заполненного поля и останавливается
Код:
Select Case ""
Case TextBox1: ActiveCell = Replace(ActiveCell, "Район", "") 'район
Case TextBox2: ActiveCell = Replace(ActiveCell, "Город:", "") 'город
Case TextBox3: ActiveCell = Replace(ActiveCell, "Село:", "") 'улица
Case TextBox4: ActiveCell = Replace(ActiveCell, "Улица:", "") 'село
Case TextBox5: ActiveCell = Replace(ActiveCell, "Дом:", "") 'дом
Case TextBox6: ActiveCell = Replace(ActiveCell, "Корпус:", "") 'корпус
Case TextBox7: ActiveCell = Replace(ActiveCell, "Квартира", "") 'квартира
End Select
Что нас не убивает, то делает нас сильными!
Всё гениальное просто, всё простое гениально!
DMITRIY_78 вне форума Ответить с цитированием
Старый 17.01.2022, 12:12   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

условиями для Case должны быть const, в ТВ1-7 же могут быть изменяемые значения
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 17.01.2022, 13:32   #3
DMITRIY_78
Форумчанин
 
Регистрация: 11.12.2018
Сообщений: 202
По умолчанию

Aleksandr H., первый раз с константой, покажите на данном примере, буду благодарен
Что нас не убивает, то делает нас сильными!
Всё гениальное просто, всё простое гениально!
DMITRIY_78 вне форума Ответить с цитированием
Старый 17.01.2022, 13:45   #4
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

в чем идея данного примера?
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 17.01.2022, 13:47   #5
DMITRIY_78
Форумчанин
 
Регистрация: 11.12.2018
Сообщений: 202
По умолчанию

проверить текстовые поля если в них "пусто" то заменять найденное слово на пусто в активной ячейки
Код:
 Replace(ActiveCell, "Район", "")
Что нас не убивает, то делает нас сильными!
Всё гениальное просто, всё простое гениально!
DMITRIY_78 вне форума Ответить с цитированием
Старый 17.01.2022, 13:57   #6
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

если в ТВ1 пусто, тогда в выделенной ячейке заменить удалить слово "Район" ?
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 17.01.2022, 13:58   #7
DMITRIY_78
Форумчанин
 
Регистрация: 11.12.2018
Сообщений: 202
По умолчанию

Цитата:
Сообщение от Aleksandr H. Посмотреть сообщение
заменить удалить
удалить слово
Что нас не убивает, то делает нас сильными!
Всё гениальное просто, всё простое гениально!
DMITRIY_78 вне форума Ответить с цитированием
Старый 17.01.2022, 14:29   #8
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Зачем case здесь? пишите просто
Код:
If TextBox1 = "" then ActiveCell = Replace(ActiveCell, "Район", "")
....
If TextBox7 = "" then ActiveCell = Replace(ActiveCell, "Квартира", "")
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 17.01.2022, 15:01   #9
DMITRIY_78
Форумчанин
 
Регистрация: 11.12.2018
Сообщений: 202
По умолчанию

Aleksandr H., Спасибо
Что нас не убивает, то делает нас сильными!
Всё гениальное просто, всё простое гениально!
DMITRIY_78 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проверка TWebBrowser на пустоту Shouldercannon Общие вопросы Delphi 10 26.07.2015 23:18
Delphi БД - MS Access Убрать пустоту из полей DBgrid romantik1993 БД в Delphi 3 26.03.2015 20:59
Проверка строки на пустоту Стремящийся JavaScript, Ajax 2 12.05.2012 12:10
Проверка RichViewEdit на пустоту Shouldercannon Общие вопросы Delphi 2 22.05.2010 02:58
проверка файла на пустоту vitaliy1911 Общие вопросы Delphi 7 19.05.2010 22:16