ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / фильтрация разноцветных записей в Excel
10 сообщений из 10, страница 1 из 1
фильтрация разноцветных записей в Excel
    #33135064
Guest100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Guest100
Гость
Скажите, пожалуйста, возможно ли из списка выбрать записи (фильтром или каким-нибудь другим способом) только определенного цвета? Как это сделать?
...
Рейтинг: 0 / 0
26.06.2005, 00:13:27
| Ответить | Цитировать | Написать  
фильтрация разноцветных записей в Excel
    #33135884
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Как вариант, программно заполнить соседний столбец значениями цветовой палитры и соответсвенно по ним фильтровать.
...
Рейтинг: 0 / 0
27.06.2005, 11:55:04
| Ответить | Цитировать | Написать  
фильтрация разноцветных записей в Excel
    #33137226
Guest100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Guest100
Гость
А как можно программно заполнить соседний столбец? И как фильтровать по нему?
...
Рейтинг: 0 / 0
27.06.2005, 22:43:16
| Ответить | Цитировать | Написать  
фильтрация разноцветных записей в Excel
    #33137446
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Программа:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Sub TestX()
    Dim rng As Range
    Dim cel As Range
    Dim str1 As String
    Dim str2 As String
    
    Set rng = Range("A:A")
    
    str1 = rng.Columns.End(xlUp).Offset( 1 ,  0 ).Address
    str2 = rng.Columns.End(xlDown).Address
        
    Set rng = Range(str1 & ":" & str2)
    
    For Each cel In rng
        cel.Offset( 0 ,  1 ).Value = cel.Interior.Color
        cel.Offset( 0 ,  1 ).Interior.Color = cel.Interior.Color
    Next cel
    
    Range("A1:B1").AutoFilter
End Sub

Получается -- см. картинку. Берешь и фильтруешь по кодовому значения цвета.
...
Рейтинг: 0 / 0
28.06.2005, 09:44:11
| Ответить | Цитировать | Написать  
фильтрация разноцветных записей в Excel
    #33137566
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
А чё, условное форматирование разве не катит????
Stepler (щёлк-щёлк!!)

Код: plaintext
 P.S.Присутствовали ли Вы, когда Вас фотографировали?
...
Рейтинг: 0 / 0
28.06.2005, 10:39:26
| Ответить | Цитировать | Написать  
фильтрация разноцветных записей в Excel
    #33139300
Guest100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Guest100
Гость
Спасибо огромное. А что надо изменить, если нужно фильтровать по цвету текста, а не по цвету заливки? И еще, чтобы код цвета добавлялся, например, в столбец М? Расскажите, пожалуйста, чайнику.
...
Рейтинг: 0 / 0
28.06.2005, 23:25:59
| Ответить | Цитировать | Написать  
фильтрация разноцветных записей в Excel
    #33140651
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Guest100А что надо изменить, если нужно фильтровать по цвету текста, а не по цвету заливки?
Код: plaintext
cel.Font.Color

Guest100И еще, чтобы код цвета добавлялся, например, в столбец М?
Код: plaintext
cel.Offset( 0 ,  12 ).Value = ...

Соответственно программа будет выглядить также, за исключением:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
    For Each cel In rng
        cel.Offset( 0 ,  1 ).Value = cel.Interior.Color
        cel.Offset( 0 ,  1 ).Interior.Color = cel.Interior.Color
        cel.Offset( 0 ,  12 ).Value = cel.Font.Color
        cel.Offset( 0 ,  12 ).Font.Color = cel.Font.Color
    Next cel
    
    Range("A1:M1").AutoFilter
...
Рейтинг: 0 / 0
29.06.2005, 15:23:02
| Ответить | Цитировать | Написать  
фильтрация разноцветных записей в Excel
    #33141551
Guest100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Guest100
Гость
Огромнейшее спасибо! Все классно работает.
Подскажите новичку, как можно самому научиться писать такие штуки?
А где найти описание функций? Может книжечку какую подскажете?
...
Рейтинг: 0 / 0
29.06.2005, 22:11:59
| Ответить | Цитировать | Написать  
фильтрация разноцветных записей в Excel
    #33141809
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Что может тебе помочь.

1. Сервис макрос --> Начать запись.
Выполняешь опеределенные действия, а потом смотришь сформированный код.

2. Справка VBA Excel, VBA Word и т.д. В ней представлены описания объектов, коллекций, свойств объектов. Приводятся примеры.
...
Рейтинг: 0 / 0
30.06.2005, 09:15:06
| Ответить | Цитировать | Написать  
фильтрация разноцветных записей в Excel
    #33147073
Guest100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Guest100
Гость
Справка по VBA - дело хорошее, только вот она вся на английском. Или может у меня криво поставлена? Я вот не очень в английском, поэтому со справкой сложно. Спасибо еще раз за помошь.
...
Рейтинг: 0 / 0
03.07.2005, 23:02:00
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / фильтрация разноцветных записей в Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&gotonew=1&tid=2185943]:
 0ms
get settings:
 6ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 45ms
get topic data:
 7ms
get first new msg:
 3ms
get forum data:
 1ms
get page messages:
 30ms
get tp. blocked users:
 1ms
others: 190ms
total:  297ms
созд. / загр.: 297ms
x
x
Закрыть


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