Перейти к содержимому

- - - - -

Необходимость заполнить ячейки перед сохранением


  • Авторизуйтесь для ответа в теме
Сообщений в теме: 2

#1
Гость_4epTeHoK

Гость_4epTeHoK
  • благодарностей

Ребята, всем доброго утра.

Прошу прощения за подобный вопрос в столь раннее время, да ещё и в выходной день)))

В общем мне требуется помощь в написании кода макроса, который делал бы проверку на заполненность определенных ячеек (в моем случае это D11, D12, D14) перед закрытием файла и если в них нет данных, то выпадало бы сообщение типа "Не все необходимые ячейки заполнены".

 

Файл прилагается. Спаксибо

Прикрепленные файлы



#2
Thomas

Thomas

    Excel Pro

  • 61 сообщений
  • 10 благодарностей
12
  • Город:Москва
  • Office:2003, 2010, 2013, Online

Гость_4epTeHoK, да тут всё в принципе банально и просто :)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    For Each c In [D11,D12,D14]
        If Len(c) = 0 Then MsgBox "Не все необходимые ячейки заполнены!", vbExclamation: Cancel = True: Exit Sub
    Next
End Sub

Прикрепленные файлы


Господа! Регистрируйтесь и задавайте свои вопросы, связанные с Microsoft Office. Поможем, чем сможем ;)


#3
Гость_4epTeHoK

Гость_4epTeHoK
    Автор темы
  • благодарностей

 

Гость_4epTeHoK, да тут всё в принципе банально и просто :)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    For Each c In [D11,D12,D14]
        If Len(c) = 0 Then MsgBox "Не все необходимые ячейки заполнены!", vbExclamation: Cancel = True: Exit Sub
    Next
End Sub

 

Спасибо большое, прям то, что нужно было))) всё работает






Количество пользователей, читающих эту тему: 0

0 пользователей, 0 гостей, 0 анонимных