Kto zna excela?

Ogłoszenia, prośby o pomoc itp.

Moderatorzy: zielonyszerszen, s_wojtkowski

ODPOWIEDZ
Ato
Zawsze coś napisze
Zawsze coś napisze
Posty: 868
Rejestracja: 29 wrz (pn) 2003, 02:00:00

Kto zna excela?

Post autor: Ato » 30 paź (sob) 2004, 21:23:23

jak uzyskac cos takiego w excelu?

mamy taka formulke:
...__A_______B________C____
1 |__2___|___3___|_=A1+B1_|

i jak zrobic aby jesli w komorce C1 wynik bylby mniejszy od 5 aby podswietlala sie na np.: niebiesko
...__A_______B________C____
1 |__2___|___2___|###4###|

ijesli w komorce C1 wynik bylby wiekszy od 5 aby podswietlala sie na np.: czerwono
...__A_______B________C____
1 |__2___|___4___|###6###|

wiem ze cos takiego da sie zrobic bo kiedys umialem to, no ale jak sie czegos dlugo nie uzywa

seize
Loża WSR
Loża WSR
Posty: 9045
Rejestracja: 02 mar (ndz) 2003, 01:00:00

Post autor: seize » 31 paź (ndz) 2004, 00:16:37

Na moje oko to cos na ten ksztalt powinno dzialac:
A1 - pole na liczbe nr1
B1 - pole na liczbe nr2
C1 - pole wyniku z kolorem [=A1+B1]
D1 - pole odpowiedzialne za wywolaie makra [=JEŻELI(C1<5;1;0)]

Arkusz1:
---
Private Sub Worksheet_Calculate()

sprawdz = Range("D1").Value

Select Case sprawdz
Case 1
Call Makro1
Case 0
Call Makro2
End Select
End Sub

Makra:
---
Sub Makro1()
Worksheets("Arkusz1").Cells(1, 3).Font.ColorIndex = 2
Worksheets("Arkusz1").Cells(1, 3).Interior.ColorIndex = 41
Worksheets("Arkusz1").Cells(1, 3).Interior.Pattern = xlSolid
End Sub

Sub Makro2()
'
Worksheets("Arkusz1").Cells(1, 3).Font.ColorIndex = 2
Worksheets("Arkusz1").Cells(1, 3).Interior.ColorIndex = 3
Worksheets("Arkusz1").Cells(1, 3).Interior.Pattern = xlSolid
End Sub

Ato
Zawsze coś napisze
Zawsze coś napisze
Posty: 868
Rejestracja: 29 wrz (pn) 2003, 02:00:00

Post autor: Ato » 31 paź (ndz) 2004, 20:38:58

wielkie dzieki, mam nadzieje ze uda mi sie to wprowadzic w zycie

seize
Loża WSR
Loża WSR
Posty: 9045
Rejestracja: 02 mar (ndz) 2003, 01:00:00

Post autor: seize » 04 lis (czw) 2004, 22:21:20

No a jezeli to nie ma / nie musi byc w oparciu o makra to mozna uzyc Formatowania warunkowego :)
Format/Formatowanie warunkowe i tam ustawic co ma sie dziac przy odpowiednich wartosciach :)

Ato
Zawsze coś napisze
Zawsze coś napisze
Posty: 868
Rejestracja: 29 wrz (pn) 2003, 02:00:00

Post autor: Ato » 05 lis (pt) 2004, 02:14:50

o kurde, a juz myslalem ze zrezygnuje z tego (bo kilka komurek w ten sposob formatowanych to byloby troche roboty w vb, co by bylo o tyle trudniejsze ze vb praktycznie nie znam). a tu taki prosty sposob. jeszcze raz dzieki :mrgreen:

seize
Loża WSR
Loża WSR
Posty: 9045
Rejestracja: 02 mar (ndz) 2003, 01:00:00

Post autor: seize » 05 lis (pt) 2004, 14:26:36

Nie ma sprawy - sorry ze na poczatku nie wylecialem z ta funkcja tylko odruchowo postanowilem pomyslec jakby to bylo w VBA :)

ODPOWIEDZ