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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 29.06.2017, 11:04   #1
Bezdar
Форумчанин
 
Регистрация: 03.06.2008
Сообщений: 213
По умолчанию перебор ячеек

Здравствуйте, уважаемые профи!
Никак не соображу, как выполнить перебор ячеек с поиском незаполненных.
Суть задачи такова (условно):
если в ячейке А1 стоит значение "1", проверить ячейки А2,А3,А6,А9,А12,А15
если в ячейке А1 стоит значение "2", проверить ячейки A4,А7,А8,А11,А19,A25
Буду признательна, если подскажете, vba владею в несовершенстве
Заранее благодарю.
Bezdar вне форума Ответить с цитированием
Старый 29.06.2017, 11:33   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

ну, допустим, проверили ячейки, а что надо сделать? что должно быть в результате?
и почему обязательно VBA - может быть, формулы будет достаточно?
Serge_Bliznykov вне форума Ответить с цитированием
Старый 29.06.2017, 12:05   #3
Bezdar
Форумчанин
 
Регистрация: 03.06.2008
Сообщений: 213
По умолчанию

есть пользовательская кнопка, по которой происходит проверка заполнения юзером определенных ячеек, адреса которых зависят от значения в ячейке А1
итог - заставить юзера заполнить ячейки, которые он умышленно или не со зла пропустил)
Bezdar вне форума Ответить с цитированием
Старый 29.06.2017, 12:38   #4
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

Код:
="не заполнено:  " & ЕПУСТО(A2)+ЕПУСТО(A3)+ЕПУСТО(A6)+ЕПУСТО(A9)+ЕПУСТО(A12)+ЕПУСТО(A15)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 29.06.2017, 13:20   #5
Bezdar
Форумчанин
 
Регистрация: 03.06.2008
Сообщений: 213
По умолчанию

Цитата:
Сообщение от IgorGO Посмотреть сообщение
Код:
="не заполнено:  " & ЕПУСТО(A2)+ЕПУСТО(A3)+ЕПУСТО(A6)+ЕПУСТО(A9)+ЕПУСТО(A12)+ЕПУСТО(A15)
после нахождения первой незаполненной ячейки макрос выдает сообщение "проморгал, заполняй" и прерывает выполнение процедуры, затем заново жамкается пользовательская кнопка, и так до момента заполнения юзером всех пропущенных ячеек.
плюсом здесь не отделаться, наверно

и да, я косноязычная, зато красивая
Bezdar вне форума Ответить с цитированием
Старый 29.06.2017, 14:05   #6
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Цитата:
Сообщение от Bezdar Посмотреть сообщение
и да, я косноязычная, зато красивая
пруф в студию
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 29.06.2017, 15:45   #7
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

см.вложение
Вложения
Тип файла: xlsx Проверить.xlsx (9.2 Кб, 11 просмотров)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 29.06.2017, 15:49   #8
AlexM12
Форумчанин
 
Аватар для AlexM12
 
Регистрация: 29.08.2012
Сообщений: 209
По умолчанию

В файле 5 ячеек. Excel позволит их заполнить только подряд.
Сначала первую, потом вторую и тд.
Если заполнить не по порядку, будет сообщение об ошибке.
Использован инструмент проверка данных
Вложения
Тип файла: xls Bezdar.xls (12.5 Кб, 18 просмотров)
Алексей М.
AlexM12 вне форума Ответить с цитированием
Старый 06.07.2017, 17:44   #9
Bezdar
Форумчанин
 
Регистрация: 03.06.2008
Сообщений: 213
По умолчанию

IgorGO,AlexM12,
спасибо за подсказку... но я ничего не поняла
Bezdar вне форума Ответить с цитированием
Старый 06.07.2017, 19:57   #10
AlexM12
Форумчанин
 
Аватар для AlexM12
 
Регистрация: 29.08.2012
Сообщений: 209
По умолчанию

В примере выделить диапазон B2:E2
Проверка данных - тип данных "другой" - формула
Код:
=A2<>""
На вкладке "Сообщение об ошибке" текст предупреждения.
Ок
Алексей М.
AlexM12 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программа перебора вариантов (изменить перебор цифровой на перебор буквенный) BArt2000 Паскаль, Turbo Pascal, PascalABC.NET 5 02.03.2015 12:56
Перебор ячеек prizrak1390 БД в Delphi 5 23.03.2013 10:56
Как реализовать перебор ячеек в диапазоне? a1bert Microsoft Office Excel 2 11.01.2012 22:14
Перебор ячеек столбца и формирование нового листа из уникальных записей Ad1r Microsoft Office Excel 3 06.05.2010 09:38
Таблицы в WORD. Перебор ячеек или поиск? sergeos Microsoft Office Word 7 09.06.2009 17:57