Question

我有这个简单的VBA代码，我想用它来改变所选单元格的背景。不知怎的，命令选择。我之前学到的东西不起作用。你能用这个代码帮我吗？我知道答案可能很愚蠢，但我似乎无法弄明白。

    Sub set_background_color()

       'Add background color to selected cells
       Selection.Interior.Color = RGB(255, 0, 0)

    End Sub

由于

编辑：对于模糊的问题，很抱歉，这是我关于堆栈溢出的第一个问题，所以我没有想到错误类型的重要性。它给出了错误“编译错误：预期的功能或变量”。

它附加在一个按钮上，但即使我将它作为没有按钮的宏运行它也会给我带来同样的错误。

编辑2：我在Mac上运行Excel 2011，直到现在它从未在VBA中给我任何兼容性问题。然而，这似乎不起作用。

Answer 1

问题不在您的代码中，而是在您的单元格内。

检查单元格的锁定状态以及工作表的保护状态。

Answer 2

如果您的工作表未受保护，请尝试使用

Sub set_background_color()
    Dim r As Range

    On Error Resume Next
    Set r = Selection
    On Error GoTo 0

    If Not r Is Nothing Then
        r.Interior.ColorIndex = 3
    Else
        MsgBox "Invalid Selection"
    End If
End Sub

简单的VBA选择代码错误

2 个答案: