Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Раскрасить строки через одну
 
#1
01.12.2011 12:40:08
Нужно раскрасить строки через одну. Подскажите, пожалуйста, как.  
Пишу макрос, он выдает ошибку. См. файл.
 
 
 
#2
01.12.2011 12:47:55
http://www.excelworld.ru/forum/3-899-1
 
 
 
#3
01.12.2011 12:48:08
http://www.planetaexcel.ru/tips.php далее Ctrl+F - "зебра"... ;)
 
 
 
#4
01.12.2011 12:48:36
В "Приемах" смотрели? http://www.planetaexcel.ru/tip.php?aid=43
 
 
 
#5
01.12.2011 12:54:34
Спасибо. Меня интересует этот вопрос с точки зрения VBA.
 
 
 
#6
01.12.2011 13:04:37
Sub Zebra()  
   For i = 2 To 100  
       If Cells(i - 1, 1).Interior.ColorIndex = xlNone Then  
           Cells(i, 1).Interior.ColorIndex = 15  
       Else  
           Cells(i, 1).Interior.ColorIndex = xlNone  
       End If  
   Next  
End Sub
 
 
 
#7
01.12.2011 13:19:21
Спасибо, это то, что хотел.  
Сижу разбираюсь.
 
 
 
#8
01.12.2011 13:19:34
Ну и ещё вариант:)  
Sub rrr()  
Dim N As Long  
   For N = 2 To Range("A1").Cells(Rows.Count, 1).End(xlUp).Row Step 2  
   With Range("A" & N & ":C" & N)  
       .Interior.ThemeColor = xlThemeColorAccent1  
       .Interior.TintAndShade = 0.799981688894314  
   End With  
   Next  
End Sub
 
 
 
#9
01.12.2011 13:22:39
http://excelvba.ru/code/RepeatRange  
 
Цитата:  
 
Представим, что нам поставлена задача покрасить каждую 10-ю строку таблицы в серый цвет, начиная с пятой строки (таблица занимает 60 строк)  
 
Проще всего (да и быстрее) это сделать при помощи функции RepeatRange:  
Sub Пример1()  
   RepeatRange(Rows(5), 6, 10, xlDown).Interior.ColorIndex = 15  
End Sub
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
Страницы: 1
Читают тему
Наверх