Als u werkt aan verkoopgegevens die dagelijks worden bijgewerkt. Om de volledige verkoop bij te houden op de laatste datum die in de gegevens is ingevoerd met behulp van de draaitabel. In dit artikel zullen we leren hoe we de draaitabel kunnen gebruiken om de nieuwste datum in de database te selecteren met behulp van macro's.
Hieronder volgt de momentopname van de gegevens die we hebben:
- Om automatisch de nieuwe datum en verkoop te vinden, moeten we pivot maken
- Gebruik sneltoets ALT + N + V
We moeten de onderstaande stappen volgen:
- Klik op het tabblad Ontwikkelaar
- Selecteer in de codegroep Visual Basic
- Voer de volgende code in de werkbladmodule in:
Sub LaatsteDatumPivot()Dim pfiPivFldItem As PivotItem
Dim dtmDatum als datum
Met werkbladen ("Blad1"). Draaitabellen (1)
.PivotCache.Refresh
.ClearAllFilters
Met .RowRange
dtmDate = Evalueren(“Max(IF(ISNUMBER(“ & .Adres(0, 0) & “),” & .Adres(0, 0) & “,))”)
Eindigt met
Voor elk pfiPivFldItem in .PivotFields ("Dates").PivotItems
Als pfiPivFldItem.Value = "(leeg)" Dan
pfiPivFldItem.Visible = False
Anders
pfiPivFldItem.Visible = (Cdate(pfiPivFldItem.Value) = CLng(dtmDate))
Stop als
Volgende pfiPivFldItem
Eindigt met
Einde sub
- Na het kopiëren van de code moet je de macro uitvoeren met ALT + F8 & selecteer de macro.
- Of u kunt een vorm invoegen en de macro toewijzen; we krijgen de laatste datum
- Om de code te testen; als we de bestaande datum wijzigen; we zullen dienovereenkomstig output krijgen
Om deze code dynamisch te laten werken, hoeft u alleen maar de onderstaande stappen te volgen:
- Druk op CTRL + F3 om Name Manager te openen
- Voer in het vak Verwijst naar de formule in als
- =OFFSET(Blad1!$A$1,,,COUNTA(Blad1!$A:$A),2)
- Klik op de ok-knop
- Nu zijn we klaar om dit benoemde bereik in draaitabel te gebruiken
- Klik op de draaitabel
- Van lint Analyseren > Klik op Gegevensbron wijzigen
- Druk op de snelkoppeling F3 om de bestaande plaknaam te starten; selecteer LaatsteDatum
- Klik twee keer op de ok-knop
- Om te testen kunnen we de nieuwe datum invoeren
- Het enige dat we hoeven te doen, is op de rechthoekige vorm klikken om de macro uit te voeren.
Op deze manier kunnen we de laatste datum uit de draaitabel selecteren met behulp van VBA.
Download-Hoe de laatste datum uit de draaitabel te selecteren met VBA