Question

我正在尝试构建一个宏，该宏将自动对excel表中的一些值进行多个表格的排序。

我希望看看行r和s并将它们与最高的＆＃34;日期＆＃34;进行比较。值，然后如果最大值小于3个月，则复制到表4，如果ts大于3个月，则复制到表7。

我让副本部分工作的不是最佳日期的if函数：

Dim greatestDate As Date

If Sheets(source).Cells(lRow, "R").Value > Sheets(source).Cells(lRow, "S").Value Then
        greatestDate = Sheets(source).Cells(lRow, "R").Value
        Else
        greatestDate = Sheets(source).Cells(lRow, "S").Value
        End If

我认为问题是变量的类型，但我不确定是否会感谢任何帮助。

Answer 1

虽然您没有告诉我们您收到的错误，但您应该使用DateValue函数来消除任何时间属性并仅评估日期。

If DateValue(Sheets(source).Cells(lRow, "R").Value) > DateValue(Sheets(source).Cells(lRow, "S").Value) Then

使用VBA宏查找最大日期

1 个答案: