Question

我需要做一个条件代码语句，使某些盒子根据另一个盒子的状态改变颜色。

 Option Explicit
 Sub QuarterSalesData()

 Dim Qtr_1 As Integer
 Dim Qtr_2 As Integer
 Dim Qtr_3 As Integer
 Dim Qtr_4 As Integer
 Dim One_Total As Integer

 Range("Q2").Select

ActiveCell.FormulaR1C1 = "=RC[-15]+RC[-14]+RC[-13]"
Range("Q2").Select
Selection.AutoFill Destination:=Range("Q2:Q21"), Type:=xlFillDefault
Range("Q2:Q21").Select
Selection.AutoFill Destination:=Range("Q2:Q41"), Type:=xlFillDefault
Range("Q2:Q41").Select

 Range("R2").Select
ActiveCell.FormulaR1C1 = "=RC[-13]+RC[-12]+RC[-11]"
Range("R2").Select
Selection.AutoFill Destination:=Range("R2:R41"), Type:=xlFillDefault
Range("R2:R41").Select

  Range("S2").Select
ActiveCell.FormulaR1C1 = "=RC[-11]+RC[-10]+RC[-9]"
Range("S2").Select
Selection.AutoFill Destination:=Range("S2:S41"), Type:=xlFillDefault
Range("S2:S41").Select

Range("T2").Select
ActiveCell.FormulaR1C1 = "=RC[-9]+RC[-8]+RC[-7]"
Range("T2").Select
Selection.AutoFill Destination:=Range("T2:T41"), Type:=xlFillDefault
Range("T2:T41").Select

这里就是我遇到问题的地方。如果要满足另一列中的条件，我希望此代码仅将A列中的某些行变为蓝色。

 Dim cell As Range
 Const cutoff = 26223
 For Each cell In Range("Q2:Q41")
 If cell.Offset(0, 1).Value > cutoff Then Cells().Font.Color =      vbBlue
 Next
 End Sub

Answer 1

坚持您的原始问题，即

我希望此代码仅将A列中的某些行变为蓝色满足另一栏中的条件。

您可以使用此代码

If cell.Offset(0, 1).Value > cutoff Then Cells(cell.Row,1).Font.Color = vbBlue

需要根据条件进行特定的行更改颜色

1 个答案: