Question

第一次提出问题，如果它没有那么详细，那就道歉了。到目前为止，你们都非常有帮助我完成我的第一个VBA脚本，但是我无法找到解决这个问题的方法。所以这就是它！

我正在尝试在工作表上编写一个按钮，当我点击它时可以更改工作表2上特定单元格的格式。我正在尝试的具体代码如下：

If Cells(i, 6).Value <> "" And Cells(i, 5).Value <> "" Then
    Worksheets("Info").Range("F5").Interior.Color = RGB(255, 0, 0)
End If

这个if语句在For循环中，其中i是计数器。我收到错误1004，据我所知，它不会让我在另一张纸上选择任何内容。当我删除“工作表（”信息“）位时，代码在工作表1中正常工作，所以我90％确定它与尝试修改不同工作表中的单元格有关。

有什么想法吗？

Answer 1

如果要处理多个工作表，则需要识别要运行命令的工作表：

With Worksheets("YourFirstSheetName")
    If .Cells(i, 6).Value <> "" And .Cells(i, 5).Value <> "" Then
        Worksheets("Info").Range("F5").Interior.Color = RGB(255, 0, 0)
    End If
End With

注意“细胞”之前的点。它们意味着命令（Cells ...）将在名为“YourFirstSheetName”的工作表上执行。而是在名为“Info”

的工作表上执行另一个命令

更改不同工作表中单元格的格式

1 个答案: