根据循环变量选择一系列单元格

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