根据循环变量选择一个单元格范围

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