проверка полей на пустоту - Microsoft Office Excel

DMITRIY_78 · 17.01.2022, 12:02

Ребята подскажите не получается проверить 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

Aleksandr H. · 17.01.2022, 12:12

условиями для Case должны быть const, в ТВ1-7 же могут быть изменяемые значения

DMITRIY_78 · 17.01.2022, 13:32

Aleksandr H., первый раз с константой, покажите на данном примере, буду благодарен

Aleksandr H. · 17.01.2022, 13:45

в чем идея данного примера?

DMITRIY_78 · 17.01.2022, 13:47

проверить текстовые поля если в них "пусто" то заменять найденное слово на пусто в активной ячейки

Код:

 Replace(ActiveCell, "Район", "")

Aleksandr H. · 17.01.2022, 13:57

если в ТВ1 пусто, тогда в выделенной ячейке заменить удалить слово "Район" ?

DMITRIY_78 · 17.01.2022, 13:58

Цитата:

Сообщение от Aleksandr H.

заменить удалить

удалить слово

Aleksandr H. · 17.01.2022, 14:29

Зачем case здесь? пишите просто

Код:

If TextBox1 = "" then ActiveCell = Replace(ActiveCell, "Район", "")
....
If TextBox7 = "" then ActiveCell = Replace(ActiveCell, "Квартира", "")

DMITRIY_78 · 17.01.2022, 15:01

Aleksandr H., Спасибо

17.01.2022, 12:12	#2
Aleksandr H. 2 the Nation Glory Старожил Регистрация: 27.05.2014 Сообщений: 3,289	условиями для Case должны быть const, в ТВ1-7 же могут быть изменяемые значения Кто умер, но не забыт, тот бессмертен. Лао-Цзы.

17.01.2022, 13:32	#3
DMITRIY_78 Форумчанин Регистрация: 11.12.2018 Сообщений: 202	Aleksandr H., первый раз с константой, покажите на данном примере, буду благодарен Что нас не убивает, то делает нас сильными! Всё гениальное просто, всё простое гениально!

17.01.2022, 13:45	#4
Aleksandr H. 2 the Nation Glory Старожил Регистрация: 27.05.2014 Сообщений: 3,289	в чем идея данного примера? Кто умер, но не забыт, тот бессмертен. Лао-Цзы.

17.01.2022, 13:47	#5
DMITRIY_78 Форумчанин Регистрация: 11.12.2018 Сообщений: 202	проверить текстовые поля если в них "пусто" то заменять найденное слово на пусто в активной ячейки Код: `Replace(ActiveCell, "Район", "")` Что нас не убивает, то делает нас сильными! Всё гениальное просто, всё простое гениально!

17.01.2022, 13:57	#6
Aleksandr H. 2 the Nation Glory Старожил Регистрация: 27.05.2014 Сообщений: 3,289	если в ТВ1 пусто, тогда в выделенной ячейке заменить удалить слово "Район" ? Кто умер, но не забыт, тот бессмертен. Лао-Цзы.

17.01.2022, 14:29	#8
Aleksandr H. 2 the Nation Glory Старожил Регистрация: 27.05.2014 Сообщений: 3,289	Зачем case здесь? пишите просто Код: `If TextBox1 = "" then ActiveCell = Replace(ActiveCell, "Район", "") .... If TextBox7 = "" then ActiveCell = Replace(ActiveCell, "Квартира", "")` Кто умер, но не забыт, тот бессмертен. Лао-Цзы.

17.01.2022, 15:01	#9
DMITRIY_78 Форумчанин Регистрация: 11.12.2018 Сообщений: 202	Aleksandr H., Спасибо Что нас не убивает, то делает нас сильными! Всё гениальное просто, всё простое гениально!

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Проверка 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