How Use VBA To Evaluate Two Cells

This post is actually a response to a question someone had.

‪i need help comparing two cells with a high and low value, one of the cells is blue. Return 1 if the lowest value is blue color or return zero if the higher value is blue color. how do i perform this task in excel?‬

Here in this example we have 2 columns:

In order to evaluate the 2 columns, it’s best to generate a user defined function.

This is the code for the user defined function (in a module):

Public Function EvaluateCellContents(Row) As Integer
    Dim intResult As Integer
    Dim intRow As Integer
    
    Dim strBlue As String
    Dim strBlack As String
    
    strBlue = 13998939
    strBlack = 0
        
    intRow = Row
    
    intResult = 0
    
    'DOES RANGE A HAS A BLUE FONT COLOR?
    If Range("A" & intRow).Font.Color = strBlue Then
        'IS THE BLUE VALUE LOWER?
        If Range("A" & intRow) < Range("B" & intRow) Then
            intResult = 1
        Else
            intResult = 0
        End If
    End If
    
    'DOES RANGE B HAS A BLUE FONT COLOR?
    If Range("B" & intRow).Font.Color = strBlue Then
        'IS THE BLUE VALUE LOWER?
        If Range("B" & intRow) < Range("A" & intRow) Then
            intResult = 1
        Else
            intResult = 0
        End If
    End If
    
    
    EvaluateCellContents = intResult
    
End Function

This is the way to call it from the worksheet:

=EvaluateCellContents((ROW(A4)))

and here is the end result:

Let me know if you have any questions.

****************************************************


Posted

in

by

Tags: