I denne artikel vil vi oprette en makro til sortering af data i arket efter fødselsdag, og vi vil ikke overveje år, mens vi sorterer dataene.
Rådata består af to kolonner, en indeholder navnet og anden kolonne indeholder fødselsdatoen.
Logisk forklaring
Vi har oprettet en makro, “sorting_names_by_birthday”, som vil sortere dataene.
I denne makro indsætter vi for det første formler i kolonnen C, hvor vi finder forskellen mellem fødselsdato og første dato i deres fødselsår. Derefter sorterer vi dataene efter Navn for at sortere data i alfabetisk rækkefølge, så hvis to kandidater har samme fødselsdato, skal deres navne vises i alfabetisk rækkefølge. Derefter sorterer vi dataene ved at beregne forskel i stigende rækkefølge for at sortere data efter fødselsdag. Efter sortering af data, for at slette formlerne fra kolonnen C, skal du slette hele kolonnen C.
For at køre makroen skal du trykke på Alt +F8 eller Gå til fanen Udvikler> klik på Makro.
Følg venligst nedenstående for koden
Option Eksplicit Sub sorting_names_by_birthday () 'Deaktivering af skærmopdatering Application.ScreenUpdating = False Dim Last_Row As Long' Finding the last row Last_Row = ActiveCell.SpecialCells (xlCellTypeLastCell) .Rækkevidde ("C16"). Vælg 'Få årets dage' Fratrækker årets første dato fra fødselsdatoen ActiveCell.FormulaR1C1 = "= RC [-1] -DATE (YEAR (RC [-1]), 1,1)" 'Trækning af formelområdet ("C16: C" & Last_Row) .Vælg Selection.FillDown 'Sortering af data først efter kolonne A derefter efter kolonne C Range ("A15"). CurrentRegion.Sort _ key1: = Range ("C15"), order1: = xlAscending, _ key2: = Range ("A15"), ordre2: = xlAscending, _ Header: = xlJa 'Sletter kolonnen C -kolonner ("C"). Slet område ("A15"). Vælg Afslut sub
Hvis du kunne lide denne blog, kan du dele den med dine venner på Facebook. Du kan også følge os på Twitter og Facebook.
Vi vil meget gerne høre fra dig, lad os vide, hvordan vi kan forbedre vores arbejde og gøre det bedre for dig. Skriv til os på e -mail -stedet