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

时间:2017-06-05 09:58:13

标签: vba

我已经尝试了好几天才能找到答案但老实说,可能缺乏对该主题的了解导致我不寻找合适的条款。

我有一个电子表格,其中包含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。

我们非常感谢您提供的任何帮助。感谢

1 个答案:

答案 0 :(得分: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