Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как сравнить текст в разных ячейках с выделением отличий. - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как сравнить текст в разных ячейках с выделением отличий. (Формулы/Formulas)
Как сравнить текст в разных ячейках с выделением отличий.
flaviy Дата: Пятница, 20.03.2020, 13:25 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый день.

Подскажите пожалуйста макрос, который позволяет сравнить в двух ячейках текст, но с разным количеством букв. Нужно чтобы выделялись красным цветом только различия (файлик во вложении).
К сообщению приложен файл: 7744937.xlsx(12.0 Kb)
 
Ответить
СообщениеДобрый день.

Подскажите пожалуйста макрос, который позволяет сравнить в двух ячейках текст, но с разным количеством букв. Нужно чтобы выделялись красным цветом только различия (файлик во вложении).

Автор - flaviy
Дата добавления - 20.03.2020 в 13:25
Nic70y Дата: Пятница, 20.03.2020, 13:39 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 6087
Репутация: 1338 ±
Замечаний: 0% ±

ru13;10;03
[vba]
Код
Sub u_700()
    Application.ScreenUpdating = False
    u_1 = Cells(Rows.Count, "b").End(xlUp).Row
    For Each u In Range("b2:b" & u_1)
        u_2 = Len(u)
        u_3 = Len(u.Offset(0, -1))
        u_4 = u_2 - u_3
        u.Characters(Start:=u_3 + 1, Length:=u_4).Font.Color = -16776961
    Next
    Application.ScreenUpdating = True
End Sub
[/vba]


Яндекс Деньги 41001841029809
 
Ответить
Сообщение[vba]
Код
Sub u_700()
    Application.ScreenUpdating = False
    u_1 = Cells(Rows.Count, "b").End(xlUp).Row
    For Each u In Range("b2:b" & u_1)
        u_2 = Len(u)
        u_3 = Len(u.Offset(0, -1))
        u_4 = u_2 - u_3
        u.Characters(Start:=u_3 + 1, Length:=u_4).Font.Color = -16776961
    Next
    Application.ScreenUpdating = True
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 20.03.2020 в 13:39
greenХХ Дата: Понедельник, 23.03.2020, 11:16 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Nic70y, не совсем понимаю как макрос работает?
Не могли бы пояснить - я зеленный еще
 
Ответить
СообщениеNic70y, не совсем понимаю как макрос работает?
Не могли бы пояснить - я зеленный еще

Автор - greenХХ
Дата добавления - 23.03.2020 в 11:16
Nic70y Дата: Понедельник, 23.03.2020, 11:30 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 6087
Репутация: 1338 ±
Замечаний: 0% ±

ru13;10;03
данный макрос будет работать при условии, что текст в столбце b всегда длиннее текста в столбце a.
u_1 = Cells(Rows.Count, "b").End(xlUp).Row

определяем последнюю заполненную строку столба "b"
далее циклом (т.е. сравниваем каждую ячейку) проходим по диапазону
For Each u In Range("b2:b" & u_1)

вычисляем кол-во символов в ячейке b:
u_2 = Len(u)

вычисляем кол-во символов в ячейке a:
u_3 = Len(u.Offset(0, -1))

Offset(0, -1) = смещение от b на -1 столбец (т.е. влево на 1 столбец = a)
далее изменяем цвет шрифта
u.Characters(Start:=u_3 + 1, Length:=u_4).Font.Color = -16776961
начиная символа по счету больше на 1, чем длина текста в ячейке a.
кол-во символов = разности длин текста


Яндекс Деньги 41001841029809
 
Ответить
Сообщениеданный макрос будет работать при условии, что текст в столбце b всегда длиннее текста в столбце a.
u_1 = Cells(Rows.Count, "b").End(xlUp).Row

определяем последнюю заполненную строку столба "b"
далее циклом (т.е. сравниваем каждую ячейку) проходим по диапазону
For Each u In Range("b2:b" & u_1)

вычисляем кол-во символов в ячейке b:
u_2 = Len(u)

вычисляем кол-во символов в ячейке a:
u_3 = Len(u.Offset(0, -1))

Offset(0, -1) = смещение от b на -1 столбец (т.е. влево на 1 столбец = a)
далее изменяем цвет шрифта
u.Characters(Start:=u_3 + 1, Length:=u_4).Font.Color = -16776961
начиная символа по счету больше на 1, чем длина текста в ячейке a.
кол-во символов = разности длин текста

Автор - Nic70y
Дата добавления - 23.03.2020 в 11:30
greenХХ Дата: Понедельник, 23.03.2020, 12:25 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Возможно ли сделать так чтобы у меня сравнивалось обозначение из определенного столбца с обозначением в другом (закупочном) и подсвечивались отличия?
Пример прикладываю
К сообщению приложен файл: 0617471.xlsx(10.2 Kb)
 
Ответить
СообщениеВозможно ли сделать так чтобы у меня сравнивалось обозначение из определенного столбца с обозначением в другом (закупочном) и подсвечивались отличия?
Пример прикладываю

Автор - greenХХ
Дата добавления - 23.03.2020 в 12:25
Nic70y Дата: Понедельник, 23.03.2020, 12:28 | Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 6087
Репутация: 1338 ±
Замечаний: 0% ±

ru13;10;03
greenХХ, ну во-вторых из Вашего файла мало что-то понятно - одна строка примера не показатель,
а в-первых Вы должны создать свою тему (правила у нас тут такие)


Яндекс Деньги 41001841029809
 
Ответить
СообщениеgreenХХ, ну во-вторых из Вашего файла мало что-то понятно - одна строка примера не показатель,
а в-первых Вы должны создать свою тему (правила у нас тут такие)

Автор - Nic70y
Дата добавления - 23.03.2020 в 12:28
flaviy Дата: Четверг, 09.04.2020, 13:38 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Nic70y, спасибо за помощь.
 
Ответить
СообщениеNic70y, спасибо за помощь.

Автор - flaviy
Дата добавления - 09.04.2020 в 13:38
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как сравнить текст в разных ячейках с выделением отличий. (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2020 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!