Avtomatski preračun vrtilne tabele

Pomoč pri delu z MS Excelom
Odgovori
mipax
Prispevkov: 57
Pridružen: Po Avg 01, 2005 9:37 pm

Avtomatski preračun vrtilne tabele

Odgovor Napisal/-a mipax »

Napravil sem vrtilno tabelo, vse deluje v redu, je pa problem kako jo avtomatsko ozveževati, ko se spremenijo izvorni podatki.
Ali se to sploh da napraviti in kako?
admin
Site Admin
Prispevkov: 3691
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

Pozdravljeni,

Vrtilne tabele imajo omejene možnosti osveževanja podatkov. Do njih pridete tako, da na vrtili tabeli kliknete desni miškin gumb in odpre se hitri meni, kjer izberite opcijo Možnosti tabele. Odpre se novo okno, kjer imate opcije Osveži ob odpiranju in Osveži vsakih X minut.

Če z tem niste zadovoljni pa je edina opcija da posežete po VBA-ju in takrat ko se spremenijo izvorni podatki pač osvežite tabelo, nekaj v tem kontekstu:

Koda: Izberi vse

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim myPT As PivotTable
    Application.enableevents = false
    For Each myPT In Me.PivotTables
        myPT.RefreshTable
    Next myPT
    application.enableevents = true
End Sub 
lp,
Matjaž Prtenjak
Administrator
mipax
Prispevkov: 57
Pridružen: Po Avg 01, 2005 9:37 pm

Odgovor Napisal/-a mipax »

Hvala za odgovor. Vidim, da se posodabljanje vrtilnih tabel težko avtomatizira.

Svoj problem sem zato raje rešil kar z sumif () funkcijo, ki jo izvajam kar na celem stolpcu excela.

Da še opišem kaj sem želel doseči, če bo še komu koristilo.

Imam namreč dva stolpca (za katera pa v naprej ne vem koliko vrstic bo vnešenih - izpolnjenih).
Za vsako vrednost v prvem stolpcu sem želel namreč sešteti pripadajoče vrednosti v drugem stolpcu (imam samo vrednosti :1, 2, 3 ali prazno).
Najprej sem mislil, da bi zadevo rešil z vrtilno tabelo, pa je očitno lažje kar po klasični poti z sumif stavki.

primer :

1 150
2 50
2 253
3 600
3 500
....

uporabil sem :
=SUMIF(A:A;"=1";B:B)
=SUMIF(A:A;"=2";B:B)
=SUMIF(A:A;"=3";B:B)
:D
Odgovori