ループ変数に基づいてセルの範囲を選択する

Question

私はこれに対する答えを見つけようと数日間試してきましたが、正直なところ、それが正しい用語を検索していない対象の知識の欠如かもしれません。

私は、S7：GE7と8:96の間の一連の日付を持つスプレッドシートを持ち、そのデータは翌日ロックする必要があります。

私はカラムを選択する方法が間違っていることを知っていますが、おそらくもっと間違っていますが、正しい方法を考えることはできません。 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で日付を覗くループです。

ご協力いただけると助かります。おかげ

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