在“A”到“H”范圍內,當滿足 H 單元格中的條件時,我想改變顏色。我的代碼有效,但如果我使用這個,它會改變整行顏色:
For Each h In shXL.Range("A2:H150").Columns(8).Cells
If h.Value > 14 Then
h.EntireRow.Interior.Color = Color.FromArgb(251, 254, 138)
End If
Next
或者顏色隨著從 H 到 N 的轉變而改變,當我使用這個時:
For Each h In shXL.Range("A2:H150").Columns(8).Cells
If h.Value > 14 Then
h.Range("A1:H1").Interior.Color = Color.FromArgb(251, 254, 138)
End If
Next
怎么做?
uj5u.com熱心網友回復:
您可以通過多種方式來實作,例如以下。
在您的示例A1:H1中,相對于 H 列,因此 H 到 N 而不是 A 到 H。
For Each h In shXL.Range("H2:H150")
If h.Value > 14 Then
h.offset(,-7).resize(,8).Interior.Color = Color.FromArgb(251, 254, 138)
End If
Next
轉載請註明出處,本文鏈接:https://www.uj5u.com/houduan/338663.html
上一篇:excel按時間計劃分配小時值
下一篇:啟用和禁用文本框
