Пожалуйста, помогите составить код для подсчета заливки ячейки желтым цветом. Например, при заливке желтым цветом ячейки в столбце "В", в ячейке столбца "А" значение изменялось на +1. Затем цвет ячейки в столбце "В" может меняться на любой другой, но как только он опять будет изменен на желтый - значение в ячейке столбца "А" добавлялось на 1.
Пожалуйста, помогите составить код для подсчета заливки ячейки желтым цветом. Например, при заливке желтым цветом ячейки в столбце "В", в ячейке столбца "А" значение изменялось на +1. Затем цвет ячейки в столбце "В" может меняться на любой другой, но как только он опять будет изменен на желтый - значение в ячейке столбца "А" добавлялось на 1.lex12a
Sub u_627() Application.ScreenUpdating = False u = Cells(Rows.Count, "a").End(xlUp).Row For Each v In Range("b1:b" & u) w = v.Interior.Color x = v.Offset(0, -1).Value y = Application.IsNumber(x) If w = 65535 And y Then v.Offset(0, -1) = "'" & (x + 1) If w <> 65535 And y = False Then v.Offset(0, -1) = --x Next Application.ScreenUpdating = True End Sub
[/vba]
[vba]
Код
Sub u_627() Application.ScreenUpdating = False u = Cells(Rows.Count, "a").End(xlUp).Row For Each v In Range("b1:b" & u) w = v.Interior.Color x = v.Offset(0, -1).Value y = Application.IsNumber(x) If w = 65535 And y Then v.Offset(0, -1) = "'" & (x + 1) If w <> 65535 And y = False Then v.Offset(0, -1) = --x Next Application.ScreenUpdating = True End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
