如果出现在另一个带有宏的工作表中，则突出显示单元格答案

【问题标题】：Highlight cells if appearing in another sheet with a macro如果出现在另一个带有宏的工作表中，则突出显示单元格
【发布时间】：2019-11-12 20:31:47
【问题描述】：

我想用宏创建一个简单的按钮。

我的 excel 文件中有三张工作表：

“VLS”、“DTMS”和“结果”

如果它们分别出现在 VLS 或 DTMS 的 A 列中，我想要一个宏，它突出显示“结果”中 A 列中的单元格。

是否可以用绿色突出显示 VLS 中出现的单元格，用蓝色突出显示 DTMS 中出现的单元格？

【问题讨论】：

为什么不使用条件格式呢？
您好，谢谢！ - 这也可以，但我想将它构建成一个按钮，因此它可以用作不熟悉条件格式的团队的模板。这样他们就可以点击按钮并查看重复项

标签： excel vba

【解决方案1】：

这段代码对你有帮助吗？

Sub test()
    Dim LastRowSheet1 As Integer
    Dim LastRowSheet2 As Integer
    Dim LastRowSheet3 As Integer
    LastRowSheet1 = Sheets("Results").Cells(1, 1).End(xlDown).Row
    LastRowSheet2 = Sheets("VLS").Cells(1, 1).End(xlDown).Row
    LastRowSheet3 = Sheets("DTMS").Cells(1, 1).End(xlDown).Row
    Dim Found As Boolean
    Found = False

    For i = 1 To LastRowSheet1
        For j = 1 To LastRowSheet2
            If Sheets("Results").Cells(i, 1).Value = Sheets("VLS").Cells(j, 1).Value Then
                Sheets("Results").Cells(i, 1).Interior.Color = RGB(0, 255, 0)
                '''Value found in sheet VLS => GREEN'''
                Found = True
                Exit For
            End If
        Next j
        For k = 1 To LastRowSheet3
            If Sheets("Results").Cells(i, 1).Value = Sheets("DTMS").Cells(k, 1).Value Then
                If Found = True Then
                    Sheets("Results").Cells(i, 1).Interior.Color = RGB(255, 0, 0)
                   '''Value found in sheet VLS and DTMS => RED'''
                Else
                    Sheets("Results").Cells(i, 1).Interior.Color = RGB(0, 0, 255)
                    '''Value found in sheet DTMS => BLUE'''
                End If
                Exit For
            End If
        Next k
        Found = False
    Next i
End Sub

它遍历您的工作表“结果”列 A 并检查其他两个工作表的所有值：首先使用工作表 VLS，然后检查 DTMS。

一旦在 VLS 中检测到相同的值，它就会将颜色更改为绿色。然后，如果该值也在 DTMS 中，则将颜色更改为红色，或者如果仅在 DTMS 中，则将其更改为蓝色。

如果它有效，您可以创建一个按钮，然后将这个宏影响到它。

【讨论】：