0

我正在研究一个使用唯一 ID 号和关联日期的代码，以查看工作表中是否已经存在相同的记录。这是我的代码：

第一个代码的一部分：

Else
   'If all the data has been entered, go to New_Record
   Check_Record ID:=Sheets("Information").Range("A1").Value, vDate:=Sheets("Information").Range("A2").Value
End If
End Sub

第一个代码之后的第二个代码：

Function Record(ID As String, vDate As String)

    Dim Current_ID_List As Range
    Dim vCaseWasFound, vDateWasFound, vLastDataRow As Range
    Dim DestinationRow As Integer
    Dim Go_ahead_msg As String

    Set ID_List = Sheets("Records").Range("A:A")
    Set Date_List = Sheets("Records").Range("D:D")

    '-- determine whether record exists
    Set vCaseWasFound = ID_List.Find(What:=ID, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows)
    Set vDateWasFound = Date_List.Find(What:=vDate, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows)
    Set vLastDataRow = Sheets("RawData").Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows)

    If Not vCaseWasFound Is Nothing And Not vDateWasFound Is Nothing Then
        Go_ahead_msg = "The record already exists."
    Else
        Go_ahead_msg = "This is a new record."
    End If

    If MsgBox(Go_ahead_msg, vbQuestion + vbYesNo) = vbYes Then
    New_Record
    Sheets("Sheet1").Activate
    Else
        With Sheets("Records")
        .Activate
        .Range("A1").Select
    End With

       End If

End Function

我遇到代码无法识别某些格式的相同日期的问题。如果我有相同的 ID 和相同的日期（格式如 2012 年 12 月 12 日），那么代码会将其识别为相同的记录，并给出“记录已存在”的消息。但是，如果日期的格式为 1/1/2013 或 4/15/2012 或 4/1/2013，则代码不会将其识别为同一日期。

4

1 回答 1

1

那是因为它是字符串比较而不是日期比较。

如果要搜索日期，您将无法使用 Range.Find 方法。您必须将字符串转换为日期，然后搜索将每个值转换为日期的范围，然后进行比较。

您可以先格式化日期列，然后再进行搜索。如果您将它们全部格式化为 MM/DD/YYYY，这可能会起作用。然后你可以比较字符串。但是你还必须格式化你传入的那个。

将字符串值格式化为日期：

Set rngMatch = rngSearchMe.Find(What:=Format(strDateValue, "MM/DD/YYYY"), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows)

将范围格式化为 mm/dd/yyyy：

   Set rngSearchMe = Sheets("Sheet1").Range("D:D")
   rngSearchMe.NumberFormat = "mm/dd/yyyy;@"
于 2013-11-11T14:54:27.837 回答