在其他工作表上創建列表 - 運行時錯誤9

Question

我使用以下代碼編輯從another post列出開始日期和結束日期之間的所有日期。該列表正在與包含開始日期和結束日期的單元格不同的工作表上創建。如果我打開sheet6，代碼就可以工作，但如果我打開sheet1，代碼就不會工作。我得到'運行時錯誤9：下標超出範圍'。調試突出顯示對sheet6的引用。我如何修改此代碼以使其工作而不管活動工作表？

Sub GenerateDates() 

Dim FirstDate As Date 
Dim LastDate As Date 
Dim NextDate As Date 

FirstDate = Sheet1.Range("CZ").Value 
LastDate = Sheet1.Range("DA").Value 

NextDate = FirstDate 
Worksheets("sheet6").Range("A1").Select 
Do Until NextDate > LastDate 

    ActiveCell.Value = NextDate 
    ActiveCell.Offset(1, 0).Select 
    NextDate = NextDate + 1 

Loop 

End Sub 

Answer 1

基本上，總是嘗試設置並完全限定您的工作表和範圍變量。然後直接與那些人一起工作，而不是使用選擇/激活。

Sub GenerateDates() 

    Dim wb As Workbook 
    Dim wsData As Worksheet 
    Dim wsDest As Worksheet 
    Dim rDest As Range 
    Dim FirstDate As Date 
    Dim LastDate As Date 
    Dim NextDate As Date 

    Set wb = ActiveWorkbook 
    Set wsData = wb.Sheets(1) 
    Set wsDest = wb.Sheets(6) 
    Set rDest = wsDest.Range("A1") 

    FirstDate = wsData.Range("CZ").Value 
    LastDate = wsData.Range("DA").Value 
    NextDate = FirstDate 

    Do Until NextDate > LastDate 
     rDest.Value = NextDate 
     Set rDest = rDest.Offset(1) 
     NextDate = NextDate + 1 
    Loop 

End Sub