根據循環變量選擇一個單元格範圍

Question

我試了幾天才找到答案，但說實話，這可能是缺乏知識的主題，這導致我不尋找正確的術語。

我有一個電子表格，其中包含一系列日期S7：GE7和8:96之間的數據，這些數據需要在第二天鎖定。

我知道我選擇列的方式都是錯誤的，也可能有更多的錯誤，但我想不出一種方法來使它正確。

Private Sub Workbook_Open() 

Dim i As Range, cell As Range 
Set i = Range("S7:GE7") 

For Each cell In i 
     If (cell.Value < DateValue(Now())) Then 
      Range(i + "8:96").Locked = True 
     End If 
Next cell 

End Sub 

什麼我希望能實現與這是一個循環，會仔細檢查S7日期：GE7，如果日期是比今天更舊鎖定細胞在該列8:96。

任何可以提供的幫助將不勝感激。由於

Answer 1

試試這個：

Private Sub Workbook_Open() 

Dim i As Range, cell As Range 
Set i = Range("S7:GE7") 

For Each cell In i 
     If (cell.Value < DateValue(Now())) Then 

      cell.Offset(1, 0).Resize(79, 1).Locked = True 

     End If 
Next cell 

End Sub