Excel VBA / Bonus materiale / Pivot tabeller
|
Jeg holder også Excel VBA firmakurser
Ja, jeg holder ikke kun fjernundervisningskurser
- jeg kan også komme ud i din virksomhed og undervise med
udgangspunkt i jeres data og udfordringer.
|
|
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 SubHent det lille regneark her
Og databasen
Når du har betalt for kurset får du adgang til øvelser til hver lektion.
Og når du har fået godkendt din besvarelse får du desuden adgang til mine løsningsforslag med ekstra tips og trix.<<- Datakilder
Office integration ->>