【问题标题】:Complex Comparisons复杂的比较
【发布时间】:2017-01-13 06:44:12
【问题描述】:

我有点难过。我正在尝试查看 ColA 中的唯一数字并在同一行上获取文本,并将其与 ColB 中的相同(有时重复)数字进行比较,并在同一行上获取文本。如果文本不同,我想在 ColC 的单元格中突出显示差异。

这很难解释,所以这里有一张图片。

我知道 ColA 中的 1 = 必需。所以,我想查看 ColB 中的所有数字 1,并确保 ColC 中的同一行 = 必需。在 ColA 中,2、3、4 和 5 在 ColC 中都是必需的。在 ColB 中,3 和 4 在 ColC 中应该有一个Required,但它说的有些不同,所以我想将这些单元格着色为橙色。是否有意义?我想过使用 Vlookup,但我不确定它是如何工作的?

目前,我还没有代码,但如果我想出一些可行的方法,或者如果我能让它工作,我一定会发布解决方案。

我认为代码会是这样的,但这不符合我上面描述的逻辑。

Sub StillTrying()

Dim mCell As Range
Dim R As Long
Dim Rng As Range
Dim Agent As Range
Dim AgentList As Range
Application.ScreenUpdating = False

Set AgentList = ActiveSheet.Range("A2:A20")
Set Rng = ActiveSheet.Range("B2:B20")

For Each Agent In AgentList
    For Each mCell In Rng
    Debug.Print mCell.Address
    Debug.Print Agent.Address

        If mCell.Value = Agent.Value And mCell.Offset(0, 1).Value = Agent.Offset(0, 2).Value Then
        ' do nothing
        Else
            mCell.Offset(0, 1).Resize(, 1).Select
            With Selection.Interior
                .Color = 39423
            End With
            R = R + 1
        End If
    Next mCell
Next Agent

End Sub

基本上,C& 和 C8 应该是橙色的。

谢谢大家。

【问题讨论】:

    标签: vba excel


    【解决方案1】:

    如果我理解正确,您可以使用条件格式来实现。

    在单元格C2 中,应用以下条件格式规则:

    然后将该单元格的格式复制到 C 列中的其他每个单元格中。


    如果您的防火墙阻止了 i.stack.imgur.com 上的图像,则图像显示 Edit Formatting Rule 对话框,选择设置为 Use a formula to determine which cells to format,公式为 =NOT(C2=VLOOKUP(B2,A:C,3,FALSE)),格式显示橙色填充。

    【讨论】:

    • 然后复制该单元格的格式 - 或者,只需将条件格式的 应用于 范围设置为您希望它应用于的单元格。不过,公式中的列可能应该是绝对的 ($),尤其是当您改变主意并想要突出显示整行而不是 C 列中的一个单元格时。
    • @Mat'sMug - 我确实想过在条件格式对话框中设置范围 - 但这需要另一个屏幕截图,我很懒! :D(我确实考虑过绝对引用——但我不确定哪些是绝对引用,哪些是相对引用,如果将 C 列移到 X 列,则必须更改 3实例 - 所以这开始变得难以描述。)
    • 我看不到图片。我很确定它被我公司的防火墙阻止了。您可以编辑您的帖子并在其上执行 Ctrl+K 以便我看到吗?谢谢。
    • @r_michael - 这不是代码,所以 Ctrl-K 无济于事。我添加了对话应该是什么样子的文字描述。希望你能关注它。
    • 啊!使用公式确定要格式化的单元格!!杰出的!!非常感谢!!
    猜你喜欢
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 2011-04-01
    • 1970-01-01
    • 1970-01-01
    • 2019-03-13
    • 2015-05-29
    相关资源
    最近更新 更多