Question

On Error Resume Next

    j = Application.WorksheetFunction.Match(Strg, ws2.Range("K1:K3100"), False)
    result = Cells(j, 21)

If (Err <> 0) Then
  Else

    If result = "Closed" Then
       Cells(j, 3) = "B"
       ws1.Select
       Cells(i, 22).Interior.ColorIndex = 3 'Red

      'copy row to the other tab

       Rows(i).Select
       Selection.Copy
       ws3.Select
       Rows(k + 2).Select
       ActiveSheet.Paste
       k = k + 1
       ws1.Select
    End If

需要在Cells（j，3）=“B”之后添加一个if语句条件将在列A（年）中2016年颜色将不同工作表（ws1.select）中的单元格列为员工ID到橙色。

Answer 1

我想你想要这样的东西 -

<xp:view>

如果在VBA中有2个条件的语句

1 个答案: