Доброго дня, уважаемые!
"Полупридумал" код (здесь нашел и доработал под свои нужды))), дающий эффект нажатия кнопки (мигание). Но в таком виде мигают все кнопки на листе.
Как бы так дописать/изменить код, чтобы мигала только та кнопка, на которую нажимаю (т.е. чтобы макрос понимал, на какую кнопку нажимаю и на ней срабатывал)?
Данный макрос "ВСЕ_КНОПКИ" добавляю в начало кодов, которые срабатывают по нажатию.
"Полупридумал" код (здесь нашел и доработал под свои нужды))), дающий эффект нажатия кнопки (мигание). Но в таком виде мигают все кнопки на листе.
Как бы так дописать/изменить код, чтобы мигала только та кнопка, на которую нажимаю (т.е. чтобы макрос понимал, на какую кнопку нажимаю и на ней срабатывал)?
| Код |
|---|
Sub ВСЕ_КНОПКИ()
With Selection.Parent
.DrawingObjects.Interior.Color = Sheets("Задачи").Range("AM1").Interior.Color
Start = Timer
Do While Timer < Start + 0.1 ' пауза в секундах
DoEvents
Loop
.DrawingObjects.Interior.Color = Sheets("Задачи").Range("AJ1").Interior.Color
End With
End Sub
|
