vba - Excel 2010 VBA 如何在列表框中显示截止日期？

Question

首先感谢您的帮助。

我试图在用户表单的列表框中显示截止日期。我计划每个月添加单独的 CommanButtons。当我单击时，假设是一月份，我想查看今年一月份的截止日期。我有“数据库”表，根据进度，有几列包括日期。它可能会变得复杂，但我想要的是调出具有 1 月截止日期的行并显示在列表框中。如果我单击 12 月，它将更新并仅显示截止日期为 12 月的行。

如果我不清楚，请告诉我。

先感谢您。

Answer 1

我建议您在本练习中使用命名范围。选择包含 1 月所有到期日期的列，并将范围命名为“Jan”。然后你可以使用以下

Private Sub JanBtn_Click()
    DueDateLB.RowSource = "Database!Jan"
End Sub

Answer 2

谢谢你的文章。

到目前为止，我想出了这个：

---

私有子 cmdJan_Click()

Dim FindString As Date
Dim Rng As Range
FindString = DateSerial(2015, 1, 17)
With Sheets("Database").Range("N:N")
    Set Rng = .Find(What:=FindString, _
                    After:=.Cells(.Cells.Count), _
                    LookIn:=xlFormulas, _
                    LookAt:=xlWhole, _
                    SearchOrder:=xlByRows, _
                    SearchDirection:=xlNext, _
                    MatchCase:=False)
    If Not Rng Is Nothing Then
        Me.ListBox2.RowSource = Rng.EntireRow.Address
    Else
        MsgBox "Nothing found"
    End If
End With

结束子

---

1. 我想将“DateSerial(2015, 1, 17)”更改为“XXXX（当年，第一个月，任何一天）。
2. 上面的代码仅在“数据库”表处于活动状态时才有效。它在不活动时也应该工作。“数据库”不会被隐藏，但只有第一张表是可见的。

任何意见？