Hej.
Jeżeli daty są w wierszu pierwszym,to kolorowanie kolumny sobót, przy pomocy formatowania warunkowego, zrobisz tak:
-w komórce A1 'formuła jest' =DZIEŃ.TYG(A$1)=7
(przed jedynką musi być $ )
-kopiuj komórkę, zaznacz cały obszar do kolorowania i wklej specjalnie z opcją 'formatowanie'
lub
od razu zaznacz cały obszar do kolorowania (zaczynając od A1) i wtedy ustaw formatowanie warunkowe.

Witaj.

Wstaw kolumnę pomocniczą A i w niej
A2 =JEŻELI(B2=B1;A1;NIE(A1)) i przekopiuj w dół.
zaznacz B2 i wybierz formatowanie warunkowe z menu format
Warunek1 - formuła jest =$A2 i formatuj ...
Warunek2 - formuła jest =NIE($A2) i formatuj...
Kopiuj B2 , zaznacz obszar, gdzie ma być stosowane formatowanie warunkowe, i z menu edycja / wklej specjalnie wybierz "wklej formaty"

Pewnie można to zrobić bez kolumny pomocniczej, ale jak, dziś nie wiem :(

Podobno w excelu 2003 jest możliwość kolorowania zakladek arkuszy. Nie jestem pewien, bo go nie mam. Powinna być dostępna w wyborze menu kontekstowego zakładki, czyli po kliknieciu jej prawym klawiszem myszy.

pozdrawiam

Bardzo dziękuję. Oczywiście masz rację co do kolorowania-zbędne. Zrobiłem, aby dokładnie pokazać o co mi chodzi.
Co do formuły to liczy, ale chciałbym, aby obliczoną średnią pokazała mi tylko raz-przy danym dniu.
Ponieważ dalej uzyskane dane będę obrabiał- tzn. mam wykorzystać wyniki średnich dobowych do dalszych obliczeń.
Podsumowując chodzi mi o to aby średnia z danego dnia(doby) obliczona była tylko raz-dlatego scalałem komórki.
Załączam zdjęcie.
pozdro Załączone miniaturki

l l

Tylko własna funkcja, chyba że do kolorowania używasz formatowania warunkowego i że tak naprawdę będzie można użyć jego warunków do zliczenia komórek je spełniających.
Jeśli jednak ma to być zliczanie komórek, które użytkownik sam sobie koloruje, to tylko funkcja użytkownika.

Do modułu ogólnego (jeśli ma być dostępne we wszystkich skoroszytach, to do personal.xls):
Public Function ZliczKolory(ZakresLiczb As Range, WzorcowaKomorka As Range) As Long Dim kom As Range Dim Ilosc As Long 'Umożliwia odświeżenie funkcji po wciśnięciu F9 i każdym przeliczeniu innych formuł. Application.Volatile For Each kom In ZakresLiczb If kom.Interior.ColorIndex = WzorcowaKomorka.Interior.ColorIndex Then Ilosc = Ilosc + 1 End If Next kom ZliczKolory = Ilosc End Function

Funkcję wstawisz wybierając ją z kategorii Użytkownika lub po prostu wpisując ręcznie.
Pierwszy argument - to zakres liczb, gdzie mają być zliczone komórki, drugi argument - komórka wzorcowa, która zawiera kolor do zliczenia. W praktyce trzeba zrobić coś w rodzaju dodatkowej tabelki, gdzie pierwsza kolumna będzie zawierała kolor do zliczenia, a np. druga kolumna będzie zawierała powyższą funkcję.

Ja przyznam że za Laskowskiego zdarzało mi się słuchać Trójki w godzinach pracy. Aktualnie i zarówno wtedy gdy słuchałem Trójki więcej jak i teraz jak dla mnie siłą napędową tej anteny PR są audycje autorskie.

Z czasów Laskowskiego podobało mi się że można było usłyszeć takich wykonawców na antenie w dziennej rotacji jak: Royksopp, Pati Yang, Smolik, Bjork, Massive Attack itp (zahaczających bardziej o target BISki). Za to ścierpieć nie mogłem muzyki pokroju Kozidrak, Bartosiewicz i innych "piejących i wydzierających" się wokalistek.

Ostatnio jakoś nie mogę się wstrzelić na muzykę którą lubiłem w Trójce posłuchać i to radio zrobiło się dla mnie po prostu nudne. Ale wcale nie chcę by robione było pode mnie. Bardzo się cieszę że bardzo dużo fanów Programu Trzeciego Polskiego Radia znajduje w nim sporo analogii z dawnych lat. A jako że moja tożsamość ze starymi czasami świetności tej stacji jest zerowa - po prostu jej nie słucham.

O BISce to mi się już pisać nie chcę. Jedynym plusem po Sobali jest tylko podniesienie wieku targetu tej anteny a co za tym idzie zniknięcie formatu pokroju roweru Błażeja, czy też "kolorowania" z kredką. W pozostałych aspektach wieszałem wieszam i wieszać będę na tej stacji psy jeśli będzie przyjmowała podobne do aktualnych form. Przede wszystkim to radio jest robione bez polotu - to największy minus.
Formuła alternatywnej VIVA ZWEI, dawnej RDST - nie było chyba lepszego alternatywnego formatu dostępnego dla mas. Jak najbardziej za!
Użytkownik dramez edytował ten post 28.07.2007, 11:08

Witam.
Dla trzech warunkow kożna użyć formatowania warunkowego:
-zaznacz cały obszar danych np. A2:K10
-menu: format / formatowanie warunkowe
-warunek1 - 'formuła jest'
dla 5 i średnich w kolumnie K (dolar w formule jest ważny)
=($K2=5)
-przycisk [formatuj]

Makro kolorujące do modułu ogólnego Module1:

Sub Koloruj_wg_Ocen()  Const Zakres_Kolorowania = "A2:K10"  Const Kolumna_Średnich = "K"    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 >= 5              czcionka = 6              tło = 5                  Case Is >= 4              czcionka = 0              tło = 36                    '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
i można jeszcze zrobić 'automat'
makro do modułu arkusza (np. Arkusz1)

Private Sub Worksheet_Change(ByVal Target As Range)  Call Koloruj_wg_Ocen End Sub

pzdr

Heh, Koziorożec był szybszy ;)
Ten post był edytowany przez Mały_Rycho dnia: 09 styczeń 2007 - 02:43