EXACT

' Basic EXACT in VBA
Range("C1").Value = Application.WorksheetFunction.Exact(Range("A1").Value, Range("B1").Value)

' Using VBA Exact function
Dim text1 As String
Dim text2 As String
text1 = "Excel"
text2 = "excel"
Dim result As Boolean
result = Application.WorksheetFunction.Exact(text1, text2)
Debug.Print result ' Output: False

' Compare multiple cells
Sub CompareCells()
    Dim cell As Range
    For Each cell In Range("A1:A10")
        Dim compareCell As Range
        Set compareCell = cell.Offset(0, 1)
        cell.Offset(0, 2).Value = Application.WorksheetFunction.Exact(cell.Value, compareCell.Value)
    Next cell
End Sub

' Validate password match
Function ValidatePassword(inputPassword As String, correctPassword As String) As Boolean
    ValidatePassword = Application.WorksheetFunction.Exact(inputPassword, correctPassword)
End Function

' Compare with case handling options
Function CompareTextExact(text1 As String, text2 As String, Optional caseSensitive As Boolean = True) As Boolean
    If caseSensitive Then
        CompareTextExact = Application.WorksheetFunction.Exact(text1, text2)
    Else
        CompareTextExact = (UCase(text1) = UCase(text2))
    End If
End Function

' Find exact matches in range
Function FindExactMatches(searchText As String, searchRange As Range) As Collection
    Dim matches As New Collection
    Dim cell As Range
    For Each cell In searchRange
        If Application.WorksheetFunction.Exact(cell.Value, searchText) Then
            matches.Add cell.Address
        End If
    Next cell
    Set FindExactMatches = matches
End Function

' Validate data entry
Sub ValidateDataEntry()
    Dim inputCell As Range
    Set inputCell = Range("B1")
    Dim validValue As String
    validValue = "Approved"
    
    If Application.WorksheetFunction.Exact(inputCell.Value, validValue) Then
        inputCell.Interior.Color = RGB(0, 255, 0) ' Green
    Else
        inputCell.Interior.Color = RGB(255, 0, 0) ' Red
    End If
End Sub