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