Макрос подсчета совпадений

[Тандер]

Добрый день. Возникло много вопросов. Подробности в примере.
Начну по-порядку:

1) Есть Столбец 1, в него другим макросом заносятся цифры, для упрощения возьмем цифры 1 и 0.

2) В Столбец 2 и Столбец 3 заносится колличество совпадений, т.е. если цифра 1 есть в столбце 1 - то в Столбец 2 заносится единица с зеленым фоном. Если цифра 0 - то она заносится в Столбец 3 с розовым фоном.

Примечание: в столбец 2 и 3 заносится не сама цифра а колличество ее совпадений, то есть первый раз будет 1, если второй раз она есть на том же месте, то будет 2, в третий раз будет 3 и т.д.

И главное - место расположения Столбца 1, 2 и 3 НЕ МЕНЯЕТСЯ! В примере для удобства взято день 1, 2 и 3. На самом дете все столбцы будут на тех же самых местах, то есть данные будут меняться только в столбце 1, а в столбец 2 и 3 будут заноситься только количество совпадений с учетом предыдущих. Короче: день 2 и день три - взяты для примера того, как будут меняться события. Столбцы все время на своих местах (С11:С14, E11:E14, G11:G14).

Извените, трудно объяснить словами, что нужно. В любом случае всем благодарен!

[nerv]

ничего не ясно

[Тандер]

Объяснить сложно. Задавайте вопросы, так будет легче объяснить.

[nerv]

Сообщение от Тандер

Объяснить сложно. Задавайте вопросы, так будет легче объяснить.

Если задача не предусматривает вознаграждения, выяснять что именно Вам нужно (т.е. набирать много букв), нет ни желания, ни времени. В конце-концов, это нужно Вам, а не мне. Попытался помочь бесплатно, но из-за невнятного условия задачи не получилось.

[Тандер]

Прошу прощения, переработал вопрос. В прикрепленном файле подробно описано что и как. А так же сделал небольшую анимацию для наглядности.

[ikki_pf]

ничё не понял

[Тандер]

Спасибо за попытку, но тут уже я не понял по какому алгоритму работает макрос
Шутка, alt+F11 помог разобраться.
В прикрепленном примере то, что должно быть, может быть так нагляднее для вас.

[ikki_pf]

ну именно так макрос и работает

alt+F11 помог разобраться

может, вы друг друга не поняли?

[Тандер]

Хм, сперва не заметил, так как в столбцах уже были данные. Теперь вижу, что все верно, огромнейшее спасибо, но есть еще несколько нюансов:

For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row

1)Как я понял, макрос исходит из первой строки. Как сделать, чтобы исходил не из первой строки, а из, скажем А17? То есть как быть в случае, если строка "данные" находится в ячейке А17? Или, в любой другой? Можно ли ей придать такое значение A17:A177? Такое значение нужно по тому, что ваш макрос считает все строки от первой и до последней, если в их промежутке есть данные.

И последнее, нолики и единички были взяты для примера, как видоизменить макрос, чтобы считало скажем, цифры от 1 до 10?

Прошу прощение за обилие вопросов, я только учусь, но мне очень интересно и ваша помощь неоценима в этом!

[ikki_pf]

Сообщение от Тандер

придать такое значение A17:A177

For i = 17 To 177

чтобы считало скажем, цифры от 1 до 10?

т.е. будет 10 столбцов?