Šajā rakstā mēs izveidosim makro datu kārtošanai lapā pēc dzimšanas dienas, un, kārtojot datus, mēs neņemsim vērā gadu.
Neapstrādāti dati sastāv no divām kolonnām, no kurām vienā ir vārds, bet otrajā slejā ir dzimšanas datums.
Loģisks skaidrojums
Mēs esam izveidojuši makro “sorting_names_by_birthday”, kas sakārtos datus.
Šajā makro vispirms slejā C ievietojam formulas, kur atrodam atšķirību starp dzimšanas datumu un dzimšanas gada pirmo datumu. Tad mēs sakārtojam datus pēc nosaukuma, lai kārtotu datus alfabētiskā secībā, lai, ja diviem kandidātiem būtu vienāds dzimšanas datums, viņu vārdi tiktu parādīti alfabētiskā secībā. Pēc tam mēs kārtojam datus, aprēķinot atšķirības augošā secībā, lai sakārtotu datus pēc dzimšanas dienas. Pēc datu šķirošanas, lai izdzēstu formulas no kolonnas C, izdzēsiet visu kolonnu C.
Lai palaistu makro, nospiediet Alt +F8 vai dodieties uz cilni Izstrādātājs> noklikšķiniet uz Makro.
Lūdzu, sekojiet tālāk norādītajam kodam
Opcija Explicit Sub sorting_names_by_birthday () 'Ekrāna atjaunināšanas atspējošana Application.ScreenUpdating = False Dim Last_Row as Long' Pēdējās rindas atrašana Last_Row = ActiveCell.SpecialCells (xlCellTypeLastCell). Rindas diapazons ("C16"). Atlasiet "Gada dienu iegūšana" Atņemot gada pirmo datumu no dzimšanas datuma ActiveCell.FormulaR1C1 = "= RC [-1] -DATE (GADS (RC [-1]), 1,1)" 'Formulas diapazona vilkšana ("C16: C" & Pēdējā rinda). Izvēlieties Selection.FillDown 'Datu šķirošana vispirms pēc kolonnas A, pēc tam pēc kolonnas C Diapazons ("A15"). ("A15"), secība2: = xlPieaugoši, _ Virsraksts: = xlJā 'Kolonnas C kolonnas ("C") dzēšana. Diapazona dzēšana ("A15"). Atlasiet beigu apakšdaļu
Ja jums patika šis emuārs, kopīgojiet to ar saviem draugiem Facebook. Varat arī sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot savu darbu un padarīt to labāku jums. Rakstiet mums e -pasta vietnē