V tomto článku vytvoríme makro na usporiadanie údajov podľa dňa na viacerých listoch.
Pôvodné údaje pre tento článok pozostávajú z denných údajov o predaji tímu, ktoré obsahujú dátum, meno agenta a počet predaných položiek.
Chceme údaje distribuovať po dňoch na viacero hárkov. To isté urobíte kliknutím na tlačidlo „Distribuovať údaje denne“.
Vysvetlenie kódu
Robiť, kým nie je prázdny (pracovné listy (1). Bunky (intRowS, 1))
Slučka
Vo vyššie uvedenom kóde sa slučka Do until bude opakovať, kým nenarazí na prázdnu bunku.
strTab = Formát (bunky (intRowS, 1). Hodnota, „ddmmyy“)
Vyššie uvedený kód sa používa na extrakciu názvu listu z dátumu.
intRowT = pracovné listy (strTab). Bunky (počet riadkov, 1). Koniec (xlUp). riadok + 1
Vyššie uvedený kód sa používa na získanie čísla riadku poslednej bunky.
Pri kódovaní postupujte podľa nižšie uvedených pokynov
Sub Divide () 'Deklarovanie premenných Dim intRowS As Integer, intRowT As Integer Dim strTab As String' Inicializácia s počiatočným číslom riadka intRowS = 10 'Kontrola, či je bunka v prvom stĺpci prázdna Vykonať do IsEmpty (pracovné listy (1). Bunky (intRowS, 1)) 'Získanie názvu hárka na základe hodnoty dátumu v prvom stĺpci strTab = Formát (Bunky (intRowS, 1). Hodnota, "ddmmyy")' Získanie čísla riadka poslednej bunky intRowT = Pracovné listy (strTab). Bunky (riadky. Počet, 1). Koniec (xlUp). Riadok + 1 'Kopírovanie údajov do príslušných riadkov hárka (intRowS). Skopírujte pracovné listy (strTab). Riadky (intRowT) intRowS = intRowS + 1 koniec slučky
Ak sa vám tento blog páčil, zdieľajte ho so svojimi priateľmi na Facebooku. Môžete nás tiež sledovať na Twitteri a Facebooku.
Budeme radi, ak sa nám ozvete, dajte nám vedieť, ako môžeme zlepšiť našu prácu a zlepšiť ju pre vás. Napíšte nám na emailovú stránku