根據列值更改整行的內部顏色VBA

Question

需要插入VDB（i，35）=時刪除整行內部顏色變色指數22（珊瑚）的語句。

我需要在這個塊內執行這一步，而不需要在新塊中添加代碼（除非絕對必要），因爲工作表有20K個條目。我假設，因爲這是我確定物品何時處於「已刪除」狀態的位置，並且將「已刪除」放在第35列中，我應該能夠在同一步驟/區塊中對其進行着色，並且這將是最有效的方法。我可能是錯誤的..

是否有另一行我可以在最後一行後添加，這將彩色索引35中的這些條目=「已刪除」嗎？

我曾嘗試將vDB（i，35）作爲範圍傳遞給另一個變量，並對其進行設置，然後使用if =刪除以更改entirerow.interior.color index = 22，但無法獲取措辭正確，並可能採取錯誤的做法。我仍然處於學習的曲線中，但在仔細研究小組之前，試圖弄清楚我自己的問題，但我似乎無法做到。

這裏是剪切它。

'Execute Find (Vlookup) 

For i = 1 To UBound(vDB, 1) 
'If sht.Cells(i, 1).Value <> "" Then 
    If vDB(i, 1) <> "" Then 
     Set rng = rngData.Find(vDB(i, 1), LookIn:=xlValues, Lookat:=xlWhole) 'Matches entire contents of cell for an exact match 
     If Not rng Is Nothing Then 
      'If found return value of column 9 of ABC Recalc Cycle Count Remainder Browse (offset by 2), into ABC Matrix monthly ABC Code column, as determined by variable 
      vDB(i, ABCCodeCell) = rng.Offset(, 7) 
      'If found, return the value of column 7 of ABC Recalc Cycle Count Remainder Browse (offset by 2), into ABC Matrix column 27 
      vDB(i, 27) = rng.Offset(, 5) 
      'If found, return the value of column 11 of ABC Recalc Cycle Count Remainder Browse (offset by 2), into ABC Matrix column 34 
      vDB(i, 33) = rng.Offset(, 9) 
      'If found, place value of ABCMatrixMonthSelect.ComboBox1 in column AO Col Index 41 
      vDB(i, 41) = ABCMatrixMonthSelect.ComboBox1.value 
     Else 
      vDB(i, 35) = "Deleted" 
      vDB(i, 41) = ABCMatrixMonthSelect.ComboBox1.value 
      With vDB(i, 1) = sht.Cells.Interior.Color = RGB(247, 119, 109) 'Light Red 
      End With 
     End If 
    End If 
    If vDB(i, ABCCodeCell) = vDB(i, lastMonthABCCode) Then 
    vDB(i, 36) = "No" 
    Else 
    vDB(i, 36) = "Yes" 
    End If 
DoEvents 
Next 
rngDB = vDB 

Dim LR As Long 
LR = sht.Cells(Rows.Count, 1).End(xlUp).Row 
sht.Cells.FormatConditions.Delete 
With sht.Range("1:" & LR) 
    .FormatConditions.Add Type:=xlExpression, Formula1:="=$AI1=""Deleted""" 'Searches for value "Deleted" in Range 1 to last row 
    With .FormatConditions(.FormatConditions.Count) 
     .SetFirstPriority 
     With .Interior 
      .Color = RGB(247, 119, 109) 'Light Red 
     End With 
    End With 
End With 

'Reset Excel Status Bar 
Application.StatusBar = False 
e here 

Answer 1

如果你可以使用條件格式，使用規則類型：使用公式確定哪些單元格格式化，在公式編輯欄中鍵入= $ AJ35 =「刪除」，然後定義你的範圍，例如作爲= 1：1000。 $在公式中的位置是關鍵。然後，您將選擇滿足條件時發生的情況並設置規則。

您可以從VBA做到這一點，設置條件格式，如：

Dim LR as Integer 
LR = Cells(Rows.Count, 1).End(xlUp).Row 'just finding the row # of the last row 
sht.Cells.FormatConditions.Delete 
With sht.Range("1:" & LR) 'The range you're working with... specify the Rows() to ensure the whole row is colored 
    .FormatConditions.Add Type:=xlExpression, Formula1:="=$AI1=""Deleted""" 'Where you put the cell you want to evaluate and criteria 
    With .FormatConditions(.FormatConditions.Count) 
     .SetFirstPriority 
     With .Interior 
      .Color = RGB(0, 70, 255) 'Arbitrary; you will need to find the specific color you want. 
      .TintAndShade = 0.8 
     End With 
    End With 
End With 

注意，我刪除每次現有的條件。

此外，另一種選擇是隻說，不使用條件格式：

With sht.Rows(i).Interior 
    .Color=RGB(0,255,0) 'arbitrary color 
    .TintAndShade = 0.8 
End With 

---

編輯：有了您的調整代碼和渴望列1到35進行彩色編碼：

Else 
    vDB(i, 35).Value = "Deleted" 
    With sht.Range(sht.Cells(i,1),sht.Cells(i,35)).Interior 
     .Color = RGB(247, 167, 184) 'light red 
     .TintAndShade = 0.8 
    End With 
End If 

我在想你的vDB有什麼問題，所以也許它會更適合使用單元格？

Else 
    Cells(i, 35).Value = "Deleted" 
    With sht.Range(sht.Cells(i,1),sht.Cells(i,35)).Interior 
     .Color = RGB(247, 167, 184) 'light red 
     .TintAndShade = 0.8 
    End With 
End If 

同理：

Dim i, LR as Integer 
LR = Cells(Rows.Count,1).End(xlUp).Row 'Assumes row 1 is contiguous... probably not, given the rest of this code 
For i = 1 To LR 
    If Cells(i, 1) <> "" Then 
     Set rng = rngData.Find(Cells(i, 1), LookIn:=xlValues, Lookat:=xlWhole) 
     If Not rng Is Nothing Then 
      Cells(i, ABCCodeCell).Value = rng.Offset(, 7).Value 
      Cells(i, 27).Value = rng.Offset(, 5).Value 
      Cells(i, 34).Value = rng.Offset(, 9).Value 
     Else 
      Cells(i, 35).Value = "Deleted" 
      With sht.Range(sht.Cells(i,1),sht.Cells(i,35)).Interior 
       .Color = RGB(247, 167, 184) 'light red 
       .TintAndShade = 0.8 
      End With