vba - 除非激活工作表，否则格式化不起作用

Question

下面的代码可以正常工作，但是如果我注释掉该Worksheets(Options).Activate行，我会收到运行时错误 1004。有人知道这是为什么吗？

        Worksheets(Options).Activate
        Worksheets(Options).Range(Cells(OptCurrentRow, 1), Cells(OptCurrentRow, OptEndCol)).Font.Bold = True
        Worksheets(Options).Range(Cells(OptCurrentRow, 1), Cells(OptCurrentRow, OptEndCol)).Interior.Color = LongColor

Answer 1

我猜想为了使用工作表的范围对象，范围需要在活动工作表上。以下代码引用单元格，无论哪个工作表处于活动状态，都应该工作，同时保留原始帖子中的其他变量。

    Dim iColumnCounter As Integer

    For iColumnCounter = 1 To OptEndCol
        With Worksheets(options).Cells(OptCurrentRow, iColumnCounter)
            .Font.Bold = True
            .Interior.Color = LongColor
        End With
    Next iColumnCounter