Как подсчитать количество заливок в ячейке

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как подсчитать количество заливок в ячейке (Формулы/Formulas)

lex12a

Дата: Четверг, 26.05.2022, 03:09 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Пожалуйста, помогите составить код для подсчета заливки ячейки желтым цветом. Например, при заливке желтым цветом ячейки в столбце "В", в ячейке столбца "А" значение изменялось на +1. Затем цвет ячейки в столбце "В" может меняться на любой другой, но как только он опять будет изменен на желтый - значение в ячейке столбца "А" добавлялось на 1.

Ответить

Anis625

Дата: Четверг, 26.05.2022, 22:52 | Сообщение № 2

Группа: Заблокированные

Ранг: Ветеран

Сообщений: 674

Репутация: 31 ±

Замечаний: 20% ±

Excel 2013

lex12a,
Без примера не совсем понятно. Можно так через VBA

К сообщению приложен файл: ColorCount.xlsb (13.1 Kb)

Ответить

lex12a

Дата: Пятница, 27.05.2022, 00:29 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Anis625, Нет, у вас считает количество залитых ячеек, а нужно посчитать количество изменений желтого цвета для каждой ячейки столбца "В"...

Ответить

anisimovaleksandr32

Дата: Пятница, 27.05.2022, 08:21 | Сообщение № 4

Группа: Пользователи

Ранг: Участник

Сообщений: 78

Репутация: 4 ±

Замечаний: 20% ±

lex12a, вот тут вот посмотрите. Может это то что вы искали: My WebPage

Ответить

Nic70y

Дата: Пятница, 27.05.2022, 08:22 | Сообщение № 5

Группа: Друзья

Ранг: Экселист

Сообщений: 8761

Репутация: 2273 ±

Замечаний: 0% ±

Excel 2010

[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

[/vba]

К сообщению приложен файл: 8583192.xlsb (15.2 Kb)

ЮMoney 41001841029809

Ответить

lex12a

Дата: Пятница, 27.05.2022, 09:10 | Сообщение № 6

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Nic70y, Отлично! Правда через кнопку, но все работает. Спасибо!!!

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как подсчитать количество заливок в ячейке (Формулы/Formulas)

Страница 1 из 1
1