用于比较具有包含日期​​的单元格的列并将特定文本粘贴到另一列的 Vba 代码

Question

我有点迷茫.. 我正在尝试创建一个宏，将 AH 列的单元格与 AH 列的单元格进行比较（两个列都包含日期），并根据结果，它将文本打印到AI 列的单元格。代码在下面..每次我运行它时，它都会显示错误 13 类型不匹配，并突出显示“FirstDate = Cells(RowNumber, 33)”这一行。你能帮我解决这个问题吗..

 Sub Dates()

    Sheets("1").Select
    Dim Result As Long, RowNumber As Long
    Dim FirstDate As Date, SecondDate As Date

    RowNumber = 2

    Do Until Cells(RowNumber, 2) = ""

    FirstDate = Cells(RowNumber, 33)
    SecondDate = Cells(RowNumber, 34)
    Result = DateDiff("n", FirstDate, SecondDate)

    If Result <= 30 Then
    Cells(RowNumber, 35) = "On Time"
    ElseIf Result > 30 Then
    Cells(RowNumber, 35) = "Late"
    End If

    RowNumber = RowNumber + 1

    Loop

    End Sub

Answer 1

可能的原因是 Cells(RowNumber, 33) 中的值不是日期。 Excel 存储日期和数字。将数字格式更改为“常规”。如果您在单元格中看到一个数字，则它是一个日期。如果你看到文字，那就是文字。如果文本看起来像日期，Excel 可能会强制将其转换为正确的日期（即数字）。试试FirstDate = Cdate(Cells(RowNumber, 33).Value)。

如果您将单元格的 Numberformat 设置为Date，您将能够输入一个短日期（在您的区域设置中定义），Excel 会将其记录为真实日期（即数字）。将日期记录为“真实”日期总是比您可以读取的日期更好。

反直觉？那是Excel。 :-)

Answer 2

Sub Dates()
    Dim Result As Long, RowNumber As Long
    Dim FirstDate As Variant, SecondDate As Variant

    Sheets("1").Select

    RowNumber = 2

    Do Until Cells(RowNumber, 2) = ""

        FirstDate = Cells(RowNumber, 33).Value
        SecondDate = Cells(RowNumber, 34).Value

        If IsDate(FirstDate) Then
            Result = DateDiff("n", FirstDate, SecondDate)

            If Result <= 30 Then
                Cells(RowNumber, 35) = "On Time"
            ElseIf Result > 30 Then
                Cells(RowNumber, 35) = "Late"
            End If
        Else
            Cells(RowNumber, 35) = "Not A Valid Date"
        End If

        RowNumber = RowNumber + 1
    Loop

End Sub