Questione : Liberar del colore della linguetta su tutte le linguette fra 2 linguette

Ho un mazzo di linguette fra il nome “PE„ della linguetta e “DTP„ quel voglio eliminare il colore da prima che faccia funzionare il class= " i lineNumbers " >
1 del >

Sub codeBody ColorTabs " del prettyprint " " del class= del id= " codeSnippet829932 del >
 " libero " di 

  
  class= > " libero " del 

    soluzioni >Related 
    class= 
title= " colore del href= " /Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26335572.html " di Change " del class= " della lista " se il nome della linguetta compare in list

Risposta : Liberar del colore della linguetta su tutte le linguette fra 2 linguette

'Ha riparato il typo sul tabname di conclusione
ClearColors secondario ()
Inizio = 0
mydefault = 16
Per ogni strato in ActiveWorkbook.Sheets
Se Sheet.Name = “PE„ allora
  Inizio = 1
  mydefault = Sheet.Tab.ColorIndex
ElseIf (inizio = 1) allora

  Se (Sheet.Name <> “DTP„) allora

  Sheet.Tab.ColorIndex = mydefault '(non sure se questo è il vostro colore della linguetta di difetto - potete dovere cambiare questo numero)
 ElseIf Sheet.Name = “DTP„ allora
  Uscire il sommergibile
 Concluder se

Concluder se

Dopo
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us