Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/15.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 如果列值大于零,则高亮显示行范围_Excel_Vba - Fatal编程技术网

Excel 如果列值大于零,则高亮显示行范围

Excel 如果列值大于零,则高亮显示行范围,excel,vba,Excel,Vba,我有一份包含C5到H?中各种数据的工作表?。H长度在不同的工作表上会有所不同,但根据工作表的不同会大于2000 因此,我需要一个VBA宏来检查H列中每个单元格中的值,如果有大于零的值,则突出显示从C列到L列的那一行。如何: Sub ColorMeElmo() Dim N As Long, i As Long N = Cells(Rows.Count, "H").End(xlUp).Row For i = 1 To N v = Cells(i, "H").V

我有一份包含C5到H?中各种数据的工作表?。H长度在不同的工作表上会有所不同,但根据工作表的不同会大于2000

因此,我需要一个VBA宏来检查H列中每个单元格中的值,如果有大于零的值,则突出显示从C列到L列的那一行。

如何:

Sub ColorMeElmo()
    Dim N As Long, i As Long
    N = Cells(Rows.Count, "H").End(xlUp).Row
    For i = 1 To N
        v = Cells(i, "H").Value
        If v > 0 Then
            Range("C" & i & ":L" & i).Interior.ColorIndex = 27
        End If
    Next i
End Sub

使用一些条件格式可能会更好。我更喜欢使用VBA。H长度在不同的工作表上会有所不同,但会大于2000,这取决于工作表。这是什么意思?到目前为止你试过什么?我认为条件格式是最好的方式。我将使用不同的工作表。工作表1可能包含C5到H2100的数据。工作表2将包含从C5到H2410等的数据。我发现的大多数宏每隔一行高亮显示一次,但只有当值大于0时,我才需要高亮显示该行。同样,我更喜欢使用VBA宏,而不是条件格式。我发现许多宏接近我想要做的,但我没有成功地修改它们以实现我想要的。我认为这对于有VBA经验的人来说是相当容易的。