Pivot tabeller

Beskrivelse

Pivot tabeller

Jeg har bikset et lille eksempel på styring af pivottabeller fra VBA sammen - se det efter du har købt kurset.

Øvelse

Pivot tabeller

Jeg har bikset et lille eksempel på styring af pivottabeller fra VBA sammen. Koden ser sådan her ud:

Sub FilterData()     Dim TargetPivotTable As PivotTable     Dim TargetPivotCache As PivotCache     Dim startdato, slutdato As Date     Dim strStartdato, strSlutdato As String             startdato = Range("Startdato").Value     slutdato = Range("Slutdato").Value     strStartdato = Year(startdato) & "-" & Month(startdato) & "-" & Day(startdato)     strSlutdato = Year(slutdato) & "-" & Month(slutdato) & "-" & Day(slutdato)          Set TargetPivotTable = Sheets(1).PivotTables("PivotTable1")     Set TargetPivotCache = ActiveWorkbook.PivotCaches(1)     TargetPivotCache.CommandText = "SELECT Fakturanr, Dato, Kundenr, Firma, Sælger, Gruppe, Model, `Stk pris`, Antal, Total " & _         "FROM `C:\Documents and Settings\Thor\Desktop\salg`.Salg WHERE Dato >= #" & strStartdato & "# And Dato <= #" & strSlutdato & "#"     TargetPivotTable.RefreshTable End Sub

Hent det lille regneark her

Og databasen

Forrige Tilpas Ribbon

Næste Office integration

Brug for hjælp til VBA, VSTO eller SQL?

Scient Data tilbyder professionel IT-konsulentbistand

Kontakt Scient Data →