< návrat zpět

MS Excel


Téma: Starší data v kontingenční tabulce. rss

Zaslal/a 10.9.2014 9:06

Ahoj. Po změně zdrojových dat pro KT a následné aktualizaci KT mi ve filtrech zůstávají staré položky, které se již nevyskytují v datech. KT si to pamatuje. Vím, že se to dá vypnout, aby si kešky vymazal a sestavil znovu ... ale už nevím jak.

Zaslat odpověď >

Strana:  1 2   další »
icon #021506
avatar
Nie som si istý, či to pomôže, ale skús zrušiť voľbu zobrazovať položky z prázdnymi hodnotami (krkolomný preklad z anglického Display item label when no fields are in the value area), viď. obr.

Btw, zaujímalo by ma, ako sa sem dá vložiť obrázok priamo, v pár príspevkoch som to videl, ale neviem na to prísť..
Příloha: png21506_pt.png (16kB, staženo 113x)
21506_pt.png
citovat
icon #021507
eLCHa
@AL
kliknete na img a vložíte url, kde je uložen ;))
imgcitovat
icon #021508
eLCHa
Btw - kdysi jsem to řešil na excelplus.net - už si to nepamatuju, ale myslím, že jsme nakonec napsali kód na odstranění starých položek...citovat
#021509
avatar
@AL: To není ono. To vloží do tabulky položky i když mají všechny hodnoty nulové.

Kód na odstranění jsem měl napsaný a jistě bych ho ještě našel. Jenže před časem mě někdo na foru překvapil, že od verze asi 2007 to jde nastavit v ??? (to kdybych si vzpomněl) ... a mi se nechce zbytečně vkládat makra, když to není nutné. Já jsem měl v té době verzi 2003 a bez maker to jinak nešlo.

Díkycitovat
#021510
avatar
PivotTable Options - karta Data a Number of items to retain per field nastavte na Nonecitovat
#021511
avatar
To je správně ... Díky ! Vzhledem k tomu, že jsem to procházel několikrát a je to přímo na očích, tak to zamrzí 5 5 5citovat
#021513
avatar
Pro úplnost - programově takto

Public Function NonOlapPTDeleteMissingItems(ByRef objWBook As Workbook) As Boolean

Dim objPivotCache As PivotCache
Dim objPivotTable As PivotTable
Dim objWSheet As Worksheet
Dim strMsg As String
Dim strTitle As String

'Zachytit všechny neočekávané chyby za běhu
On Error GoTo ErrorHandler: Err.Clear

'Titulek do dialogu
strTitle = "NonOlapPTDeleteMissingItems"

'Vypnout aktulizaci obrazovky
Application.ScreenUpdating = False

'Odstranit chybějící položky ve filtrech PT
For Each objWSheet In objWBook.Worksheets
For Each objPivotTable In objWSheet.PivotTables
objPivotTable.PivotCache.MissingItemsLimit = xlMissingItemsNone
Next objPivotTable
Next objWSheet

'Aktualizovat mezipaměť PT
For Each objPivotCache In objWBook.PivotCaches
objPivotCache.Refresh
Next objPivotCache

'Funkce může vrátit true, vše proběhlo v pořádku
NonOlapPTDeleteMissingItems = True

Finally:

'Obnovit aktulizaci obrazovky
Application.ScreenUpdating = True

Exit Function

ErrorHandler:

'Zobrazit původní hlášení
strMsg = "VB Error # " & Str(Err.Number)
strMsg = strMsg & vbCrLf & "Generated by " & Err.Source
strMsg = strMsg & vbCrLf & "Description " & Err.Description & vbCrLf
MsgBox Prompt:=strMsg, Buttons:=vbCritical + vbOKOnly, Title:=strTitle

On Error GoTo 0
GoTo Finally

End Functioncitovat
icon #021514
avatar
@eLCHa: kliknete na img a vložíte url, kde je uložen ;))
niečo mi uniká :(
1. zmačknem Alt+PrtScr (dostanem tak ten dialog do clipboardu)
2. ďalej už neviem...citovat
icon #021516
eLCHa
@AL
když už jsme OT

2. vložíte obsah schránky do nějakého programu, pomocí kterého ho uložíte na disk jako obrázek
3. uložený soubor nahrajete na nějaký server, aby se na něj dalo odkázat
4. odkaz zkopírujete do schránky
5. při psaní příspěvku použijete tag IMG (7. tlačítko), do kterého vložíte odkaz.

;)
trochu zbytečně komplikované - jednodušší je vložit přílohu ;)citovat
icon #021517
avatar
@ eLCHa
Aha, takže je potrebný nejaký server, asi teda nie firemný, ale verejný, však?
(3. uložený soubor nahrajete na nějaký server, aby se na něj dalo odkázat)


jj, funguje to, ale ako píšete, je to v podstate komplikovanejšie, než priložiť súbor..

Ale i tak by ma ešte zaujímalo - ako do obrázku dostať ten vodoznak wall.cz?

imgcitovat

Strana:  1 2   další »

Uživatelské menu

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

Menu

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