zmiana tła na podstawie warunku, ale nie formatowanie war.

Stworzyłem listę obecności w excelu i w tej chwili makro zmienia mi tło na czerwono jeśli dany dzień jest wolny od pracy (soboty i niedziele). Makro te uruchamiam ręcznie.


Sub Zaznacz_weekendy()
 Const Zakres_Kolorowania = "B5:AX35"
 Const Kolumna_Średnich = "B"
 
 Dim oKolor As Range
 Dim kom As Range
 Dim tło As Long, czcionka As Long
 
 Set oKolor = Range(Zakres_Kolorowania)
 
 'dla komórek z kolumny średnich w zakresie kolorowania
 For Each kom In Intersect(oKolor, Columns(Kolumna_Średnich))
       
     'wybieramy kolorki dla oceny
     Select Case kom.Value
         
         Case Is >= 6
             tło = 3
           
 
         'Case kolejne oceny
         
         Case Else        'kolory automatyczne
             czcionka = 0
             tło = 0
     
     End Select
     
     'i kolorujemy wiersz
     With Intersect(oKolor, Rows(kom.Row))
       .Interior.ColorIndex = tło
       .Font.ColorIndex = czcionka
     End With
 
 Next kom
 
End Sub

W kolumnie A są daty w formacie 2008-04-10, w B natomiast numer dnia tygodnia =DZIEŃ.TYG(A5;2)

Brakuje mi 2 rzeczy.
1. kolorowanie wiersza na czerwono jeśli dzień jest ustawowo wolny od pracy lecz nie wypada w weekend. Święta mam wypisane w 2 arkuszu dni_wolne (w kolumnie A).
2. Uruchamianie makra przy wyborze miesiąca z listy rozwijanej.

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

katkaras.opx.pl