Selles artiklis loome makro, mis korraldab andmed mitmele päevale igapäevaselt.
Selle artikli toorandmed hõlmavad meeskonna igapäevaseid müügiandmeid, mis sisaldavad kuupäeva, agendi nime ja müüdud esemete arvu.
Tahame jagada andmeid iga päev mitmele lehele. Kui klõpsate nupul „Levita andmeid iga päev”, tehakse sama.
Koodi selgitus
Tehke kuni isEmpty (töölehed (1). Lahtrid (intRowS, 1))
Loop
Ülaltoodud koodis ringleb Do kuni tsükkel kuni tühja lahtrini.
strTab = Vorming (Lahtrid (intRowS, 1) .Väärtus, "ddmmyy")
Ülaltoodud koodi kasutatakse lehe nime väljavõtmiseks kuupäevast.
intRowT = töölehed (strTab). Lahtrid (Rows.Count, 1). End (xlUp). Rida + 1
Ülaltoodud koodi kasutatakse viimase lahtri rea numbri saamiseks.
Palun järgige koodi allpool
Sub Divide () 'Muutujate deklareerimine Dim intRowS täisarvuna, intRowT täisarvuna Dim strTab kui string' Initsialiseerimine algse rea numbriga intRowS = 10 'Kontrollimine, kas esimese veeru lahter on tühi Tehke kuni tühi (töölehed (1). Lahtrid (intRowS, 1)) 'Lehe nime saamine esimese veeru kuupäevaväärtuse alusel strTab = Format (Lahtrid (intRowS, 1) .Väärtus, "ddmmyy")' Viimase lahtri rea numbri hankimine Lahtrid (Rows.Count, 1). End (xlUp). Rida + 1 'Andmete kopeerimine vastavale lehele Ridad (intRowS). Töölehtede kopeerimine (strTab). Rid (intRowT) intRowS = intRowS + 1 Loop End Sub
Kui teile see blogi meeldis, jagage seda oma sõpradega Facebookis. Lisaks saate meid jälgida Twitteris ja Facebookis.
Tahaksime sinust kuulda, andke meile teada, kuidas saaksime oma tööd paremaks muuta ja teie jaoks paremaks muuta. Kirjuta meile meilisaidile