Šiame straipsnyje mes sukursime makrokomandą, skirtą duomenims rūšiuoti lape pagal gimtadienį, ir rūšiuodami duomenis neatsižvelgsime į metus.
Neapdorotus duomenis sudaro du stulpeliai, viename - vardas, o antrame - gimimo data.
Loginis paaiškinimas
Sukūrėme makrokomandą „sorting_names_by_birthday“, kuri surūšiuos duomenis.
Šioje makrokomandoje C stulpelyje pirmiausia įterpiame formules, kuriose randame skirtumą tarp gimimo datos ir pirmosios gimimo metų datos. Tada mes surūšiuojame duomenis pagal vardą, norėdami rūšiuoti duomenis abėcėlės tvarka, kad jei du kandidatai turi tą pačią gimimo datą, jų vardai būtų rodomi abėcėlės tvarka. Tada mes rūšiuojame duomenis, apskaičiuodami skirtumą didėjančia tvarka, norėdami rūšiuoti duomenis pagal gimtadienį. Surūšiavę duomenis, norėdami ištrinti formules iš C stulpelio, ištrinkite visą C stulpelį.
Norėdami paleisti makrokomandą, paspauskite „Alt“ +F8 arba Eikite į skirtuką „Kūrėjas“> spustelėkite „Makro“.
Sekite toliau pateiktą kodą
Option Explicit Sub sorting_names_by_birthday () 'Ekrano atnaujinimo išjungimas Application.ScreenUpdating = False Dim Last_Row as Long' Paskutinės eilutės radimas Last_Row = ActiveCell.SpecialCells (xlCellTypeLastCell) .Row Range ("C16"). Pasirinkite "Getting the days of days" Iš gimimo datos atimant pirmąją metų datą ActiveCell.FormulaR1C1 = "= RC [-1] -DATE (METAI (RC [-1]), 1,1)" 'Vilkite formulės diapazoną ("C16: C" & Paskutinė eilutė). Pasirinkite Selection.FillDown 'Duomenų rūšiavimas pirmiausia pagal A stulpelį, tada pagal C stulpelį Diapazonas ("A15"). CurrentRegion.Sort _ key1: = Diapazonas ("C15"), tvarka1: = xlAuscending, _ key2: = Diapazonas ("A15"), užsakymas2: = xlAuncending, _ Header: = xlYes 'Stulpelio C stulpelių trynimas ("C"). Ištrinti diapazoną ("A15"). Pasirinkite Pabaigos antraštė
Jei jums patiko šis tinklaraštis, pasidalykite juo su draugais „Facebook“. Be to, mus galite sekti „Twitter“ ir „Facebook“.
Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime pagerinti savo darbą ir padaryti jį geresnį. Rašykite mums el