Question

我一直在广泛寻找答案，但似乎没有人对我有答案。

我希望我的代码做的很简单 - 我想从用户选择的一部分单元格中删除背景颜色。当用户按下按钮时会触发此操作。

我的代码是：

＆＃13;

Private Sub clrhi_Click()
    Dim rng As Range
    Set rng = Application.InputBox("Select a range from which you wish to remove the highlight", "Select a Range", Type:=8)
    Range(rng.Address).Interior.ColorIndex = 0
End Sub

＆＃13;

当我运行它时，它会在End Sub正上方的最后一行遇到错误（运行时错误＆＃39; 1004＆＃39;：应用程序定义或对象定义错误）。

我也尝试过：

＆＃13;

Private Sub clrhi_Click()
    Dim rng As Range
    Set rng = Application.InputBox("Select a range from which you wish to remove the highlight", "Select a Range", Type:=8)
    rng.Interior.ColorIndex = 0
End Sub

＆＃13;

并在同一个地方获得相同的错误。

我尝试的最后一点是：

＆＃13;

Private Sub clrhi_Click()
    Dim rng As Range
    Set rng = Application.InputBox("Select a range from which you wish to remove the highlight", "Select a Range", Type:=8)
    Range(rng).Interior.ColorIndex = 0
End Sub

＆＃13;

我得到了一个不同的错误（方法＆＃39;范围＆＃39;对象＆＃39; _Worksheet＆＃39;失败）。

任何人都可以帮我解决这个问题吗？非常感谢。

Excel中的VBA：使用范围获取错误

0 个答案: