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
Kto zna excela?
Moderatorzy: zielonyszerszen, s_wojtkowski
-
- Loża WSR
- Posty: 9045
- Rejestracja: 02 mar (ndz) 2003, 01:00:00
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
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
-
- Zawsze coś napisze
- Posty: 868
- Rejestracja: 29 wrz (pn) 2003, 02:00:00