我正在尝试创建一个宏来搜索我的工作表并在单元格的日期过去时创建一个消息框,并将消息框的文本作为单元格相邻。我想要忘记第一个IsDate部分,但是该范围还包含带有文本的单元格,这会使事情变得混乱。
我对VBA很新,这就是我想出来的(这是行不通的)。
Sub Pop_Up()
Dim cell As Range
For Each cell In Range("c1:U439")
If IsDate(Range("c1")) And cell.Value < Now() Then
MsgBox "Holdback Expired:" & vbCrLf & cell.Value & " " & cell.Value.Offset(0, -1)
End If
Next
End Sub
任何帮助将不胜感激,提前谢谢!
答案 0 :(得分:0)
试试这个。根据评论
IsDate(cell.Value)..
Cell.Value.Offset(0,-1)
应为Cell.Offset(0,-1).Value
Sub Pop_Up()
Dim cell As Range
For Each cell In Range("c1:U439")
If IsDate(cell.Value) Then
If cell.Value < Now() Then
MsgBox "Holdback Expired:" & vbCrLf & cell.Value & " " & cell.Offset(0, -1).Value
End If
End If
Next cell
End Sub