Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
studentrm
6 / 6 / 1
Регистрация: 13.12.2015
Сообщений: 387
1

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

15.05.2016, 12:17. Просмотров 1324. Ответов 26

Всем, добрый день.РЕбята сломал голову. Благодарю, что открыли мою тему. Имеется область в excel, ячейки которой, разукрашены разными цветами. Необходимо сравнить их, по строкам,руководствуясь правилами:
зеленый=желтый=красный - все хорошо
если же красный желтый или же зеленый красный или желтый потом зеленый,
Для получения информации о соблюдении данных правил, построить столбец где 1 все хрошо, 0 - плохо
....присваивал каждому цвету значения цифровой и руками смотрел, можно ли ка-нибудь облегчить?
0
Вложения
Тип файла: xlsx pilot.xlsx (9.0 Кб, 9 просмотров)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.05.2016, 12:17
Ответы с готовыми решениями:

Как сравнить процентные ячейки в Excel VBA
Добрый день. Нужно сравнить две ячейки, у которых формат ячеек процентный, поэтому Value не...

Нужны советы
1.Что такое свойство? 2. Что представляет собой делегат? 3. Почему делегат называют...

Нужны советы
Добрый день! Я хочу попросить совета у опытных програмистов! У меня началась практика в...

Нужны советы
Хочу услышать критику в адрес pc54.ru что лишнее, чего не хватает, где ошибся?

26
studentrm
6 / 6 / 1
Регистрация: 13.12.2015
Сообщений: 387
17.05.2016, 23:29  [ТС] 21
по строчка
первая - если за з след з или ж, то все хорошо, если за з след к или ч - плохо
вторая - если за ж след зелен или красный или желтый то все хорошо, если за ж идет ч - плохо
третья - если после к идет или желтый или черный или красный все хорошо, если после к идет зелная плохо,
четвертая - если после черного идет чер или красный, то все хорошо, если после черного идет з или ж опасно
0
Alex77755
11001 / 3455 / 594
Регистрация: 13.02.2009
Сообщений: 10,271
17.05.2016, 23:47 22
Лучший ответ Сообщение было отмечено studentrm как решение

Решение

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

Добавлено через 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
0
studentrm
6 / 6 / 1
Регистрация: 13.12.2015
Сообщений: 387
18.05.2016, 07:03  [ТС] 23
спасибо большое. Подскажите пожалуйста литературу по VBA?
0
Alex77755
11001 / 3455 / 594
Регистрация: 13.02.2009
Сообщений: 10,271
18.05.2016, 07:35 24
Лучший ответ Сообщение было отмечено studentrm как решение

Решение

Для начала вполне хватает встроенного справочника.
Я пользовался ( и до сих пор заглядываю) в в русскоязычный. Кажется в 97 офисе был. Я его выдрал и сохранил.
есть подборка просто на форуме
Не забанят за ссылку на другой ресурс?
0
studentrm
6 / 6 / 1
Регистрация: 13.12.2015
Сообщений: 387
21.05.2016, 19:24  [ТС] 25
Alex77755, написал Вам в скайпе. Решил не ждать и написал сюда вновь. Еще раз прощу прощения за беспокойство. Необходимо выполнить макрос с определенного столбца (например АА1) количество столбцов необходимо указать через форму как и количество строк. Заранее большое спасибо
0
Вложения
Тип файла: rar 12.rar (32.8 Кб, 1 просмотров)
Alex77755
11001 / 3455 / 594
Регистрация: 13.02.2009
Сообщений: 10,271
22.05.2016, 09:02 26
Лучший ответ Сообщение было отмечено studentrm как решение

Решение

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))
0
Вложения
Тип файла: rar pilot (4).rar (25.5 Кб, 2 просмотров)
studentrm
6 / 6 / 1
Регистрация: 13.12.2015
Сообщений: 387
22.05.2016, 16:30  [ТС] 27
Спасибо огромнейшее!!!

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

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

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

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

Добавлено через 11 минут
осталось только можно ли как-нибудь назвать результирующий столбец, для того чтобы отфильтровать по нему?
0
22.05.2016, 16:30
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.05.2016, 16:30

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Нужны советы.
Что должно быть и чего не должно быть в белом каталоге статей??? Подскажите пожалуйста. У меня есть...

Нужны советы
Здравствуйте. Меня интересуют ваши мысли по поводу ситуации и советы. Ситуация следующая, я-...

Нужны советы по продвижению
Здравствуйте! Запустил сайт по музыке, варезник, хочу продвинуть по запросам: скачать музыку...

Нужны идеи и советы
Нужна помощь с определением темы дипломной работы! Хочу разработать какое-нибудь полезное...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
27
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.