CODEWITHSUNDEEP
excelvbaperformanceconditional-formatting
Bartnick81
Bartnick81

Reputation: 73

Is there better method, performance wise, to do this?

Is there, maybe, a faster method of cell referencing for conditional formatting?

code example:

For Each cell In irow
    For i = 1 To arr_size
        If cell > start(i) - arr1(i) And start(i) > Var1 And cell <= Var2 Then
            cell.Interior.ColorIndex = 22
            Exit For
        End If
    Next i
Next cell

Upvotes: 0

Views: 91

Answers (1)

Tim Williams
Tim Williams

Reputation: 166685

Should be slightly faster:

Dim v, rng As Range

For Each cell In irow
    For i = 1 To arr_size
        If start(i) > Var1 Then
            v = cell.Value
            If v > start(i) - arr1(i) Then 
                If v <= Var2 Then
                    If rng Is Nothing then
                        Set rng = cell
                    Else
                        Set rng = aplication.union(rng, cell)
                    End If
                    Exit For
                End If
            End If
        End If
    Next i
Next cell

If Not rng Is Nothing then rng.Interior.ColorIndex = 22

Upvotes: 1

Related Questions