Страницы: 1
RSS
Сравнение текста ячеек, с закраской не совпадающих символов
 
Всем привет!
В своё время мне попадался на глаза такой макрос, но ни как не могу его найти, нужно сравнить текст ячейки по содержимому и если он отличается подкрасить именно те символы которые не совпадают, без учета регистра, но с учетом рус англ текста и последовательности символов
 
На данный момент
Цитата
adamm написал:
не могу его найти
находится на 2 странице.
 
Как-то так. Сравнивает значения из диапазонов, указанных в начале кода посимвольно, без учёта регистра.
Код
Sub mark()
    Dim rngX As Range
    Dim rngY As Range
    Dim i As Long
    Dim j As Long
    Dim s1 As String
    Dim s2 As String
    
    Set rngX = Range("B1:B7")
    Set rngY = Range("C1:C7")
    
    For i = 1 To rngX.Rows.Count
        s1 = UCase(rngX(i, 1).Value)
        s2 = UCase(rngY(i, 1).Value)
        If Len(s1) > 0 Then
            For j = 1 To Len(s1)
                If Mid(s1, j, 1) <> Mid(s2, j, 1) Then rngX(i, 1).Characters(Start:=j, Length:=1).Font.Color = vbRed
            Next
        End If
    Next
End Sub
Я не волшебник, я только учусь.
 
Цитата
RAN написал:
находится на 2 странице.
Ну нормально. Теперь мне искать придётся, что там на второй странице.  :)  
Я не волшебник, я только учусь.
 
Wiss,Спасибо!!!
 
Wiss,  :D
Подкраска совпавшего текста по регистру
Страницы: 1
Наверх