draug_xiii [ Pretorianin ]
exel - pomoc pilnie potrzebna
Witam
Musze zrobic pewna rzecz w arkuszu exela.
w jednej kolumnie wpisuje date. w drugiej po wpisaniu daty tlo sie powinno zmieniac zaleznie od tego czy data jest wczesniejsza czy pozniejsza od tej w kolumnie pierwszej ...
jakis pomysl jak to zrobic.
Btw. mam przed soba plik ktory dziala wlasnie w ten sposob ale jak chce skopiowac pola to owa funkcja przestaje dzialac, pozatym pole formuly jest puste w obu polach.
z gory dziekuje za wszelkie odpowiedzi. :)
iNfiNity! [ NSX ]
wrzuć plik na rapidshare albo wyslij mi na email
John_Kruger [ Internetowy eksplorator ]
jak cos to tez moge pomoc, bo sam właściwie ucze się do jutrzejszego koła, ale mam cos innego - statystyke w excelu... tak czy inaczej, jak infinity nie da rady-daj znac;)
iNfiNity! [ NSX ]
ja czekam na plik ciągle
jak chcesz sam dojść, to podpowiedź -> użyj formatowania warunkowego + funkcja
draug_xiii [ Pretorianin ]
Infinity ... z checia bym to zrobil ale jakby wyszlo ze ten plik opuscil moj komputer to by mnie ukrzyzowali w najlepszym przypadku. :/
w kazdym badz razie znalazlem formule ale po przeklejeniu nie chce do konca wspolpracowac.
oto formula
=IF(AM1<>"","GREEN",IF(AL1<Tracking!$D$2,"RED","YELLOW"))
oczywiscie dotyczy pol am1 i al1 ... niestety kolor tla w polu al1 sie nie zmienia
kolor zolty pojawia sie przy wpisaniu N/A - czyli brak daty
iNfiNity! [ NSX ]
ma to dotyczyć tylko jednego wierszu, czy chcesz mieć możliwość kopiowania tego na dół?
draug_xiii [ Pretorianin ]
musze miec mozliwosc kopiowania tego na dol.
probowalem rowniez skopiowac kilka wierszy coby ci moc wyslac ale wtdy kolumna ktora jestem zainteresowany tracinagle swoje wlasciwosci.
iNfiNity! [ NSX ]
draug_xiii [ Pretorianin ]
Infinity jakas szansa wyslanie tego na maila ?
wyslalem ci moj adres.
iNfiNity! [ NSX ]
wyslalem
Mazzop [ ]
Takie makro na szybkiego zrobiłem, ale trzeba by to zmienić na sprawdzanie dat:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each dCell In Range("B2:B20")
If dCell.Value > 5 Then
dCell.Offset(0, 1).Interior.ColorIndex = 4
End If
If dCell.Value < 5 Then
dCell.Offset(0, 1).Interior.ColorIndex = 3
End If
Next dCell
End Sub
draug_xiii [ Pretorianin ]
infinity wielkie dzieki za pomoc jakiej mi udzililes do tejpory ... niestety to jeszcze nie koniec...
mozemy zamienic kolory miejscami ? czerwony z zielonym ?
oraz jak przeniesc to z pliku ktory mi wyslales do nowego arkusza.
gkowal [ Centurion ]
proste formatowanie warunkowe z manu format/Formatowanie warunkowe.
Nawet szkoda szerzej objasniac wystarczy zajrzec.
Ooopss, sorry przeoczylem podpowiedz.
draug_xiii [ Pretorianin ]
da sie w owym formatowaniu warunkowym ustawic wiecej niz 3 formuly ?
ok udalo mi sie przy nieocenionej pomocy Infinity dojsc do tego ze:
(zakladajac ze polu pierwszym jest dzisiejsza data)
- w polu 2 wpiszemy wczorajsza date to jest na zielono
- wpiszemy jutrzejsza date to jest na czerwono
czyli mniej wiecej tak jak chcialem: teraz to co stanowi problem
- pola nr 2 standardowo sa zoltego koloru a powinny byc takie jesli w polu pierwszym bedzie cos innego niz data (np. notatki roznego rodzaju) w innym przypadku gdy pole nr1 jest puste powinny pozostac biale
- no i jeszcze jedno jesli wpisze dzisiejsza date do drugiegopola to kolor zielony znika i tlo robi sie biale.