Stránka 1 z 1
EXCEL - kontingencni tabulka
Napsal: 02 úno 2010 15:16
od Aquila
Zdravim,
v pivotce potrebuju kvuli importu do SAPu zobrozovat kriteria na kazdem radku. Jde to nekde nastavit? Standartne se zobrazuje hodnota kriteria jen na prvnim radku. Viz v priloze "PN" a "QTY".
Diky
Re: EXCEL - kontingencni tabulka
Napsal: 02 úno 2010 16:51
od navstevnik
Verze Excelu? A pripoj demo zdrojovou tabulku vcetne vytvorene kontigencni tabulky.
Nejspis to povede na proceduru VBA.
PS: pokud to je soubor .xlsx, musis zabalit zipem
Re: EXCEL - kontingencni tabulka
Napsal: 02 úno 2010 17:33
od Aquila
Tajne jsem doufal ze to bude jen dobre skryte nastasveni tabulky.
Excel 2003 (11.8316.8221) SP3
Re: EXCEL - kontingencni tabulka
Napsal: 03 úno 2010 00:19
od mike007
V kontingenční tabulce to nastavit nejde. Já to dělám tak, že tabulku zkopíruju a vložím ji do jiného listu jako hodnoty. V něm pomocí makra prázdné buňky vyplním.
Re: EXCEL - kontingencni tabulka Vyřešeno
Napsal: 03 úno 2010 10:50
od navstevnik
Kontigencni tabulku prekopiruj na novy list - vlozit hodnoty (Upravy>Vlozit jinak>Hodnoty) a spust (z nastroju nebo klavesovou zkratkou) nize prilozenou proceduru (vloz v editoru VBA - Alt+F11 - do standardniho modulu):
Kód: Vybrat vše
Option Explicit
Sub UpravitKT()
Dim SBlk As Range, SRow As Range, TmpRow As Range
Set SBlk = Application.InputBox("Vyber tazenim mysi oblast bunek z KT pro doplneni," & vbCr & _
"pripadne vepsanim, napr A5:C11", , , , , , , 8)
With SBlk
Set SRow = .Resize(1, .Columns.Count)
End With
Application.ScreenUpdating = False
For Each SRow In SBlk.Rows
If Not IsEmpty(SRow.Resize(1, 1)) Then
Set TmpRow = SRow
Else
SRow.Value = TmpRow.Value
End If
Next SRow
Application.ScreenUpdating = True
Set TmpRow = Nothing
Set SRow = Nothing
Set SBlk = Nothing
End SubPS: Na vyzvu je potreba vybrat z KT pouze oblast bunek, v nichz maji byt doplneny udaje, v tebou prilozenem demu to je A5:C11
Re: EXCEL - kontingencni tabulka
Napsal: 03 úno 2010 15:20
od Aquila
Diky, funguje to
// Označuji za vyřešené
// mike007