在带有日期的一行中查找并选择具有特定日期的单元格

Question

我正在尝试在名为archief 的工作表中的日期行中查找并选择一个单元格。日期行的范围是Sheets("archief").Range("B2:HT2")。我要查找的日期的输入是Sheets("Rekenblad").Range("B29")。

在日期行中找到单元格后，我需要选择其下方的单元格 1。所以比如我要找的日期是B2，那么我需要选择B3。

之后我想粘贴之前复制的内容。

如何使用 VBA 做到这一点？这是我目前尝试过的代码。

Sub FindCell()
    Dim RowDates As Range
    Dim InputCell As Range
    Set InputCell = Sheets("Rekenblad").Range("B29")
    Set RowDates = Sheets("archief").Range("B2:HT2").Find(What:=InputCell, _
                                                    SearchOrder:=xlByColumns).Select
End Sub

Answer 1

您几乎拥有它，您只需要删除.Select。

您可能会从阅读中受益 How to avoid using Select in Excel VBA.

Sub FindCell()
    Dim InputCell As Range
    Set InputCell = Sheets("Rekenblad").Range("B29")
    
    Dim RowDates As Range
    Set RowDates = Sheets("archief").Range("B2:HT2").Find(What:=InputCell, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, MatchByte:=False)

    If RowDates Is Nothing Then ' check if find did find something
        MsgBox "Date not found."
        Exit Sub 'nothing was found so we need to abort
    End If
    
    Dim NextDateCell As Range
    Set NextDateCell = RowDates.Offset(RowOffset:=1) 'offset moves from RowDates one down

End Sub

除非您希望用户移动到那里，否则永远不要使用Select。

使用Range.Find method 时，请确保至少指定以下参数：

每次使用此方法时都会保存LookIn、LookAt、SearchOrder 和MatchByte 的设置。如果下次调用该方法时没有为这些参数指定值，则使用保存的值。设置这些参数会更改“查找”对话框中的设置，而更改“查找”对话框中的设置会更改在省略参数时使用的保存值。为避免出现问题，请在每次使用此方法时显式设置这些参数。