Tässä artikkelissa luomme makron tietojen järjestämiseksi päivittäin useille arkeille.
Tämän artikkelin raakatiedot koostuvat tiimin päivittäisistä myyntitiedoista, jotka sisältävät päivämäärän, edustajan nimen ja myytyjen tuotteiden määrän.
Haluamme jakaa tiedot päivittäin useille arkeille. Klikkaamalla "Jaa tiedot päivittäin" -painiketta, teet saman.
Koodin selitys
Tee kunnes on tyhjä (laskentataulukot (1). Solut (intRowS, 1))
Silmukka
Yllä olevassa koodissa Do Before -silmukka silmukkaa, kunnes tyhjä solu on havaittu.
strTab = Muoto (Solut (intRowS, 1). Arvo, "ddmmyy")
Yllä olevaa koodia käytetään poimimaan taulukon nimi päivämäärästä.
intRowT = laskentataulukot (strTab). solut (Rows.Count, 1). End (xlUp). rivi + 1
Yllä olevaa koodia käytetään viimeisen solun rivinumeron saamiseen.
Seuraa koodia alla
Sub Divide () 'Muuttujien ilmoittaminen Dim intRowS kokonaislukuna, intRowT kokonaislukuna Dim strTab as String' Alustetaan alkurivin numerolla intRowS = 10 'Tarkistetaan, onko ensimmäisen sarakkeen solu tyhjä Tee kunnes on tyhjä (laskentataulukot (1). Solut (intRowS, 1)) 'Arkin nimen hakeminen ensimmäisen sarakkeen päivämääräarvon perusteella strTab = Muoto (Solut (intRowS, 1). Arvo, "ddmmyy")' Viimeisen solun rivinumeron saaminen intRowT = Laskentataulukot (strTab). Solut (Rows.Count, 1) .End (xlUp). Rivi + 1 'Tietojen kopioiminen vastaavalle taulukolle Rivit (intRowS). Kopioi laskentataulukot (strTab). Rivit (intRowT) intRowS = intRowS + 1 Loop End Sub
Jos pidit tästä blogista, jaa se ystävillesi Facebookissa. Voit myös seurata meitä Twitterissä ja Facebookissa.
Haluaisimme kuulla sinusta, kerro meille, kuinka voimme parantaa työtämme ja parantaa sitä sinulle. Kirjoita meille sähköpostitse