X
ďťż

Mefisto...diabeł czy anioł?

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

    • Drogi uzytkowniku!

    W trosce o komfort korzystania z naszego serwisu chcemy dostarczac Ci coraz lepsze uslugi. By moc to robic prosimy, abys wyrazil zgode na dopasowanie tresci marketingowych do Twoich zachowan w serwisie. Zgoda ta pozwoli nam czesciowo finansowac rozwoj swiadczonych uslug.

    Pamietaj, ze dbamy o Twoja prywatnosc. Nie zwiekszamy zakresu naszych uprawnien bez Twojej zgody. Zadbamy rowniez o bezpieczenstwo Twoich danych. Wyrazona zgode mozesz cofnac w kazdej chwili.

     Tak, zgadzam sie na nadanie mi "cookie" i korzystanie z danych przez Administratora Serwisu i jego partnerow w celu dopasowania tresci do moich potrzeb. Przeczytalem(am) Polityke prywatnosci. Rozumiem ja i akceptuje.

     Tak, zgadzam sie na przetwarzanie moich danych osobowych przez Administratora Serwisu i jego partnerow w celu personalizowania wyswietlanych mi reklam i dostosowania do mnie prezentowanych tresci marketingowych. Przeczytalem(am) Polityke prywatnosci. Rozumiem ja i akceptuje.

    Wyrazenie powyzszych zgod jest dobrowolne i mozesz je w dowolnym momencie wycofac poprzez opcje: "Twoje zgody", dostepnej w prawym, dolnym rogu strony lub poprzez usuniecie "cookies" w swojej przegladarce dla powyzej strony, z tym, ze wycofanie zgody nie bedzie mialo wplywu na zgodnosc z prawem przetwarzania na podstawie zgody, przed jej wycofaniem.