Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как повторять код, пока все значения не будут удовлетворять условиям
 
#1
21.03.2018 13:56:26
Форумчане привет.
Есть задачка - не дать закрыть файл пока все нужные поля не заполнены.

Код написан, но не дает закрыть файл только один раз, после - пожалкйста, закрывай.
Нужно сделать так, чтобы не дать это сделать, пока не выполнено условие.
Код
<Private Sub workbook_BeforeClose (Cancel As Boolean)
If sheets ("Ромашка").Range ("диаозон ячеек").Value = "" Then
Cancel=true
MsgBox "Бла бла бла "
Else
ActiveWorkBook.Close SaveChanges:=true
End if
End sub>

Читал про [I]Do while/Loop,/I], но не удается написать с ним.

Прошу помощи
Заранее спасибо, с уважением Артем

PS
Я страшный Нуб в ВБА, напишите для дурачка
Изменено: Powerline - 21.03.2018 15:15:33
 
 
 
#2
21.03.2018 14:01:52
Да вроде нормально, если все описки скорректировать.
Другое дело что этот код контролирует только одну ячейку...
 
 
 
#3
21.03.2018 14:03:38
У меня прописано отдельно для всех ячеек, я тут для примера написал, но вот заставить его работать постоянно я не могу....( т.е при первом закрытии он срабатывает, говорит " не заполнены ячейки", пробуешь закрыть еще раз и все получается((
 
 
 
#4
21.03.2018 14:26:13
Цитата
P0werline написал:
Я страшный Нуб в ВБА
Поэтому скопируйте-вставьте код полностью, а не абы как ("End sup").
 
 
 
#5
21.03.2018 14:38:45
Цитата
Казанский написал:
Поэтому скопируйте-вставьте код полностью, а не абы как ("End sup").
Просто опечатка, прошу не придираться...)
Лучше помогите реализовать Do while....
 
 
 
#6
22.03.2018 16:34:38
UP!
Ребята помогите пожалуйста....
Не получается реализовать КОД, что бы срабатывал постоянно при закрытии, срабатывает 1 раз(

Через "Do while loop" получается вечный цикл....(
 
 
 
#7
22.03.2018 16:47:28
Зачем там Do Loop? в коде объекта ЭтаКнига вот такая процедура:
Код
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Worksheets("Лист1").Range("A1") = "" Then
    Cancel = True
    End If
End Sub
успешно противостоит попыткам закрыть файл без заполнения ячейки А1 на листе с именем "Лист1".
Кому решение нужно - тот пример и рисует.
 
 
 
#8
22.03.2018 16:52:19
Цитата
Пытливый написал:
успешно противостоит попыткам закрыть файл без заполнения ячейки А1 на листе с именем "Лист1".
Попробовал. Он противостоит только один раз, если еще раз нажать крестик - выходит...
 
 
 
#9
22.03.2018 16:54:11
Да ладно! А ну-ка попробуйте на файле.
Кому решение нужно - тот пример и рисует.
 
 
 
#10
22.03.2018 17:09:28
Цитата
Пытливый написал:
Да ладно! А ну-ка попробуйте на файле.
Парадокс! на одном компе стоит Эксель 2010 - ваш код работает, а на компьютере, где я пишу код стоит Эксель 2016 - код срабатывает 1 раз....
 
 
 
#11
22.03.2018 17:10:33
Хм... у меня 2010, что там за глюк в 2016 - не знаю, увы. :(
Кому решение нужно - тот пример и рисует.
 
 
 
Страницы: 1
Наверх