Visual Basic编辑器 - Excel - 日期 - 求助

Question

Visual Basic编辑器 - 求助

我有一个包含3列不同截止日期的电子表格我希望在其中任何一个日期在30天内过期时发送自动电子邮件。目前我所拥有的代码只是从一列中拉出来有没有办法让它看到所有三列？

实施例 约翰史密斯的执照将于3月13日到期（D栏），他的护照将于5月12日到期（E栏），他的汽车登记将于3月19日（F栏）到期，我所写的代码只会从/查看D栏，仅发送基于该列的电子邮件 - 根据到期信息，它应根据D栏和F列发送电子邮件

这是我目前的代码

toDate = Replace(Cells(i, 4), ".", "/")

如何对其进行编码以查看所有3列

Answer 1

代码中的数字4表示您正在查看的列，因此只需创建更多变量并更改数字，如下所示：

toDateD = Replace(Cells(i, 4), ".", "/")
toDateE = Replace(Cells(i, 5), ".", "/")
toDateF = Replace(Cells(i, 6), ".", "/")

看模式？

还有其他方法可以做到这一点......我更喜欢这种方式：

toDateD = Replace(Range("D" & i), ".", "/")
toDateE = Replace(Range("E" & i), ".", "/")
toDateF = Replace(Range("F" & i), ".", "/")

了解调试的可读性如何？