Vraag : Doe lusjekleur op alle lusjes tussen 2 lusjes van de hand

Ik heb een bos van lusjes de Naam „PE“ en „DTP“ tussen van het Lusje die ik de kleur van wil ontruimen alvorens ik following

1 in werking stel:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

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 = 3
Eind als
Daarna

  x = x + 1
  
Lijn
Sub van het eind
Related Oplossingen: Change als de lusjenaam in list verschijnt

Antwoord : Doe lusjekleur op alle lusjes tussen 2 lusjes van de hand

'Vaste typo bij het einde tabname
Sub ClearColors ()
Begin = 0
mydefault = 16
Voor Elk Blad in ActiveWorkbook.Sheets
Als Sheet.Name = „PE“ toen
  Begin = 1
  mydefault = Sheet.Tab.ColorIndex
ElseIf (Begin = 1) toen

  Als (Sheet.Name <> „DTP“) toen

  Sheet.Tab.ColorIndex = mydefault '(niet zeker als dit uw standaardlusjekleur is - u kunt dit aantal moeten veranderen)
 ElseIf Sheet.Name = „DTP“ toen
  Sub van de uitgang
 Eind als

Eind als

Daarna
Sub van het eind
Andere oplossingen  
 
programming4us programming4us