Šiame straipsnyje mes sukursime makrokomandą, kad ištrintume ankstesnių datų duomenis. Ši makrokomanda tikrina duomenis, saugo šiandienos duomenis ir ištrina visus ankstesnių datų duomenis.
Neapdorotus duomenis šiame pavyzdyje sudaro data, agento vardas ir pavienio agento pardavimai tą konkrečią dieną.
Norėdami paleisti makrokomandą, spustelėkite mygtuką pagrindiniame lape arba netgi galite jį paleisti paspausdami sparčiuosius klavišus Alt + F8.
„Macro“ ištrins visus įrašus su ankstesnėmis datomis. Kadangi vykdome šią makrokomandą 2016 m. Gruodžio 14 d., Rezultatas parodys tik tos datos įrašus.
Loginis paaiškinimas
Šiame pavyzdyje sukūrėme makrokomandą „RemovePreviousData“. Ši makrokomanda naudoja atvirkštinę FOR kilpą, tai reiškia, kad kilpa eina priešinga kryptimi. Kilpa prasideda nuo paskutinės eilutės ir juda link viršutinės eilutės.
Atvirkštinio ciklo naudojimo priežastis yra ta, kad jei būtume naudoję įprastą FOR ciklą, tada po kiekvienos eilutės ištrynimo duomenyse esantys įrašai būtų pasislinkę į viršų, todėl kiekviena eilutė ištrinama. Taigi, norėdami tai išvengti, mes panaudojome atvirkštinę kilpą.
Mes naudojome „Step“ teiginį kartu su „FOR“ kilpa, kad galėtume cikluoti atvirkštine kryptimi. FOR kilpa prasideda nuo paskutinės eilutės ir eina link 11tūkst eilė.
Sekite toliau pateiktą kodą
Parinktis „Explicit Sub RemovePreviousData“) „Dim Counter“, „LastRow as Integer“ „Paskutinės eilutės eilutės numerio radimas LastRow = ActiveSheet.Range („ A1 “). SpecialCells (xlLastCell). 11 veiksmas -1, jei langeliai (skaitiklis, 1). Vertė <Data tada 'Eilutės eilučių ištrynimas (skaitiklis). Ištrinkite pabaigą, jei kitas skaitiklio pabaigos sub
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