Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Цикл по всем листам книги, за исключением листов, имеющих ярлычок определенного цвета
 
Доброго дня!
Прошу подсказки уважаемых форумчан в следующем вопросе:
Есть цикл типа:
Код
For b = 2 To Sheets.Count - 1
.................
.................
................. 
Next b
Цикл пробегает по всем листам книги начиная со второго и исключая последний.
А нельзя ли как нибудь технично записать чтобы он (цикл) пробегал бы по листам книги, но пропуская те, у которых ярлычок окрашен в цвет (например желтый)?
Сейчас проверяю следующей строкой после начала цикла:
Код
If Sheets(b).Tab.ColorIndex = 13 Then
А может сразу можно записать, после операнда "To"?
А как?
Спасибо.
Изменено: john22255 - 6 Сен 2018 11:48:15
 
Нельзя.
 
john22255, а вчем трудность?
в такой конструкциикода?
Код
For b = 2 To Sheets.Count - 1
   If Sheets(b).Tab.ColorIndex = 13 Then
      .................
      .................
      ................. 
   end if
Next b
 
Цитата
john22255 написал:
А может сразу можно записать, после операнда "To"?
Просто любопытно как вы себе это представляете? "To" это значение до которого будет увеличиваться переменная счетчик, как это можно реализовать по листам окрашенным цветом даже представить не могу.
"Все гениальное просто, а все простое гениально!!!"
 
ясно понятно.........
Страницы: 1
Читают тему (гостей: 1)
Наверх