Vraag : Het lusjekleur van de verandering als de lusjenaam in lijst verschijnt

Dit is de code ik de kleur van een lusje moet veranderen als het in een lijst verschijnt, werkt het boete voor eenvoudige spreadsheten waar de lusjes a, B, c, D, en dergelijke worden genoemd, maar ik heb een werkboek waar het lusje tussen haakjes een aantal na de waarde bevat die in de lijst zal zijn (het lusje zal als 123z4567-1 (1) kijken en dat in de lijst taxeert 123z4567-1 zal zijn).  Ik wil slechts het gekleurde lusje als het in deze lijst, om het even welke hulp verschijnt dat u kunt aanbieden?

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
Sub ColorTabs ()
Schemerige TabName als Koord

x = 1

'Bladen („in afwachting van Lijst“). Activeer

Doe tot Cellen (x, 1). Waarde = ""

    TabName = Cellen (x, 1). Waarde

    ActiveWorkbook.Sheets (TabName). Tab.ColorIndex = 4
    
    x = x + 1
    
Lijn
        
Sub van het eind

Antwoord : Het lusjekleur van de verandering als de lusjenaam in lijst verschijnt

Sub ColorTabs ()
Schemerige TabName als Koord

x = 1

'Bladen („in afwachting van Lijst“). Activeer
Doe tot Cellen (x, 1). Waarde = ""

  TabName = Cellen (x, 1). Waarde

Voor Elk Blad in ActiveWorkbook.Sheets
Als InStr (Sheet.Name, TabName) toen
 Sheet.Tab.ColorIndex = 4
Eind als
Daarna

  x = x + 1
 
Lijn
Sub van het eind


'om nauwkeurig te zijn
Andere oplossingen  
 
programming4us programming4us