Как заставить фигуру мигать повторяющимися интервалами в Excel?

Если вы хотите, чтобы фигура непрерывно мигала на листе, эта статья покажет вам, как это сделать.

Заставить фигуру мигать повторяющимися интервалами с помощью кода VBA

Заставить фигуру мигать повторяющимися интервалами с помощью кода VBA

На листе для создания эффекта мигающей фигуры выполните следующие действия.

1. Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. В окне Microsoft Visual Basic for Applications нажмите Вставить > Модуль. Затем скопируйте и вставьте код VBA в окно Кода.

Код VBA: заставить фигуру мигать повторяющимися интервалами на листе

Dim NextTime As Date
Dim xColor As Long
Sub Flash()
    NextTime = Now + TimeValue("00:00:01")
    With ActiveSheet.Shapes("new").Fill.ForeColor
        If xColor = 0 Then
            xColor = .SchemeColor
        End If
         .SchemeColor = Int(Rnd() * 55 + 1)
    End With
    Application.OnTime NextTime, "Flash"
End Sub

Sub StopIt()
    Application.OnTime NextTime, "Flash", schedule:=False
    ActiveSheet.Shapes("new").Fill.ForeColor.SchemeColor = xColor
    xColor = 0
End Sub

Примечания:

3. Нажмите клавиши Alt + Q вместе, чтобы выйти из окна Microsoft Visual Basic for Applications.

4. Вставьте кнопку на лист, нажав Разработчик > Вставить > Кнопка (Элемент управления формы), как показано на скриншоте ниже.

5. В появившемся диалоговом окне Назначить макрос выберите Flash в поле Имя макроса, а затем нажмите кнопку ОК.

6. Затем измените текст на кнопке по вашему усмотрению. В данном случае я меняю текст на Начать мигание, как показано на скриншоте ниже.

7. Повторите вышеуказанные шаги 4 и 5, чтобы вставить новую кнопку и назначить макрос StopIt этой кнопке.

8. Измените текст на этой новой кнопке.

Теперь вы можете видеть, что две кнопки с разными назначенными макросами вставлены в лист. Смотрите скриншот:

С этого момента при нажатии на кнопку Начать мигание фигура начинает мигать разными цветами. Если вы хотите остановить мигание, пожалуйста, нажмите кнопку Остановить мигание.

Связанная статья:

• Как заставить или мигать текст указанной ячейки в Excel?