Excel сравнить ячейки- советы и идеии тоже нужны

@studentrm · Регистрация: 13.12.2015

Студворк — интернет-сервис помощи студентам

Всем, добрый день.РЕбята сломал голову. Благодарю, что открыли мою тему. Имеется область в excel, ячейки которой, разукрашены разными цветами. Необходимо сравнить их, по строкам,руководствуясь правилами:
зеленый=желтый=красный - все хорошо
если же красный желтый или же зеленый красный или желтый потом зеленый,
Для получения информации о соблюдении данных правил, построить столбец где 1 все хрошо, 0 - плохо
....присваивал каждому цвету значения цифровой и руками смотрел, можно ли ка-нибудь облегчить?

@studentrm · 17.05.2016, 23:29 **[ТС]**

по строчка
первая - если за з след з или ж, то все хорошо, если за з след к или ч - плохо
вторая - если за ж след зелен или красный или желтый то все хорошо, если за ж идет ч - плохо
третья - если после к идет или желтый или черный или красный все хорошо, если после к идет зелная плохо,
четвертая - если после черного идет чер или красный, то все хорошо, если после черного идет з или ж опасно

@Alex77755 · 17.05.2016, 23:47

Ну раз так, то надо расписать все эти строчки в условиях переходов

Добавлено через 14 минут
как-то так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub qwert()
Dim rn As Range, r, c, z, p
Set rn = Range("K1:T15")
For r = 1 To rn.Rows.Count
Cells(r, 21) = 0
p = 0
    For c = 1 To rn.Columns.Count
        z = rn.Cells(r, c).Interior.ColorIndex
        Debug.Print r, c, z
        Select Case p
            Case 0
                p = z
            Case 1
                If z = 14 Or z = 6 Then GoTo 1
            Case 3
                If z = 14 Then GoTo 1
            Case 6
                If z = 1 Then GoTo 1
            Case 14
                If z = 3 Or z = 1 Then GoTo 1
        End Select
        p = z
    Next c
Cells(r, 21) = 1
1 Next r
End Sub

@studentrm · 18.05.2016, 07:03 **[ТС]**

спасибо большое. Подскажите пожалуйста литературу по VBA?

@Alex77755 · 18.05.2016, 07:35

Для начала вполне хватает встроенного справочника.
Я пользовался ( и до сих пор заглядываю) в в русскоязычный. Кажется в 97 офисе был. Я его выдрал и сохранил.
есть подборка просто на форуме
Не забанят за ссылку на другой ресурс?

@studentrm · 21.05.2016, 19:24 **[ТС]**

Alex77755, написал Вам в скайпе. Решил не ждать и написал сюда вновь. Еще раз прощу прощения за беспокойство. Необходимо выполнить макрос с определенного столбца (например АА1) количество столбцов необходимо указать через форму как и количество строк. Заранее большое спасибо

@Alex77755 · 22.05.2016, 09:02

studentrm, Даже не стал открывать в екселе...

Необходимо выполнить макрос с определенного столбца (например АА1)

ХМ
Чего-то я не могу понять имя столбца "AA1"! Такое бывает! Наверное просто "АА"
Можно использовать контрол RefEdit и при его активации выбирать диапазон мышкой Как в примере во вложении)
можно тоже мышкой через диалог

Visual Basic
1
 Set rn = Application.InputBox("Выберите диапазон:", Type:=8)

Можно через значения номеров строк и столбцов

Visual Basic
1
 Set Rn = Range(Cells(1, 1), Cells(i, 1))

@studentrm · 22.05.2016, 16:30 **[ТС]**

Спасибо огромнейшее!!!

Добавлено через 1 час 30 минут
Alex77755, результирующий столбец не сдвигается вместе с диапзоном. Будет ли уместо, прописать правило, если строка не принадлежит диапазону, то например "не входит в диапозон

Добавлено через 8 минут
или же сдвинуть cell?

Добавлено через 1 час 58 минут
можно ли как-нибудь назвать результирующий столбец, для того чтобы отфильтровать по нему?

Добавлено через 2 часа 31 минуту
со сдвигом разобрался , извините за беспокойство

Добавлено через 11 минут
осталось только можно ли как-нибудь назвать результирующий столбец, для того чтобы отфильтровать по нему?

Новые блоги и статьи Все статьи Все блоги /
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .

Excel сравнить ячейки- советы и идеии тоже нужны

Решение

Решение

Решение

@studentrm 6 / 6 / 1 Регистрация: 13.12.2015 Сообщений: 398
	17.05.2016, 23:29 [ТС]
	по строчка первая - если за з след з или ж, то все хорошо, если за з след к или ч - плохо вторая - если за ж след зелен или красный или желтый то все хорошо, если за ж идет ч - плохо третья - если после к идет или желтый или черный или красный все хорошо, если после к идет зелная плохо, четвертая - если после черного идет чер или красный, то все хорошо, если после черного идет з или ж опасно 0

@studentrm 6 / 6 / 1 Регистрация: 13.12.2015 Сообщений: 398
	18.05.2016, 07:03 [ТС]
	спасибо большое. Подскажите пожалуйста литературу по VBA? 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	18.05.2016, 07:35
	Сообщение было отмечено studentrm как решение Решение Для начала вполне хватает встроенного справочника. Я пользовался ( и до сих пор заглядываю) в в русскоязычный. Кажется в 97 офисе был. Я его выдрал и сохранил. есть подборка просто на форуме Не забанят за ссылку на другой ресурс? 0

@studentrm 6 / 6 / 1 Регистрация: 13.12.2015 Сообщений: 398
	22.05.2016, 16:30 [ТС]
	Спасибо огромнейшее!!! Добавлено через 1 час 30 минут Alex77755, результирующий столбец не сдвигается вместе с диапзоном. Будет ли уместо, прописать правило, если строка не принадлежит диапазону, то например "не входит в диапозон Добавлено через 8 минут или же сдвинуть cell? Добавлено через 1 час 58 минут можно ли как-нибудь назвать результирующий столбец, для того чтобы отфильтровать по нему? Добавлено через 2 часа 31 минуту со сдвигом разобрался , извините за беспокойство Добавлено через 11 минут осталось только можно ли как-нибудь назвать результирующий столбец, для того чтобы отфильтровать по нему? 0