主页 / computer / 问题 / 1667164
Accepted
wyatt7613
Asked: 2021-08-03 15:35:54 +0800 CST

Excel VBA - 检查与另一个单元格相关的单元格值

  • 772

如果该部分的 QOH 小于 5（J 列），我想突出显示 BK 列中的一行单元格。我还希望它仅在零件位于子库存“W1”或“OUTSIDE”（H 列）中时突出显示该行。

电子表格

这是我到目前为止的代码：

'Highlights row if quantity on hand is 5 or less
Dim LastRow As Long, c As Range
Dim MyRange As Range
    LastRow = Cells(Cells.Rows.Count, "J").End(xlUp).Row
    Set MyRange = Range("J1:J" & LastRow)
With ActiveWorkbook.Worksheets("Sheet1")
    For Each c In MyRange
        If c <= 5 Then
            c.Select
            If ActiveCell.Offset(0, -2).Value = "W1" Or "OUTSIDE" Then 'Checks if part is in a specified subinventory
                Range("B" & ActiveCell.Row & ":K" & ActiveCell.Row).Interior.Color = vbYellow 'Highlists the row from columns B-K if QOH is less than 5
            End If
        End If
    Next
End With

如果 QOH 小于 5，我已经让它突出显示 BK 行。但是，当我尝试仅在子库存为“W1”或“OUTSIDE”时让它突出显示该行时，问题就来了。当我运行宏时，我最终得到错误代码“运行时错误'1004'：应用程序定义的或对象定义的错误。”

microsoft-excel vba

2 个回答

  1. Best Answer

    尝试：

    If ActiveCell.Offset(0, -2).Value = "W1" Or ActiveCell.Offset(0, -2).Value = "OUTSIDE"

    永远没有做过 VBA，目前也没有，但是：

    ActiveCell.Offset(0, -2).Value = "W1" Or "OUTSIDE"

    对我来说看起来不正确，因为'='比逻辑运算符'Or'具有更高的优先级，所以这是这样做的：

    (ActiveCell.Offset(0, -2).Value = "W1") Or "OUTSIDE"

    “或”运算符需要两个布尔值，这就是我认为您的错误来自的地方（您有一个布尔值和一个字符串）。

    • 1

  2. 经过一些试验和错误，我明白了。

    'Highlights row if quantity on hand is 5 or less
Dim LastRow As Long, c As Range
Dim MyRange As Range
    LastRow = Cells(Cells.Rows.Count, "J").End(xlUp).Row
    Set MyRange = Range("J1:J" & LastRow)
With ActiveWorkbook.Worksheets("Sheet1")
    For Each c In MyRange
        If c <= 5 Then
            c.Select
            If ActiveCell.Offset(0, -2) = "W1" Or ActiveCell.Offset(0, -2) = "OUTSIDE" And ActiveCell.Offset(0, -1) <> "MAJOR COMPONENT" Then 'Checks if part is in a specified subinventory
                Range("B" & ActiveCell.Row & ":K" & ActiveCell.Row).Interior.Color = vbYellow 'Highlists the row from columns B-K if QOH is less than 5
            End If
        End If
    Next
End With
    • 0

相关问题