Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
sSh.Tab.Color = xlAutomatic
Er zit bij mij wel een degelijk verschil in kleur van XlNone en XlAutomatic.
Private Sub Workbook_Open()
'Openen op huidige week
Dim tDay As String
tDay = "WEEK " & Format(Date, "ww")
With ThisWorkbook
.Sheets(tDay).Activate
.Unprotect "paswoord"
For Each sSh In .Sheets
If sSh.Tab.Color = 255 Then sSh.Tab.Color = Sheets(1).Tab.Color
' sSh.Tab.ColorIndex = xlNone
If sSh.Tab.TintAndShade Then sSh.Tab.TintAndShade = False
If sSh.Tab.ThemeColor <> 0 Then sSh.Tab.ThemeColor = 0
Next sSh
ActiveSheet.Tab.Color = 255
.Protect "paswoord"
End With
'wegschrijven_backup_teller
' Automatisch afsluiten file
' close_time = Now + TimeValue("00:30:00")
' run_time
'Beeld_aanpassen
End Sub
Heb ik gedaan...eventueel de ' weghalen voor : ' sSh.Tab.ColorIndex = xlNone
tDay = "WEEK " & Format(Date, "ww")
tDay = "WEEK " & Format(Date, "ww",2,2)
tDay = "WEEK " & Format(Date, "ww", vbMonday, vbFirstFourDays)
Dim tDay As String, sSh As Worksheet
[COLOR=#0000ff]application.screenupdating = false[/COLOR]
tDay = "WEEK " & Format(Date, "ww", vbMonday, vbFirstFourDays)
tab zonder wijziging, color op False index staat op -4142
tab color gezet op false : color op False index staat op -4142
tab color gezet op xlautomatic : color op 16773111 index staat op 24
tab colorindex gezet op xlnone : color op False index staat op -4142
Sub Macro1()
With ActiveWorkbook.Sheets(1)
Debug.Print "tab zonder wijziging, color op " & .Tab.Color & " index staat op " & .Tab.ColorIndex
.Tab.Color = False
Debug.Print "tab color gezet op false : color op "; .Tab.Color & " index staat op " & .Tab.ColorIndex
.Tab.Color = xlAutomatic
Debug.Print "tab color gezet op xlautomatic : color op "; .Tab.Color & " index staat op " & .Tab.ColorIndex
.Tab.ColorIndex = xlNone
Debug.Print "tab colorindex gezet op xlnone : color op "; .Tab.Color & " index staat op " & .Tab.ColorIndex
End With
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.