比较并选择 Excel 宏

Question

我有 2 个 Excel 工作表。在一张纸上 (sh1) 我有 B 列的日期和 D:I 列的数字。

我想要一个宏，如果列范围 D:I 中的一个单元格包含值“2”，则单击该单元格获取属于该单元格行的日期值并进行比较我的另一张表 (sh2) 中的日期值。

第二张表中的日期值也在 B 列中。

到目前为止我所拥有的：

    Option Explicit

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)

      Dim Date1 As Date
      Date1 = Range("B" & ActiveCell.Row).Value

      If Selection.Count = 1 Then
        If Selection.Value = 2 Then
          If Not Intersect(Target, Range("D:I")) Is Nothing Then
            MsgBox Date1
          End If
        End If
      End If

   End Sub

此代码已将变量分配给属于被单击单元格的行的日期。我被困在我将该变量与第二张表中的日期进行比较的部分。

最终，我想这样当它在第二张表中找到匹配项时，它会选择该行。

Answer 1

您的代码已修改：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim Date1 As Date

    Date1 = Range("B" & ActiveCell.Row).Value

    If Selection.Count = 1 Then
        If Selection.Value = 2 Then
        If Not Intersect(Target, Range("D:I")) Is Nothing Then
            foundDate = Date1
            Call findDateOnSheet2
            End If
        End If
    End If
End Sub

和（可能的解决方案）您需要在 sheet2 上找到该行：

Option Explicit
Public foundDate As Date

Sub findDateOnSheet2()
    Dim i As Long
    i = 1
    Do While Sheets(2).Cells(i, 2).Value <> ""
        If Sheets(2).Cells(i, 2).Value = foundDate Then
            Sheets(2).Activate
            Sheets(2).Rows(i).Select
            Exit Do
        End If
        i = i + 1
    Loop
End Sub

EDIT1：

您的工作表可能与我的测试表不同。您应该根据工作表的结构修改我的代码中的起始值和/或其他参数

我的第一张纸：

第二个