Cuestión : Librarse del color de la lengüeta en todas las lengüetas entre 2 lengüetas

Tengo un manojo de lengüetas entre el nombre el “PE” de la lengüeta y “DTP” ese quiero despejar el color de antes de que funcione el class= " lineNumbers " >
1 del >

Sub codeBody ColorTabs del " prettyprint " del class= del id= " codeSnippet829932 " del >
 " claro " de 

class= > " claro " del 

soluciones >Related 
class= 
title= " color del href= " /Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26335572.html " del Change " del class= " de la lista " si el nombre de la lengüeta aparece en list

Respuesta : Librarse del color de la lengüeta en todas las lengüetas entre 2 lengüetas

'Fijó el error tipográfico en tabname de la conclusión
ClearColors secundario ()
Comienzo = 0
mydefault = 16
Para cada hoja en ActiveWorkbook.Sheets
Si Sheet.Name = el “PE” entonces
  Comienzo = 1
  mydefault = Sheet.Tab.ColorIndex
ElseIf (comienzo = 1) entonces

  Si (Sheet.Name <> “DTP”) entonces

  Sheet.Tab.ColorIndex = mydefault '(si éste es su color de la lengüeta del defecto - usted puede tener que no sure cambiar este número)
 ElseIf Sheet.Name = “DTP” entonces
  Salir el submarino
 Terminar si

Terminar si

Después
Submarino del extremo
Otras soluciones  
 
programming4us programming4us