Question

我有一个数据表，在各个列中有不同的月份，每行都有一个唯一的标识符（在这个例子中是一个名称）。

有没有办法，我可以在另一张纸上有一个下拉框，以便我可以选择一个日期，然后工作表会返回包含这些日期的数据中的所有条目？

这是指向我正在使用的数据类型的基本版本的链接： https://docs.google.com/spreadsheets/d/1LgTKxXuQ9hdq-ruJWcto7A002ks4R2koGx0vtiHZHXQ/edit?usp=sharing

Answer 1

我提出了这个小代码：

Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)

Dim lastRow, targetCell, sourceRng, cell, nameRng, startRng, ddownCell As Range

Set ddownCell = Worksheets("Sheet2").Range("B1")
Set sourceRng = Worksheets("Sheet1").Range("C2:O10")
Set nameRng = Worksheets("Sheet1").Range("A2:A10")
Set startRng = Worksheets("Sheet1").Range("B2:B10")
Set targetCell = Worksheets("Sheet2").Range("A5")

If Not Application.Intersect(ddownCell, Range(Target.Address)) Is Nothing Then

With Worksheets("Sheet2")                               '
    lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row    '
    If lastRow > 3 Then                                 'clears the content of previous search
        .Range("A5:B" & lastRow).ClearContents          '
    End If                                              '
End With                                                '

For Each cell In sourceRng
    If cell.Value = ddownCell.Value Then
         targetCell.Value = nameRng.Rows(cell.Row - 1).Value
         targetCell.Offset(0, 1).Value = startRng.Rows(cell.Row - 1).Value
         Set targetCell = targetCell.Offset(1, 0)
    End If

Next cell
End If
End Sub

工作表名称和单元格范围会根据您发布的样本进行调整，需要进行调整。

此代码应粘贴到VBA编辑器中的Sheet2中。

Excel中的下拉列表以显示另一个工作表中的数据

1 个答案: