如何在Excel中反複使形狀閃爍或閃爍？

如果要使形狀在工作表中反复閃爍，本文中的方法可以為您提供幫助。

用VBA代碼反复閃爍形狀

---

用VBA代碼反复閃爍形狀

在工作表中，要使形狀閃爍，請執行以下操作。

1。 按 其他 + 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。 按 其他 + Q 鍵一起退出 Microsoft Visual Basic for Applications 窗口。

4.通過單擊將一個按鈕插入工作表 開發人員 > 插入 > 按鈕（表單控件） 如下圖所示。

5.在彈出 分配宏 對話框中選擇 閃 在 宏名 框，然後單擊 OK 按鈕。

6.然後根據需要更改按鈕上的顯示文本。 在這種情況下，我將顯示文本更改為“開始閃爍”，如下圖所示。

7.重複上述步驟4和5，插入新按鈕並分配 停下來 此按鈕的宏。

8.更改此新按鈕的顯示文本。

然後，您會看到兩個分配了不同宏的按鈕被插入到工作表中。 看截圖：

從現在開始，單擊“開始閃爍”按鈕時，形狀開始以不同顏色閃爍。 如果要停止閃光，請單擊停止閃爍按鈕。

---

相關文章：

• 如何在Excel中閃爍或閃爍指定單元格的文本？