0

我有这个简单的 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 中给我任何兼容性问题。但是，这似乎不起作用。

4

2 回答 2

1

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

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

于 2013-10-28T14:23:28.423 回答
1

If your worksheet is not protected then try this

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
于 2013-10-28T15:39:10.433 回答