Questione : Cambiare il colore della linguetta se il nome della linguetta compare nella lista

Ciò è il codice che devo cambiare il colore di una linguetta se compare in una lista, esso funziono benissimo per i fogli elettronici semplici in cui le linguette sono chiamate a, la b, la c, d, e simili, ma ho un libro di esercizi in cui la linguetta contiene un numero tra parentesi dopo il valore che sarà nella lista (linguetta assomiglierà a 123z4567-1 (1) e che stimano nella lista sarà 123z4567-1).  Voglio soltanto la linguetta colorata se compare in questa lista, tutto l'aiuto che possiate offrire? class= " lineNumbers " >
1 del >

Sub codeBody ColorTabs " del prettyprint " " del class= del id= " codeSnippet820703 del >
 " libero " di 
class= > " libero " del
soluzioni >Related class= il title= " del href= " /Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26335659.html di si libera del colore della linguetta su tutte le linguette fra 2 tabs

Risposta : Cambiare il colore della linguetta se il nome della linguetta compare nella lista

ColorTabs secondario ()
TabName fioco come stringa

x = 1

'Strati (“in attesa della lista„). Attivare
Fare fino alle cellule (x, 1).Value = ""

  TabName = cellule (x, 1).Value

Per ogni strato in ActiveWorkbook.Sheets
Se InStr (Sheet.Name, TabName) allora
 Sheet.Tab.ColorIndex = 4
Concluder se
Dopo

  x = x + 1
 
Ciclo
Sommergibile dell'estremità


'per essere esatto
Altre soluzioni  
 
programming4us programming4us