Šiame straipsnyje mes sukursime makrokomandą, kad duomenys būtų išdėstyti kiekvieną dieną keliuose lapuose.
Neapdorotus šio straipsnio duomenis sudaro kasdieniniai komandos pardavimo duomenys, įskaitant datą, agento vardą ir parduotų prekių skaičių.
Norime kiekvieną dieną platinti duomenis keliuose lapuose. Spustelėję mygtuką „Paskirstyti duomenis kasdien“, padarysite tą patį.
Kodo paaiškinimas
„Do Before IsEmpty“ (darbalapiai (1). Ląstelės (intRowS, 1))
Kilpa
Pirmiau nurodytame kode „Do Do“ kilpa cikluos tol, kol bus surasta tuščia ląstelė.
strTab = Formatas (Ląstelės (intRowS, 1). Vertė, "ddmmyy")
Aukščiau pateiktas kodas naudojamas lapo pavadinimui išgauti iš datos.
intRowT = darbalapiai (strTab). Ląstelės (eilutės. skaičius, 1). pabaiga (xlUp). eilutė + 1
Aukščiau pateiktas kodas naudojamas paskutinio langelio eilutės numeriui gauti.
Sekite toliau pateiktą kodą
„Sub Divide“ () „Kintamųjų deklaravimas Dim intRowS kaip sveikasis skaičius, intRowT kaip sveikasis skaičius Dim strTab As String“ Inicijuojama su pradiniu eilutės numeriu intRowS = 10 “Tikrinama, ar pirmo stulpelio langelis tuščias Do Iki IsEmpty (darbalapiai (1). Ląstelės (intRowS, 1)) 'Lakšto pavadinimo gavimas pagal datos reikšmę pirmajame stulpelyje strTab = Formatas (Ląstelės (intRowS, 1) .Verta, "ddmmyy")' Paskutinio langelio eilutės numerio gavimas intRowT = darbalapiai (strTab). Ląstelės (Rows.Count, 1). End (xlUp). Eilutė + 1 'Duomenų kopijavimas į atitinkamą lapo eilutę (intRowS). Kopijuoti darbalapius (strTab). Eilutės (intRowT) intRowS = intRowS + 1 Loop End 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