从列中的每个单元格中减去日期，跳过具有字符串值的单元格

Question

我有一张Excel过期日期表。有些行没有截止日期，所以我选择用字符串"NODATA"填充这些单元格。

我想循环浏览所有单元格，找出用户在过期日期之前还有多少天
然后我想发送一封电子邮件，其中包含过期日期将在两周内过期的单元格列表。

我被困在循环部分，所以我只想至少完成这一点
A列具有卡车Id，D列具有一个文档的到期日期。(我有一些版本，但我想先只关注一个。(
B到C列充满了值。他们现在不值得一提——至少我认为是这样。

我创建的代码导致类型不匹配，这是有道理的，因为D列中的单元格不是相同的数据类型。

我纠正了一些小错误，但仍然不起作用。

Sub Run_Button1()
Dim mydate1 As Range
Dim datetoday1 As Date
Dim dateDif As Long
datetoday1 = Now
For Each mydate1 In Sheets("Sheet1").Range("A1:A25").Cells
If IsDate(mydate1.Value) Then
dateDif = DateDiff("d", mydate1.Value, Date)
If dateDif > 1 And dateDif < 14 Then
'This code will be added later.this code will send emails
End If
End If
Next mydate1
End Sub

Answer 1

来自上面的评论：

Sub Run_Button1()
Dim c As Range, v
Dim dateDif As Long

For Each c In Sheets("Sheet1").Range("A1:A25").Cells
v = c.EntireRow.Columns("D").Value 'read from date column
If IsDate(v) Then
dateDif = DateDiff("d", cdate(v), Date)
If dateDif > 1 And dateDif < 14 Then

End If
End If
Next c
End Sub