如何通过单元格循环

Question

如何更新此VBA代码，以便它可以检查我的所有列（从G4到G1000），并显示每个列的msgbox而不仅是G4的循环？

Private Sub Workbook_Open() 
    Dim c1 As Range 
    Set c1 = ThisWorkbook.Sheets("Sheet1").Range("G4") 
    If IsDate(c1) Then 
    If Now >= c1 + 60 Then 
     MsgBox "The Date in Sheet 1 Cell B4 has been reached or passed." 
     End If 
    End If 
End Sub 

Answer 1

使用r.offset（0，-5）将参照B列

Private Sub Workbook_Open() 
     Dim c1 As Range, r As Range 
     Set c1 = ThisWorkbook.Sheets("Sheet1").Range("G4:G100") 
     For Each r In c1 
      If IsDate(r.Value) Then 
       If Now >= r.Value + 60 Then 
        MsgBox "warning cell " & r.Address(0, 0) & " is expired: Value: " & r.offset(0,-5) 'r.offset(0,-5) will return the content on col 
       End If 
      End If 
     Next r 
    End Sub 

希望这会有所帮助。

Answer 2

我相信你可以这样做：https://msdn.microsoft.com/en-us/library/office/aa221353%28v=office.11%29.aspx

For Each c1 In Worksheets("Sheet1").Range("G4:G1000").Cells 
    ' copy paste your code here 
Next 

Answer 3

也许：

Private Sub Workbook_Open() 
    Dim c1 As Range, r As Range 
    Set c1 = ThisWorkbook.Sheets("Sheet1").Range("G4:G100") 
    For Each r In c1 
     If IsDate(r.Value) Then 
      If Now >= r.Value + 60 Then 
       MsgBox "warning cell " & r.Address(0, 0) & " is expired" 
      End If 
     End If 
    Next r 
End Sub