ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Анализ наличия цветового выделения ячейки...
15 сообщений из 15, страница 1 из 1
Анализ наличия цветового выделения ячейки...
    #35130766
АЛХ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АЛХ
Гость
Уважаемые All!
Помогите пожалуйста с макросом.

Задача:
Есть таблица размера N столбцов на M строк
Необходимо, чтоб в результате анализа каждой строки, в столбце N+1, появился занак "+", если хотя бы одна ячейка в строке имела цвет отличный от "без заливки"

Заранее благодарен
...
Рейтинг: 0 / 0
13.02.2008, 17:17:22
| Ответить | Цитировать | Написать  
Анализ наличия цветового выделения ячейки...
    #35131185
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
И что именно не получается ?
Ключевой момент — проверка условия ActiveCell.Interior.ColorIndex= xlColorIndexNone .
...
Рейтинг: 0 / 0
13.02.2008, 20:27:46
| Ответить | Цитировать | Написать  
Анализ наличия цветового выделения ячейки...
    #35131271
АЛХ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АЛХ
Гость
И что именно не получается ?

Я не программист :red:
...
Рейтинг: 0 / 0
13.02.2008, 21:54:00
| Ответить | Цитировать | Написать  
Анализ наличия цветового выделения ячейки...
    #35131476
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Вот так прикольно, сразу всю строку смотрит и не нужно ячейки перебирать
Код: plaintext
1.
2.
3.
4.
5.
6.
Sub test()
Dim myRng As Range, iRow As Range
Set myRng = Range("A1:H10")
For Each iRow In myRng.Rows
 If iRow.Interior.ColorIndex = xlColorIndexNone Then Else iRow.Resize(,  1 ).Offset(, iRow.Columns.Count) = "+"
Next iRow
End Sub
...
Рейтинг: 0 / 0
14.02.2008, 01:38:21
| Ответить | Цитировать | Написать  
Анализ наличия цветового выделения ячейки...
    #35131762
LETME
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LETME
Участник
DeggasadВот так прикольно, сразу всю строку смотрит и не нужно ячейки перебирать
Код: plaintext
1.
2.
3.
4.
5.
6.
Sub test()
Dim myRng As Range, iRow As Range
Set myRng = Range("A1:H10")
For Each iRow In myRng.Rows
 If iRow.Interior.ColorIndex = xlColorIndexNone Then Else iRow.Resize(,  1 ).Offset(, iRow.Columns.Count) = "+"
Next iRow
End Sub

Небольшие уточнения - ...ведь не всю строку, а диапазон... и ячейки в нем именно перебирает...
...
Рейтинг: 0 / 0
14.02.2008, 09:51:29
| Ответить | Цитировать | Написать  
Анализ наличия цветового выделения ячейки...
    #35132344
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
LETME DeggasadВот так прикольно, сразу всю строку смотрит и не нужно ячейки перебирать
Код: plaintext
1.
2.
3.
4.
5.
6.
Sub test()
Dim myRng As Range, iRow As Range
Set myRng = Range("A1:H10")
 For Each iRow In myRng.Rows ' Цикл по строкам диапазона, но не по ячекам строки
 If iRow.Interior.ColorIndex = xlColorIndexNone Then Else iRow.Resize(,  1 ).Offset(, iRow.Columns.Count) = "+"
Next iRow
End Sub

Небольшие уточнения - ...ведь не всю строку, а диапазон... и ячейки в нем именно перебирает...
...
Рейтинг: 0 / 0
14.02.2008, 12:25:54
| Ответить | Цитировать | Написать  
Анализ наличия цветового выделения ячейки...
    #35132372
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Весь прикол в это строке
Код: plaintext
 If iRow.Interior.ColorIndex = xlColorIndexNone Then Else iRow.Resize(,  1 ).Offset(, iRow.Columns.Count) = "+"
Ничего странного не замечаешь
попробуй написать её как нибуть по другому и результат не получится
...
Рейтинг: 0 / 0
14.02.2008, 12:33:28
| Ответить | Цитировать | Написать  
Анализ наличия цветового выделения ячейки...
    #35132792
АЛХ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АЛХ
Гость
Всё отлично, только одна проблемка.
Макрос неадекватно реагирует на наличие формулы в ячейке, а именно если в строке присутствует формула, то он лепит плюсик в конце, хотя ни одна ячейка при этом в строке не закрашена
...
Рейтинг: 0 / 0
14.02.2008, 14:12:43
| Ответить | Цитировать | Написать  
Анализ наличия цветового выделения ячейки...
    #35133216
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
АЛХВсё отлично, только одна проблемка.
Макрос неадекватно реагирует на наличие формулы в ячейке, а именно если в строке присутствует формула, то он лепит плюсик в конце, хотя ни одна ячейка при этом в строке не закрашена
Это вряд ли
Хочешь сам ищи ошибку, хочешь выложи файл - мы посмотрим
...
Рейтинг: 0 / 0
14.02.2008, 15:33:57
| Ответить | Цитировать | Написать  
Анализ наличия цветового выделения ячейки...
    #35133368
АЛХ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АЛХ
Гость
...выложи файл - мы посмотрим

выкладываю =)
...
Рейтинг: 0 / 0
14.02.2008, 16:09:35
| Ответить | Цитировать | Написать  
Анализ наличия цветового выделения ячейки...
    #35133990
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
АЛХ ...выложи файл - мы посмотрим

выкладываю =)

Я выделил диапазон и нажал ещё раз убрать заливку, после этого всё заработало
...
Рейтинг: 0 / 0
14.02.2008, 19:12:03
| Ответить | Цитировать | Написать  
Анализ наличия цветового выделения ячейки...
    #35134157
АЛХ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АЛХ
Гость
Я выделил диапазон и нажал ещё раз убрать заливку, после этого всё заработало
Т.е. были ячейки, в которых была белая заливка =(
А нельзя ли было добавить условие на исключение наличия белого цвета =/
...
Рейтинг: 0 / 0
14.02.2008, 21:44:07
| Ответить | Цитировать | Написать  
Анализ наличия цветового выделения ячейки...
    #35134165
АЛХ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АЛХ
Гость
Я выделил диапазон и нажал ещё раз убрать заливку, после этого всё заработало

Т.е. получается что где-то в ячейке присутствовал цвет заливки =/ Наверное белый...
А нельзя ли добавить в макрос условие, на исключение белого цвета, и чтоб только тогда рисовался плюсик.

Спасибо, заранее.
...
Рейтинг: 0 / 0
14.02.2008, 21:47:54
| Ответить | Цитировать | Написать  
Анализ наличия цветового выделения ячейки...
    #35134294
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Ладно придётся перебором
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Sub test()
Dim myRng As Range, iRow As Range, iCel As Range, flag As Boolean
Set myRng = Range("A1:B14")
For Each iRow In myRng.Rows
 flag = False
 For Each iCel In iRow.Cells
  If iCel.Interior.ColorIndex <> xlNone And iCel.Interior.ColorIndex <>  2  Then flag = True
 Next iCel
 If flag Then iRow.Resize(,  1 ).Offset(, iRow.Columns.Count) = "+"
Next iRow
End Sub
...
Рейтинг: 0 / 0
14.02.2008, 23:13:17
| Ответить | Цитировать | Написать  
Анализ наличия цветового выделения ячейки...
    #35135295
АЛХ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АЛХ
Гость
УРА! Спасибо!
...
Рейтинг: 0 / 0
15.02.2008, 14:54:49
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Анализ наличия цветового выделения ячейки...
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=35131476&tid=2181424]:
 0ms
get settings:
 5ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 42ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 31ms
get tp. blocked users:
 1ms
others: 214ms
total:  313ms
созд. / загр.: 313ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]