IZBORNIK HOME FORUM ACCESS 2003 EXCEL 2003 WORD 2003  
   
   
HOME
FORUM Win Tips&Tricks
   
KAKO INSTALIRATI
WINDOWS XP ?
Kako instalirati Win XP sa USB STICKA
Kako instalirati WINDOWS 7 ?
Naučite za 15 minuta raditi u Windows XP
Naučite Internet Explorer i Outlook Express
za 15 minuta
Kako kreirati BOOT CD za instalaciju Win95
   
MS OFFICE 2003
MS OFFICE 2007
   
   
HOME NETWORK
tutorijal za mreže
Network Windows 7 - XP
   
ZANIMLJIVI LINKOVI
BROJEVNI SUSTAVI
(DEC, OKT, BIN, HEX )
CMD - Command Prompt
CISCO - CCNA tutoriali
VLSM and SUBNETTING
   
Tutorijali za phpBB forum
JAVASCRIPT
VISUAL BASIC 6.0
AUTOCAD 2007
 
.
MICROSOFT EXCEL 2007 - automatsko bojanje stupića u grafikonu u odnosz na vrijednosti tablice kao uvjet

Kako automatski obojati grafikon uz određene uvjete

Search This Web Site



Automatsko osvježavanje Pivot Table i bojanje grafikona ako je uvjet vrijednost
(Auto refresh Pivot Table and Chart conditional value )

Općenito o Pivot Table ili kreiranju grafikona u Excelu 2003 ili izrada grafikona u Excelu 2007 pogledajte na dotičnim linkovima. U ovom primjeru pojasnit ću kako možemo automatski osvježavati promjenu podataka u nekoj tablici i na osnovu Pivot tablice kreiranje grafikona (Chart) kojem postavljamo uvjet u odnosu na vrijednosti iz tablice podataka (baze)

Uzmimo za primjer situaciju i bazu podataka kao na slici ispod. Ovdje je osnovni cilj kreirati grafikon koji ima stupičasti izgled (2-D column) uz uvjet da nam boja stupića bude zavisna o vrijednosti u stupcu B naše izvorne tablice podataka. Dakle ako je vrijednost veća od 50 tada neka stupac u grafikonu bude narandžaste boje a ako je vrijednost manja od 50
Na osnovu ove tablice podataka trebamo kreirati Pivot tablicu. Uzet ćemo u primjeru da Pivot Tablicu kreiramo na slijedećem radnom listu (WorrkSheet - SpreadSheet)

Nakon kreiranja Pivot tablice imamo ovaku situaciju kao na slici ispod. Selektiramo podatke iz Pivot tablice A2:B13 i na osnovu selektiranih podataka kreiramo grafikon (Chart)

Pivot table i Grafikon (Chart)

Ovdje je važno da znate kako pronaći i gdje promijeniti naziv Pivot tablice, kao i to da uključite "Refresh data when opening the file" da bi se tablica mogla automatski osvježiti kada idući puta otvorite file u Excelu. Iako u ovom primjeru ovo nećemo trebati.

Adsense sponzor



 

Auto refresh vrijednosti u Pivot tablici i grafikonu

Slijedeći korak je pokretanje VBE u Excelu. Kliknite kombinaciju tipki na tipkovnici ALT+F11 i insertirajte novi CLASS MODULE prema uputama sa slike ispod (korak 1 i 2). Nakon umetanja novog modula prijeđite na korak 3 tj. selektirajte novi Class module pa mu promijeniti naziv u "EventClassModule" u okviru Properties.

Nakon inserta i preimenovanja novog Class modula kliknite dvoklik na naziv i u desni dio prozora VBE kopirajte ovu makronaredbu ispod (između crtkanih linija).

Uočite da sam postavio dva uvjeta >50 i <50 a također uočite da u komentarima postoji još opcija ako se ne ispunjava neki od uvjeta ili ako želimo dodati još neki uvjet. Pet linija koda koje su označene na početku komentarima se odnose na slijedeće:

Case is = 50
'p.Interior.ColorIndex = 3 'Crvena

je u stvari isto što i

Case Else
p.Interior.ColorIndex = 3 'Crvena

tj. daju isti rezultat. ali je prva striktno uvjetovana a druga je rezultat za koji nema uvjeta

------------------------------------------------

Public WithEvents myChartClass As Chart

Private Sub myChartClass_Calculate()
Dim cht As Object
Dim p As Object
Dim V As Variant
Dim Counter As Integer

For Each cht In ActiveSheet.ChartObjects
Counter = 0
V = cht.Chart.SeriesCollection(1).Values
For Each p In cht.Chart.SeriesCollection(1).Points
Counter = Counter + 1
Select Case V(Counter)
Case Is < 50
p.Interior.ColorIndex = 4
'Zelena
Case Is > 50
p.Interior.ColorIndex = 46
'Narandzasta
'Case Is = 50
'p.Interior.ColorIndex = 3 'Crvena

''u slucaju da se ne ispunjava niti jedan uvjet
'Case Else
'p.Interior.ColorIndex = 3 'Crvena

End Select
Next
Next
End Sub

------------------------------------------------

Slijedeći korak je potrebno kliknuti dvoklik na naziv Sheet "Pivot" u VBE i u desni dio prozora umetnuti (kopirati) ovu makronaredbu.

------------------------------------------------
Dim myClassModule As New EventClassModule

Private Sub Worksheet_Activate()
'automatsko osvjezavanje pivot tablice
Sheets("Pivot").PivotTables("PivotTable1").RefreshTable

'pokretanje procedure za promjenu boje stupića uz uvjet
Dim cht As Object
For Each cht In ActiveSheet.ChartObjects
Set myClassModule.myChartClass = cht.Chart
Next
End Sub
-----------------------------------------------

Adsense sponzor




I na kraju klik na Save (Snimi) i vratimo se u naš Excel prozor na "Sheet1" na kojem probajmo promijeniti neku od vrijednosti u stupca A ili B. Nakon izmjene klik na Sheet "Pivot" i uočimo da su se vrijednosti automatski osvježile (Auto Refresh) a na grafikonu uočimo da stupci za vrijednosti veće od 50 imaju boju Narandžastu a za vrijednost manju od 50 imaju boju Zelenu.

Adsense sponzor



Također pogledajte i ostale tutorijale vezane za Pivot Table:

- Create PivotTable from multiple Worksheets
- Kreiranje Pivot Tablice u Excelu 2007

- Automatsko osvježavanje Pivot Tablice
- Auto refresh Pivot Table and Chart conditional value
- Radno vrijeme Pivot tablica  i grafikon u Excelu
- Kako zbrojiti vrijednosti između dva datuma uz uvjet pomoću Pivot Tablice




Adsense sponzor




©- 2006 - 2020 - IvanC  - Sva prava pridržana.  ic.ims.hr