除非激活表格，否則格式化不起作用

下面的代碼工作正常，但是如果我註釋掉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

來源

2013-07-24 lebout

我猜測，爲了使用範圍對象的工作表範圍需要在活動工作表上。以下代碼引用了單元格，無論哪個工作表處於活動狀態，都應該工作，並保留其原始帖子中的其他變量。

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

來源

2013-08-16 20:25:08

除非激活表格，否則格式化不起作用

回答

相關問題