0

我有一个excel不能正确识别年份的问题。

这是我的代码

' Sort value
max = Sheets("booking").Cells(Rows.count, "A").End(xlUp).Row
Range("A1:H" & max).Select
ActiveWorkbook.Worksheets("Booking").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Booking").Sort.SortFields.Add Key:=Range("D2:D" & max) _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Booking").Sort.SortFields.Add Key:=Range("A2:A" & max) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Booking").Sort
    .SetRange Range("A1:H" & max)
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

' mark past booking in italic and in red if not validated
For L = 2 To max
    If Format(CDate(booking.Cells(L, 5).Value), "dd-mm-yy") < Format(CDate(cells(1,10).value), "dd-mm-yy") Then
        booking.Cells(L, 5).EntireRow.Font.Italic = True
            If booking.Cells(L, 5).Offset(0, 3).Value = "" Then
                booking.Cells(L, 5).EntireRow.Font.Color = vbRed
            Else
                booking.Cells(L, 5).EntireRow.Font.Color = vbBlack
            End If
    End If
Next L

D列充满日期格式dd-mm-yy
单元格(1,10) = now()

当代码需要按日期对订单进行排序时：np，它将 2014 年的订单放在 2013 年的订单前面

但

当代码将斜体格式应用于日期 < 现在时，2014 年的订单被视为过去，代码将它们以斜体显示

我究竟做错了什么 ？

4

1 回答 1

0

很明显，在 For 循环中，您将日期作为字符串进行比较，因此您得到不同的结果我并不感到惊讶。你应该改变

If Format(CDate(booking.Cells(L, 5).Value), "dd-mm-yy") < Format(CDate(cells(1,10).value), "dd-mm-yy") Then

至

If booking.Cells(L, 5).Value < booking.Cells(1,10) Then

在不相关的说明中，您声明cells的第二部分中变量的值是什么？If你忘了在它前面加上booking.吗？

于 2013-08-07T11:45:06.723 回答