使用VBA引用Excel中的另一行

使用VBA引用Excel中的另一行,vba,excel,Vba,Excel,假设我在Excel中有下表: 我希望能够从我创建的用户表单中选择任务和日期,这样匹配的单元格将被着色。 我在“任务”列上使用For循环来查找并转到所需的任务,但我无法找到如何在每一行上循环并从上面查找每个单元格的匹配日期 任何帮助都将不胜感激 谢谢。下面的子部分将为您提供帮助(基本上实现@JosieP的评论): 应该不需要循环,您可以使用两个application.match语句来查找行和列的位置,然后对该单元格进行着色 Sub ColorCell(strTask As String, dat

假设我在Excel中有下表:

我希望能够从我创建的用户表单中选择任务和日期,这样匹配的单元格将被着色。 我在“任务”列上使用For循环来查找并转到所需的任务,但我无法找到如何在每一行上循环并从上面查找每个单元格的匹配日期

任何帮助都将不胜感激
谢谢。

下面的
子部分将为您提供帮助(基本上实现@JosieP的评论):


应该不需要循环,您可以使用两个application.match语句来查找行和列的位置,然后对该单元格进行着色
Sub ColorCell(strTask As String, datDate As Date)
    Dim lRow As Long, lCol As Long

    On Error GoTo errhandler

    With WorksheetFunction
        lRow = .Match(strTask, Range("C4:C10"), 0)
        lCol = .Match(CLng(datDate), Range("D2:N2"), 0)
    End With

    Sheet1.Range("C2").Offset(1 + lRow, lCol).Interior.Color = vbYellow

    Exit Sub
errhandler:
    MsgBox "Date or Task out of range. Try again", vbOKOnly
End Sub