Вызов формы для закрашивагия ячейки по условию

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вызов формы для закрашивагия ячейки по условию (Макросы/Sub)

Valeriy89

Дата: Пятница, 06.11.2015, 19:42 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

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

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

Excel 2010

Доброго времени суток!

Вникаю в вопросы VBA, решаю следующую задачу: имеется диапозон ячеек А1:L100, в нем есть пустые ячейки, есть ячейки с различными записями (текст в основном).
Хочу сделать следующее: при нажатии на ячейку (просто выделением, а лучше даблкликом), содержащую в себе текст открывается форма с кнопками да (окрасить), нет(закрыть форму), при нажатии на пустую ячейку ничего не происходит.

Перелопатил кучу ресурсов, но проблематично для меня свести в один код все нужные условия.

Ответить

RAN

Дата: Пятница, 06.11.2015, 20:06 | Сообщение № 2

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

[vba]

Код

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Len(Target) Then
        Cancel = True
        If MsgBox("Красить бум?", vbQuestion + vbYesNo) = vbNo Then Exit Sub
        Target.Interior.Color = vbRed
    End If
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

Wasilich

Дата: Суббота, 07.11.2015, 11:49 | Сообщение № 3

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

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

Сообщений: 1232

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

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

2003

Я добавил снятие заливки. Предвижу.

[vba]

Код

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Len(Target) Then
        Cancel = True
        If MsgBox("Красить бум?", vbQuestion + vbYesNo) = vbNo Then Target.Interior.ColorIndex = xlNone: Exit Sub
        Target.Interior.Color = vbRed
    End If
End Sub

[/vba]

Сообщение отредактировал Wasilic - Суббота, 07.11.2015, 11:53

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вызов формы для закрашивагия ячейки по условию (Макросы/Sub)

Страница 1 из 1
1