根据条件突出显示表中的特定行

我正在尝试使此宏有效。它应该根据条件突出显示表中的行。当我尝试偏移选定的范围时，只会突出显示表格中的单元格。但是当我这样做的时候，我的情况并不适合。我完全是新手，非常感谢您的任何建议。根据条件突出显示表中的特定行

Sub výklep() 

'Find the last non-blank cell in column 
LastRow = Range("C" & Rows.Count).End(xlUp).Row 
Set SelectedRange = Range("I6:I" & LastRow) 

For Each cell In SelectedRange 
    If cell.Value > 10 Then cell.Range(Cells(1, 1), Cells(1, 9)).Offset(1, -7).Interior.ColorIndex = 3 
Next 

End Sub

来源

2017-01-09 Jirka Mašek

条件格式化会更简单吗？ –

如果我在列I> 10中的单元格，比如说单元格I7，那么您想要做什么？然后，您想要更改单元格颜色的第7行中的哪些单元格？ –

而你试图抵消'Range（Cells（1,1），Cells（1，9））。Offset（1，-7）'，抵消第一列-7是-6，应该会出错导致错误 –

用减号（ - ）偏移时必须小心。在你的情况下，它是零下七（-7）。循环时，它会穿过页面的左边界，从而导致错误。

来源

2017-01-10 04:44:45

根据条件突出显示表中的特定行

回答

相关问题