< návrat zpět

MS Excel

Téma: VBA aktualizace kontingenční tabulky rss

Zaslal/a Marek-Pecha 9.8.2016 13:44

Dobrý den, měl bych dotaz ke kontingenční tabulce. Popis problému jsem vložil do přiloženého dokumentu:

https://uloz.to/!8BqgX5EJM/kontingent-docx

Děkuji za Vaši pomoc.
Pecha Marek

Zaslat odpověď >
xlnc(9.8.2016 15:08)#032276
avatar
Takže rozsah sloupců se nemění, mění se jen rozsah sloupců. Ach jo. Zkuste Záznamník maker, mohl by vám pomoct.citovat
Pecha-Marek(9.8.2016 15:18)#032278
avatar

xlnc napsal/a:

Takže rozsah sloupců se nemění, mění se jen rozsah sloupců.


Rozsah sloupců se nemění, mění se POPIS sloupců. Počet sloupců ve zdrojové tabulce zůstává stejný. Popis sloupců T až X se nemění, popisy zbylých sloupců se "posunou" o jednu pozici do leva s tím, že popis ve sloupci "Y" se přepíše tímto posunem a ve sloupci "AJ" je zcela nový - proto není zatržen v seznamu polí kont.tabulky.
Nicméně záznam makra zkusím - díky za radu.citovat
xlnc(9.8.2016 15:59)#032280
avatar
Nepřidáváte napravo sloupce? Fakt ne? Fakt se mění jen popisky? No tak to jsem asi blázen :-)citovat
Pecha-Marek(9.8.2016 16:15)#032281
avatar
Tabulka zdrojových dat je naplňována pomocí vzorců - konkrétně popisy sloupců "T" až "X" jsou statické, popisy sloupců "Y" až "AJ" jsou vyplněny vzorci. Data této tabulky naplňuji vzorci z jiné tabulky, takže určitě nevkládám žádný sloupec. Prostě se jen mění obsah tabulky a popisy ve sloupcích Y až AJ. Připadá Vám to jako nemožné? 1citovat
xlnc(9.8.2016 16:40)#032282
avatar
A co znamená že se to za měsíc "posune"? 8/2016 zmizí, hodnoty napravo se posunou a namísto prázdného sloupce bude 8/2017?

Každopádně si pohrajte se Záznamníkem maker, jestli to není složité, tak už je pomalu jedno, jestli to upravíte, nebo vytvoříte KT znovu.citovat
Pecha-Marek(9.8.2016 17:00)#032283
avatar
Ano, připouštím formulaci "posune" jako nešťastnou z mé strany 7 . Jak píšu, jsou tam vzorce a souvisí to s aktuálním datumem. Příští měsíc už bude 9/2016, proto 8/2016 "zmizí" a místo něj se "jakoby posune" popis ze sloupce vpravo. Není to ale posun ve smyslu přesunu hodnoty z vedlejší buňky do této buňky, ale vzorec prostě zobrazí hodnotu, která byla předtím ve sloupci vpravo a stejný efekt se přesouvá směrem doprava. Takže pokud je nyní hodnota ve sloupci "AJ" "Součet za 7/2017", tak příští měsíc bude tento text (díky vzorci) ve sloupci "AI" a do sloupce "AJ" vzorec doplní novou hodnotu "Součet za 8/2017".
Zkoušel jsem záznam makra, ale ten se odkazuje na přesný název tohoto nově vzniklého popisu sloupce a to mi nevyhovuje, protože každý měsíc se tento popis změní. Jelikož soubor je síťový a slouží jiným uživatelům, chci tento "problém" vyřešit v makru a pustit to z hlavy... 10 9citovat
Pecha-Marek(17.1.2017 21:06)#034550
avatar
Otevírám po delší době toto téma, protože se mi povedlo získat řešení mého problému.
Je to řešeno těmito makry:

Sub Marek_odznac()
'autor: tomchod@seznam.cz

For Each pvf In ActiveSheet.PivotTables("Kontingenční tabulka 3").PivotFields
'On Error Resume Next
pvf.Orientation = xlHidden
Next pvf

End Sub

=====================================
Sub Marek_vybersloupce()

'autor: tomchod@seznam.cz

With Excel.Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = Excel.xlCalculationManual
End With

For Each pvf In ActiveSheet.PivotTables("Kontingenční tabulka 3").PivotFields
If pvf.Name <> "Hodnoty" And pvf.Name <> "" Then
If pvf.Orientation = xlHidden Then
On Error Resume Next
ActiveSheet.PivotTables("Kontingenční tabulka 3").AddDataField ActiveSheet. _
PivotTables("Kontingenční tabulka 3").PivotFields(pvf.Name), "Maximum z " + pvf.Name, _
xlMax
End If
End If
Next pvf

With ActiveSheet.PivotTables("Kontingenční tabulka 3").PivotFields("seskupení")
.Orientation = xlRowField
.Position = 1
End With

ActiveSheet.PivotTables("Kontingenční tabulka 3").PivotFields("Maximum z seskupení" _
).Orientation = xlHidden

ActiveSheet.PivotTables("Kontingenční tabulka 3").PivotFields("Maximum z Součet za zbytek týdne").Position = 1
ActiveSheet.PivotTables("Kontingenční tabulka 3").PivotFields("Maximum z Součet za zbytek akt.měsíce").Position = 2


With Excel.Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = Excel.xlCalculationAutomatic
End With

End Sub
==================================

Možná to někdo někdy může potřebovat 1citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje