Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Выполнения макроса при активной ячейке при условии - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Выполнения макроса при активной ячейке при условии
Gopronotmore Дата: Пятница, 12.10.2018, 09:04 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 236
Репутация: 3 ±
Замечаний: 0% ±

Excel 2007
Коллеги, пропробую описать, что хочу получить

При активной ячейки результат, если условие в желтой ячейке пусто, то выдать MsgBox("заполните условие"), если ячейка желтая не пустая то при нажати на красную ячейку вывести MsgBox("выполнение макроса")
К сообщению приложен файл: Task_1.xlsm (13.7 Kb)
 
Ответить
СообщениеКоллеги, пропробую описать, что хочу получить

При активной ячейки результат, если условие в желтой ячейке пусто, то выдать MsgBox("заполните условие"), если ячейка желтая не пустая то при нажати на красную ячейку вывести MsgBox("выполнение макроса")

Автор - Gopronotmore
Дата добавления - 12.10.2018 в 09:04
Pelena Дата: Пятница, 12.10.2018, 09:24 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19405
Репутация: 4555 ±
Замечаний: ±

Excel 365 & Mac Excel
при нажати на красную ячейку
если имеется в виду выделение, то нужно другое событие
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$H$2" Then
        If IsEmpty(Range("$D$2")) Then
            MsgBox ("заполните условие")
        Else
            MsgBox ("выполнение макроса")
        End If
    End If
End Sub
[/vba]


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение
при нажати на красную ячейку
если имеется в виду выделение, то нужно другое событие
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$H$2" Then
        If IsEmpty(Range("$D$2")) Then
            MsgBox ("заполните условие")
        Else
            MsgBox ("выполнение макроса")
        End If
    End If
End Sub
[/vba]

Автор - Pelena
Дата добавления - 12.10.2018 в 09:24
Gopronotmore Дата: Пятница, 12.10.2018, 09:28 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 236
Репутация: 3 ±
Замечаний: 0% ±

Excel 2007
Pelena, большое спасибо, разобрался, использовал не то событие
 
Ответить
СообщениеPelena, большое спасибо, разобрался, использовал не то событие

Автор - Gopronotmore
Дата добавления - 12.10.2018 в 09:28
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!