在工作簿中的多個工作表上運行VBA代碼

Question

我使用以下代碼，該代碼利用“上周應用程序”工作表進行數據收集，並更新同一工作表中的計數。

我已經創建了一個按鈕，並且我試圖通過該按鈕運行此代碼。

在執行時，我得到錯誤提示為“需要對象”

[W5] = wf.CountIf(.Range("I:I"), "Trophy")

我的代碼：

Sub Prevcount()

 Sheets("Previous Week apps")

 With ActiveWorkbook.Worksheets("Previous week apps")
  [W5] = wf.CountIf(.Range("I:I"), "Trophy")
End With

With ActiveWorkbook.Worksheets("Previous week apps")
[W7] = wf.CountIfs(.Range("I:I"), "Trophy", .Range("E:E"), "COMPATIBLE")
End With

With ActiveWorkbook.Worksheets("Previous week apps")
[W9] = wf.CountIfs(.Range("I:I"), "Trophy", .Range("F:F"), "COMPATIBLE")
End With

With ActiveWorkbook.Worksheets("Previous week apps")
[W11] = wf.CountIfs(.Range("I:I"), "Trophy", .Range("Q:Q"), "UG")
End With

End With
End Sub

Answer 1

嘗試使用簡短版本（將ActiveWorkbook替換為ThisWorkbook ，在其中放置代碼）：

Sub Prevcount()

With ThisWorkbook.Worksheets("Previous week apps")
  .Range("W5").Value = WorksheetFunction.CountIf(.Range("I:I"), "Trophy")
  .Range("W7").Value = WorksheetFunction.CountIfs(.Range("I:I"), "Trophy", .Range("E:E"), "COMPATIBLE")
  .Range("W9").Value = WorksheetFunction.CountIfs(.Range("I:I"), "Trophy", .Range("F:F"), "COMPATIBLE")
  .Range("W11").Value = WorksheetFunction.CountIfs(.Range("I:I"), "Trophy", .Range("Q:Q"), "UG")
End With

End Sub