根据当前背景颜色更改背景颜色

Question

只是玩vba，想看看我是否可以让屏幕闪烁，但有麻烦。

我现在收到一个对象错误。

Sub disco()

Dim col As Range
Cells.Select
Set col = Selection.Interior.ColorIndex

If col = 0 Then
        Selection.Interior.ColorIndex = 1
ElseIf col = 1 Then
        Selection.Interior.ColorIndex = 0
End If

Range("a1").Select
End Sub

Answer 1

尝试：

Sub disco()
    Dim col As Variant
    Cells.Select
    col = Selection.Interior.ColorIndex
    If col = -4142 Then
            Selection.Interior.ColorIndex = 1
    ElseIf col = 1 Then
            Selection.Interior.ColorIndex = -4142
    End If
    Range("a1").Select
End Sub

<强> 注意：

我们使用 col 作为 Variant ，我们不使用0