如果单元格值包含在另一个工作表中，则 Excel vba

Question

我有名为“1Q FY 18”的工作表，这是第二张表，“Holiday”是第七张表。

“1Q FY 18”的第 12 行包含从 4 月 1 日到 6 月 30 日的日期。 从“B20”到“B35”的单元格包含 2018 年的假期。

我想突出显示第二张工作表中在 range("B20:B35") 处具有匹配值的列。换句话说，我想为假日列着色。

我的代码是这样的。

   Sub Holiday()
    lastr = Worksheets(2).UsedRange.Rows.Count
    lastc = Worksheets(2).UsedRange.Columns.Count
    Worksheets(2).Activate
    Set ws7 = Worksheets("Holiday")
    Set rng1 = ws7.Range("B20:B35")
    For i = 15 To lastc
    If Not IsEmpty(Application.WorksheetFunction.VLookup(Cells(12, i).Value, rng1, 1)) Then
    Range(Cells(13, i), Cells(lastr - 2, i)).Interior.ColorIndex = 6
    End If
    Next i
    End Sub

但是这个错误发生了。 当我调试时，它会突出显示

****如果不是 IsEmpty(Application.WorksheetFunction.VLookup(Cells(12, i).Value, rng1, 1)) 那么****

我该怎么办？

Answer 1

这是一个简单的宏，可以按照您的描述进行操作。我在其中放置了一个.select 语句，因此您可以单步执行代码以查看它是如何工作的，但之后您应该将其删除。一旦了解了它的工作原理，您就可以根据自己的需要进行更改。如果您有任何问题，请告诉我。动画 gif 显示工作簿的每个工作表，然后运行宏。在我的示例中，我刚刚选择了每周的假期，但您可以更改它。我还包括一个子来方便地重置颜色。 （你说你想“给列上色”，但我只是给单元格上色。如果你真的想给整个列上色，你可以用Columns(cell.Column).interior...替换cell.interior..和r.interior...）

Sub test()
Dim sh1 As Worksheet, sh2 As Worksheet
Dim r1 As Range, r2 As Range, cell As Range, holidayCell As Range
Set sh1 = Worksheets("1Q FY 18")
Set sh2 = Worksheets("Holiday")
Set r1 = sh1.Range("A12")
Set r1 = sh1.Range(r1, r1.End(xlToRight))
Set r2 = sh2.Range("B20:B35")
resetColor r1
For Each cell In r1
  cell.Select
  For Each holidayCell In r2
    If cell = holidayCell Then
      cell.Interior.Color = vbYellow
      Exit For
    End If
  Next
Next cell
End Sub

Sub resetColor(r As Range)
    With r.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub