Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
группировка листов по цвету или имени одним макросом
 
#1
12.09.2011 21:41:11
Как сделать макрос который на 1 срабатывание группирует листы по ЦВЕТУ  
причем например синие листы поставить первыми    желтые-вторыми  красные- третьими желтые-четвертыми   без цвета - пятыми  
 
а на на 2 срабатывание группирует листы по имени 1,2,3,4,5 и тд  
 
возможно ли такое сделать ?
 
 
 
#2
12.09.2011 21:52:00
Как сейчас - 1,11,13,2,22 - это по порядку, или надо 1,2,...,11,13,22,...?
 
 
 
#3
12.09.2011 21:57:21
группировку по имени листа нашел ввел в пример  
 
осталоссь только группировка по цвету и условиям (в файле отметил что надо)
 
 
 
#4
12.09.2011 22:06:01
Вам нужна группировка или сортировка? Сортировка есть в "Приемах": <BR>http://www.planetaexcel.ru/tip.php?aid=75
 
 
 
#5
12.09.2011 22:18:25
сортировка по цвету листов нужна  
в примере http://www.planetaexcel.ru/tip.php?aid=75 сортировка по имени листа  
 
файл подправил
 
 
 
#6
12.09.2011 22:21:19
Нужна сортировка, а пишете про группировку...
 
 
 
#7
12.09.2011 22:26:33
сорри попутал определения
 
 
 
#8
12.09.2011 22:41:50
Вариант: привлечь внутренние имена листов, предварительно исправив их.
 
 
 
#9
12.09.2011 22:50:47
http://www.planetaexcel.ru/tip.php?aid=50  написано про функцию  
   
   Public Function ColorIndex(Cell As Range)        
       ColorIndex = Cell.Interior.ColorIndex    
   End Function    
 
но это к ячейкам ...  
как то можно к листам привязать ?
 
 
 
#10
12.09.2011 22:53:23
с образцами цвета в ячейках на отдельном листе
 
 
 
#11
12.09.2011 22:59:05
Цвет ярлычка задаётся также как цвет заливки ячейки. Макрорекордер Вам покажет  
Sheets("Лист1").Tab.ColorIndex = 6
 
 
 
#12
12.09.2011 23:06:36
Sub Макрос2()  
Dim i&, j&  
For j = 2 To Worksheets.Count  
For i = 2 To Worksheets.Count  
If Sheets(i).Tab.Color < Sheets(i - 1).Tab.Color Then  
   Sheets(i).Move Before:=Sheets(i - 1)  
End If  
Next  
Next  
End Sub
 
 
 
#13
12.09.2011 23:15:03
Sub SortSheetsColor()  
   Dim I As Integer, J As Integer  
 
   For I = 1 To Sheets.Count - 1  
       For J = I + 1 To Sheets.Count  
           If UCase(Sheets(I).Tab.ColorIndex) > UCase(Sheets(J).Tab.ColorIndex) Then  
               Sheets(J).Move Before:=Sheets(I)  
           End If  
       Next J  
   Next I  
Sheets("Сорт листов").Select  
End Sub  
 
 
так сделал 2-м макросом по сортировке по цвету
 
 
 
#14
12.09.2011 23:20:37
Осталалось 2 вопроса - как сделать  чтоб    
 
1   как задать цветам последовательность выстраивания при сортировке по цвету  
по условию синие листы поставить первыми    желтые-вторыми  красные- третьими зеленые-четвертыми   без цвета - пятыми  
 
 
2    как сделать одной кнопкой чтоб по 1 нажатию макрос1 выполнялся по 2 нажатию этой же кнопки-макрос2
 
 
 
#15
12.09.2011 23:24:47
файл отредактировал
 
 
 
#16
12.09.2011 23:27:57
По первому вопросу: отсортируйте по цвету, как есть, затем перекрасьте исходные в нужном порядке, учитывая индексы цветов.  
По второму: добавьте некую логическую переменную и проверяйте её состояние: если Истина - выполняется первый макрос и после этого ей присваивается значение Ложь. Зачем Вам всё это?
 
 
 
#17
12.09.2011 23:38:18
на вопрос зачем - ярлыки  красятся по опр условию ;условий штук 6;    
листов (ярлыков) в книге будет много    
 
важно отсортировать листы по цвету ярлыка чтоб наглядно было видно (а не смотреть по всей книге)
 
 
 
#18
12.09.2011 23:41:37
я не силен в программировании по примерам только могу чтото сделать поэтому и прошу помощи
 
 
 
#19
12.09.2011 23:48:22
Вот пример:  
Dim Переменная As Boolean  
 
Sub Test()  
   If Переменная Then  
       MsgBox "Вызываем Первый макрос"  
       Переменная = Not Переменная  
   Else  
       MsgBox "Вызываем Второй макрос"  
       Переменная = Not Переменная  
   End If  
End Sub
 
 
 
#20
13.09.2011 00:10:12
получилось вроде  
Юрий спасибо огромное за совет с примером  
 
а вот как по вашему совету перекрасить листы это не знаю к сожалению
 
 
 
#21
13.09.2011 00:15:28
Вы ведь не можете поменять индексы у палитры. Придётся подстроиться под них - перекрасить свои ярлычки по убыванию/возрастанию значений индексов. И в дальнейшем уже использовать такой набор цветов для ярлычков.
 
 
 
#22
13.09.2011 00:28:17
Вот так получше будет :-)
 
 
 
#23
13.09.2011 01:03:38
простой пример перекраски 1 ярлыка если можно покажите
 
 
 
#24
13.09.2011 01:05:23
а ваш пример с кнопкой лучше - быстрее и не моргает при выполнении макроса
 
 
 
#25
13.09.2011 11:31:21
{quote}{login=tes3}{date=13.09.2011 01:03}{thema=}{post}простой пример перекраски 1 ярлыка если можно покажите{/post}{/quote}Какой может быть пример? Правый клик по нужному ярлычку - Цвет ярлыка. Раскрасьте свои ярлыки вручную, ориентируясь на индексы: ведь сортировка будет фактически по номеру, а этот номер (индекс) Вы поменять не можете.
 
 
 
Страницы: 1
Читают тему
Наверх