将日期与列表进行比较并返回列表中的下一个日期

Question

我又带着一个我不太确定该怎么做的人回来了。如前所述，我是一名初学者 VBA 程序员，所以很多事情对我来说并不明显。

无论如何我想做的是：

• 让用户从下拉单元格中选择一个支付组号码（完成）

• 让用户以 DD/MM/YYYY 格式插入终止日期。如果未选择支付组，则 MsgBox 出错（完成）

• 如果一切正确，则将终止日期与另一个工作表数据表中与该工资组对应的日期进行比较。返回作为 MsgBox 输入的终止日期之后的下一个截止日期。

到目前为止，我有以下代码：

更大的工作表事件选择事件的一部分

ElseIf Not Intersect(Target, Range("LastDayWorkedRange")) Is Nothing Then
       Call Cutoff2015
End If

调用这个子：

Sub Cutoff2015()

'If Paygroup has not been selected when entering termination date then error message and enable events
If Range("PayGroupRange") = "Please Select" Then
        MsgBox "Error: Please select Paygroup"
        Application.EnableEvents = True

    'If paygroup is selected then
    Else: Select Case Range("PayGroupRange")
        Case 118
        MsgBox "118"

        Case 113
        MsgBox "113"

    End Select

End If

End Sub

截止日期位于名为“截止矩阵”的单独工作表上，第一行采用支付组编号进行格式化，从第二行开始按时间顺序排列日期。放入案例中的 MsgBox 以确保其正常工作。到目前为止，它确实如此。

Answer 1

假设您有一个命名范围TerminationDate 并且工作表“截止矩阵”中的日期按升序排列，以下函数将为您提供下一个日期与 Range("TerminationDate") 中的日期相比的 msgbox。

Private Function Next_Date()
Dim rng As Range
Dim rngFoundPayGroup As Range
Dim cell As Range

'setting the range in Cutoff Matrix from A1 to the last not empty cell to right
Set rng = ThisWorkbook.Sheets("Cuttoff Matrix").Range("A1")
Set rng = Range(rng, rng.End(xlToRight))

'finding identified PayGroup in the previously set range
Set rngFoundPayGroup = rng.Find(Range("PayGroupRange"), , xlValues, xlWhole)
'Looking downwards for the date bigger than termination date
For Each cell In Range(rngFoundPayGroup, rngFoundPayGroup.End(xlDown))
    If cell.Value > Range("TerminationDate").Value Then
        MsgBox cell.Value
        Exit For
    End If
    'If no date which is bigger, this msgbox appears
    If cell.Address = rngFoundPayGroup.End(xlDown).Address Then MsgBox "Next date not found"
Next

Set rngFoundPayGroup = Nothing
Set rng = Nothing
End Function

在同一模块中插入此函数，并将之前的行 MsgBox "118" 和 MsgBox "118" 更改为 Call Next_Date。或者更好，插入功能代码后，把你的这部分删掉即可：

Select Case Range("PayGroupRange")
    Case 118
    MsgBox "118"
    Case 113
    MsgBox "113"
End Select

改用这个：Call Next_Date。