Здравствуйте, помогите пожалуйста - Сравнить столбцы С7..С40 с D7..D40, F7..F40 с G7..G40, I7..I40 с J7..J40, L7...L40 с M7..M40, R7..R40 с S7..S40, O7..O40 с P7..P40, U7..U40 с V7..V40, X7..X40 с Y7..Y40, AA7..AA40 с AB7..AB40, AD7..AD40 с AE7..AE40, AG7..AG40 с AH7..AH40, AJ7..AJ40 с AK7..AK40, если не совпадает, то выделить красным цветом. Сделать через vba. Макрос должен отрабатывать при открытии файла.....Заранее благодарю
Например столбцы: С7..С40 с D7..D40.
Сравнить надо C7 с D7? Если не совпали, то закрасить эти две ячейки?
Затем сравнить C8 с D8? Если не совпали, то закрасить эти две ячейки?
Так? Или я что-то не учёл?
да! C7 с D7, С8 c D8, С9 c D9 и тд до 40
так же F7 с G7, F8 с G8 и тд
I7 c j7, I8 с J8 и тд
например, если не совпали C9 и D9, закрасить их
Макрос
Sub Макрос()
Dim i As Long, j As Long
' Отключение монитора, чтобы ускорить макрос.
Application.ScreenUpdating = False
' Закраска.
For j = Columns("C").Column To Columns("AJ").Column Step 3
For i = 7 To 40
If Cells(i, j).Value <> Cells(i, j + 1).Value Then
Cells(i, j).Resize(, 2).Interior.Color = vbRed
End If
Next i
Next j
' Сообщение.
Application.ScreenUpdating = True
MsgBox "Готово.", vbInformation
End Sub
Что то не срабатывает
У меня на том файле, который вы предоставили, работает.
В чём выражается "не срабатывает"? Ошибка происходит или неправильный результат?
Ошибки нет, но и ничего не закрасил. Т.е. нет результата
Вы запускаете на том файле, который предоставили на форуме?
Вот файл после макроса.
Сообщение "Готово" было у вас?
Да. Я его сохранила с расширение трен.xlsm макроса. Макрос вставила в VBA Лист1(Лист1)
"Готово" не было
Я забыл, что вы просили, чтобы макрос запускался при открытии. Сейчас посмотрю.
Спасибо
Макрос я поместил в ЭтаКнига.
Все работает! Благодарю Вас