Всплывающее окно

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Всплывающее окно (Макросы/Sub)

Всплывающее окно

ZamoK

Дата: Среда, 29.10.2014, 13:14 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 268

Репутация: 4 ±

Замечаний: 0% ±

Excel 2003-2016

Добрый день!
Нужна помощь бывалого ).
Есть значит ячейка С9 и кнопочка "Печать". Все какбы работает, но счастья нет. Нужно бы добавить такую мульку При нажатии на кнопочку былобы не плохо свтавить проверку на заполненость ячейки С9 - если пусто то появилось окошко с грозной надписью "Ячейка не заполнена" и такой маленький вопросик - продолжить? и вот тут такой дельный пользователь сразу чувствует себя управляющим всех не земных процессов предстаёт перед глобальным выбором и двумя кнопками "ДА" и "НЕТ".

К сообщению приложен файл: _124.xls (29.5 Kb)

Я не Гуру, но стремлюсь!

Ответить

doober

Дата: Среда, 29.10.2014, 13:37 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 995

Репутация: 345 ±

Замечаний: 0% ±

Excel 2010

Чувствуйте себя управляющим :'(

К сообщению приложен файл: 7632257.xls (35.0 Kb)

Ответить

AndreTM

Дата: Среда, 29.10.2014, 13:38 | Сообщение № 3

Группа: Друзья

Ранг: Старожил

Сообщений: 1762

Репутация: 501 ±

Замечаний: 0% ±

2003 & 2010

[vba]

Код

Private Sub CommandButton1_Click()

      If IsEmpty(Worksheets("Лист1").Range("C9")) Then
          If MsgBox("Ячейка C9 не заполнена! Продолжить?", vbQuestion + vbYesNo) = vbNo Then Exit Sub
      End If

      ' Продолжаем
      Worksheets("Лист1").Range("A1:K28").PrintOut

End Sub

[/vba]

doober,

Цитата ZamoK, 29.10.2014 в 13:14, в сообщении № 1

При нажатии на кнопочку

Skype: andre.tm.007
Donate: Qiwi: 9517375010

Сообщение отредактировал AndreTM - Среда, 29.10.2014, 13:40

Ответить

ZamoK

Дата: Среда, 29.10.2014, 13:44 | Сообщение № 4

Группа: Проверенные

Ранг: Обитатель

Сообщений: 268

Репутация: 4 ±

Замечаний: 0% ±

Excel 2003-2016

doober,
Срабатывать то срабатывает, но без моего участия, какой-то не полноценный управляющий ))
AndreTM,
Все работает СПАСИБО AndreTM,

Я не Гуру, но стремлюсь!

Ответить

ZamoK

Дата: Среда, 29.10.2014, 13:54 | Сообщение № 5

Группа: Проверенные

Ранг: Обитатель

Сообщений: 268

Репутация: 4 ±

Замечаний: 0% ±

Excel 2003-2016

А можно ли добавить при нажатии на "НЕТ" вот это вот - Range("С9").Select , а уже потом Exit Sub
Ну или както по другому, выделить её как-то или подсветить

Я не Гуру, но стремлюсь!

Сообщение отредактировал ZamoK - Среда, 29.10.2014, 13:55

Ответить

ZamoK

Дата: Среда, 29.10.2014, 14:40 | Сообщение № 6

Группа: Проверенные

Ранг: Обитатель

Сообщений: 268

Репутация: 4 ±

Замечаний: 0% ±

Excel 2003-2016

Спасибо решил сам если кому надо то получилось так:
[vba]

Код

Private Sub CommandButton1_Click()

        If IsEmpty(Worksheets("Лист1").Range("C9")) Then
            If MsgBox("Ячейка C9 не заполнена! Продолжить?", vbQuestion + vbYesNo) = vbNo Then Range("C9").Select
            Exit Sub
        End If
           ' Продолжаем
       Worksheets("Лист1").Range("A1:K28").PrintOut ' Печать указаного фрагмента
End Sub

[/vba]

Я не Гуру, но стремлюсь!

Сообщение отредактировал ZamoK - Среда, 29.10.2014, 14:42

Ответить

AndreTM

Дата: Среда, 29.10.2014, 18:55 | Сообщение № 7

Группа: Друзья

Ранг: Старожил

Сообщений: 1762

Репутация: 501 ±

Замечаний: 0% ±

2003 & 2010

Неправильно решили

Пробовали при пустой (но невыбранной) C9 нажать "Да"?

Поэтому:
[vba]

Код

        If IsEmpty(Worksheets("Лист1").Range("C9")) Then
               Range("C9").Select
               If MsgBox("Ячейка C9 не заполнена! Продолжить?", vbQuestion + vbYesNo) = vbNo Then Exit Sub
           End If

[/vba]