Вопрос : Получите освобождано цвета платы на всех платах между 2 платами

Я имею пук плат между именем «PE» платы и «DTP» тот я хочу освободить цвет от прежде чем я бегу class= " lineNumbers " >

1 >

Sub ColorTabs " prettyprint " " class= id= " codeSnippet829932 >
 

class= " ясное " > 

Related: 

title= " цвет href= " /Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26335572.html " Change " class= " списка qRelatedParent " если имя платы появляется в list

Ответ : Получите освобождано цвета платы на всех платах между 2 платами

'Исправил typo на tabname законцовки
Sub ClearColors ()
Старт = 0
mydefault = 16
Для каждого листа в ActiveWorkbook.Sheets
Если Sheet.Name = «PE» после этого
  Старт = 1
  mydefault = Sheet.Tab.ColorIndex
ElseIf (старт = 1) после этого

  Если (Sheet.Name <> «DTP») после этого

  Sheet.Tab.ColorIndex = mydefault '(конечно если это будет ваш цвет платы невыполнения обязательства -, то вы можете изменить этот номер)
 ElseIf Sheet.Name = «DTP» после этого
  Выходите подводная лодка
 Закончитесь если

Закончитесь если

Затем
Подводная лодка конца