Frage : Vorsprungfarbe auf allen Vorsprüngen zwischen 2 Vorsprünge loswerden

Ich habe ein Bündel Vorsprünge zwischen Vorsprung-Namen „PET“ und „dieser DTP“ möchte ich die Farbe von löschen, bevor ich das following

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

Sub ColorTabs ()
Schwaches TabName als Schnur

x = 1

Blätter („während Liste“). Aktivieren
Bis Zellen (x, 1).Value = "" tun

  TabName = Zellen (x, 1).Value

Für jedes Blatt in ActiveWorkbook.Sheets
Wenn InStr (Sheet.Name, TabName) dann
 Sheet.Tab.ColorIndex = 3
Beenden wenn
Zunächst

  x = x + 1
  
Schleife
Enden-Unterseeboot
Related Lösungen: Change Vorsprungfarbe erscheint, wenn Vorsprungname in list erscheint

Antwort : Vorsprungfarbe auf allen Vorsprüngen zwischen 2 Vorsprünge loswerden

'Reparierte Typo auf Ende tabname
VorClearColors ()
Anfang = 0
mydefault = 16
Für jedes Blatt in ActiveWorkbook.Sheets
Wenn Sheet.Name = „PET“ dann
  Anfang = 1
  mydefault = Sheet.Tab.ColorIndex
ElseIf (Anfang = 1) dann

  Wenn (Sheet.Name <> „DTP“) dann

  Sheet.Tab.ColorIndex = mydefault '(nicht sure, wenn dieses Ihre Rückstellungsvorsprungfarbe ist - Sie können diese Zahl ändern müssen)
 ElseIf Sheet.Name = „DTP“ dann
  Unterseeboot herausnehmen
 Beenden wenn

Beenden wenn

Zunächst
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us