GoldenLine
Zaloguj się
Piotr Kasprzyk

Piotr Kasprzyk Logistyka

Temat: tabela przestawna w Vba

Czesc, moglby ktos pomoc jak odnaczyc rekordy w tabeli przestawnej za pomoca kodu?. Ponizszy kod oczywiscie jest zly ale wyjasnia o co mi chodzi;

zamiast:
ChDir "C:\Users\user\Desktop"
Workbooks.Open Filename:="C:\Users\user\Desktop\kod.xls"
With ActiveSheet.PivotTables("Tabela przestawna1").PivotFields("miasto")
.PivotItems("gdansk").Visible = False
.PivotItems("katowice")Visible = False
.PivotItems("warszawa").Visible = False
...

chcialbym skroci do:

ChDir "C:\Users\user\Desktop"
Workbooks.Open Filename:="C:\Users\user\Desktop\kod.xls"
With ActiveSheet.PivotTables("Tabela przestawna1").PivotFields("miasto")
.PivotItems("all items").Visible = False

(oczywiscie "all items" jest błedny - wyjasnia tylko idee)

dzieki
p.
Link do wypowiedziLink
Paweł Mendyk

Paweł Mendyk Sysadmin

Temat: tabela przestawna w Vba

Spróbuj tego: (wygooglowane - nie sprawdzałem)

Sub PokażUkryjPola()

Dim pf As PivotField
Dim pi As PivotItem
Dim strPVField As String

strPVField = "Field Name"
Set pt = ActiveSheet.PivotTables(1)
Set pf = pt.PivotFields(strPVField)
Application.ScreenUpdating = False
Application.DisplayAlerts = False

On Error Resume Next
pf.AutoSort xlManual, pf.SourceName
For Each pi In pf.PivotItems
pi.Visible = False
Next pi
pf.AutoSort xlAscending, pf.SourceName

Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub
Link do wypowiedziLink
Zbigniew Budziewicz

Zbigniew Budziewicz VISUAL STUDIO

Temat: tabela przestawna w Vba

A jaką macie chłopaki pewność że plik został zapisany z aktywnym arkuszem na którym jest pivot?
Link do wypowiedziLink
Sławomir Broda

Sławomir Broda VBA, Excel, Access,
SAP i wszystko
związane z
automatyzac...

Temat: tabela przestawna w Vba

ActiveSheet.PivotTables(1) - Stawiam na nagrywarkę.
Link do wypowiedziLink
Paweł Mendyk

Paweł Mendyk Sysadmin

Temat: tabela przestawna w Vba

Mówiłem, że znalazłem a nie, że napisałem.
Link do wypowiedziLink
Sławomir Broda

Sławomir Broda VBA, Excel, Access,
SAP i wszystko
związane z
automatyzac...

Temat: tabela przestawna w Vba

Paweł M.:
Mówiłem, że znalazłem a nie, że napisałem.
Mój komentarz to nie uwaga do jakości tylko wskazanie, że kod zadziała w określonych przypadkach.
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy


Następna dyskusja:

TRIK - czego Tabela Przesta...




Wyślij zaproszenie do
Anuluj