Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Готовые решения

МЕНЮ САЙТА
  • 1
  • 2
  • 3

КАТЕГОРИИ РАЗДЕЛА

ОПРОСЫ
Какой версией Excel Вы пользуетесь?
Всего ответов: 41675
Главная » Готовые решения » VBA » Полезные приёмы

Чередующиеся строки по параметру
08.03.2017, 17:21
[ Файл-пример (41.5Kb) ]

предположим, нужно выделить строки таблицы по параметру

 

Sub Raskraska()
Dim x, i&, j&, s$, TmpS$
Dim bu As Boolean
With Range("A1:B" & Cells(Rows.Count, 1).End(xlUp).Row + 1)
 x = .Value
' .Resize(, 6).Interior.Color = xlNone
End With
For i = 2 To UBound(x)
 s = x(i, 1) & "~" & x(i, 2)
 If TmpS <> s Then
 If bu Then Cells(j, 1).Resize(i - j, 6).Interior.Color = 15853276
 j = i
 TmpS = s
 bu = Not bu
 End If
Next i
End Sub
Добавил: nilem |
Просмотров: 315 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!