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

Код: 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, 10:39:26
    #33137566
Stepler
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
фильтрация разноцветных записей в Excel
А чё, условное форматирование разве не катит????
Stepler (щёлк-щёлк!!)

Код: plaintext
 P.S.Присутствовали ли Вы, когда Вас фотографировали?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.06.2005, 23:25:59
    #33139300
Guest100
Guest100
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
фильтрация разноцветных записей в Excel
Спасибо огромное. А что надо изменить, если нужно фильтровать по цвету текста, а не по цвету заливки? И еще, чтобы код цвета добавлялся, например, в столбец М? Расскажите, пожалуйста, чайнику.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.06.2005, 15:23:02
    #33140651
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
фильтрация разноцветных записей в Excel
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, 22:11:59
    #33141551
Guest100
Guest100
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
фильтрация разноцветных записей в Excel
Огромнейшее спасибо! Все классно работает.
Подскажите новичку, как можно самому научиться писать такие штуки?
А где найти описание функций? Может книжечку какую подскажете?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.06.2005, 09:15:06
    #33141809
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
фильтрация разноцветных записей в Excel
Что может тебе помочь.

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

2. Справка VBA Excel, VBA Word и т.д. В ней представлены описания объектов, коллекций, свойств объектов. Приводятся примеры.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.07.2005, 23:02:00
    #33147073
Guest100
Guest100
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
фильтрация разноцветных записей в Excel
Справка по VBA - дело хорошее, только вот она вся на английском. Или может у меня криво поставлена? Я вот не очень в английском, поэтому со справкой сложно. Спасибо еще раз за помошь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / фильтрация разноцветных записей в Excel / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 331ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2185943]:
 0ms
get settings:
 6ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 51ms
get topic data:
 9ms
get forum data:
 4ms
get page messages:
 41ms
get tp. blocked users:
 2ms
others: 200ms
total:  331ms
x
x
Закрыть


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