![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 18.01.2012
Сообщений: 14
|
![]()
Здравствуйте Ув-е. ГУРУ VBA, у меня возникла маленькая проблема, прочитав книгу по VBA я попробовал написать код для своей проги на работе:
Окраска эталонной ячейки y: Sub Colors_Mat() Dim CompareRange As Variant, SompareRange As Variant, x As Variant, y As Variant Application.ScreenUpdating = False: On Error Resume Next Set CompareRange = Range("D5:D221") 'y эталонные числа Set SompareRange = Range("E5:E221") 'x числа мои For Each x In SompareRange For Each y In CompareRange For Each Cell In y If Cell.Value x < y Then Cell.Interior.ColorIndex = 6 If Cell.Value x > y Then Cell.Interior.ColorIndex = 3 Next y Next x End Sub Она нужна для закрашивания одной из ячеек D если соответсвующая ей ячейка E больше или меньше ее. Как видите УФ мне неподходит!!!! Вообщем проблема такова что закрашивает срезу весь столбик "D5:D221" без разбора и я немогу понять почему ???? ![]() |
![]() |
![]() |
![]() |
#2 |
Форумчанин
Регистрация: 25.02.2012
Сообщений: 166
|
![]()
не вижу.
имхо, оч. даже подходит. и у вас запускается макрос с такой строкой? не верю - у вас тут просто синтаксическая ошибка. не говоря уж о том, что у вас два оператора Next на три оператора For Each |
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 18.01.2012
Сообщений: 14
|
![]()
запускается с 5 й строки
|
![]() |
![]() |
![]() |
#4 |
Пользователь
Регистрация: 18.01.2012
Сообщений: 14
|
![]()
For Each ? Я посто незнаю как сделать проще, раньше прогал в МАткаде там такое можно по аналогии делаю и здесь
|
![]() |
![]() |
![]() |
#5 |
Форумчанин
Регистрация: 25.02.2012
Сообщений: 166
|
![]()
выложьте файлик с таким чудом.
|
![]() |
![]() |
![]() |
#6 |
Пользователь
Регистрация: 18.01.2012
Сообщений: 14
|
![]()
СЕкунду....
|
![]() |
![]() |
![]() |
#7 |
Форумчанин
Регистрация: 25.02.2012
Сообщений: 166
|
![]()
и гляньте вот этот пример с УФ.
ячейки ст. A красятся в зависимости от значений соседних ячеек в ст. B вы это хотели? |
![]() |
![]() |
![]() |
#8 |
Пользователь
Регистрация: 18.01.2012
Сообщений: 14
|
![]()
епрст а скоко тут допустимый размер загр-го файла!!!!
|
![]() |
![]() |
![]() |
#9 |
Пользователь
Регистрация: 18.01.2012
Сообщений: 14
|
![]()
да именно это я и хотел
|
![]() |
![]() |
![]() |
#10 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
![]()
Тут даже несмотря на неверный синтаксис неверная логика: проверяется каждая ячейка с каждой и перекрашивается на каждую проверку. Останется результат последнего сравнения, когда ячейки неравны (это конечно если смотреть "сквозь" все ошибки синтаксиса).
webmoney: E265281470651 Z422237915069 R418926282008
|
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Скорректировать код окраски повторяющих значений в листе.. | Slavatron1984 | Microsoft Office Excel | 2 | 19.12.2011 17:06 |
Проблема с рамами/Проблема с ЖД | DRAGGER | Компьютерное железо | 6 | 04.01.2009 23:37 |