I denne artikkelen vil vi lage en makro for å ordne data på flere dager.
Rådata for denne artikkelen består av daglige salgsdata for teamet, som inkluderer dato, agentnavn og antall solgte varer.
Vi ønsker å distribuere dataene daglig på flere ark. Hvis du klikker på knappen "Distribuer data daglig", vil det samme gjøre.
Kode forklaring
Gjør inntil IsEmpty (regneark (1). Celler (intRowS, 1))
Løkke
I ovennevnte kode vil Do Through -sløyfen gå til en tom celle oppstår.
strTab = Format (Cells (intRowS, 1) .Value, "ddmmyy")
Koden ovenfor brukes til å trekke ut arknavn fra datoen.
intRowT = Regneark (strTab). Celler (Rows.Count, 1) .End (xlUp) .Row + 1
Koden ovenfor brukes til å få radnummeret til den siste cellen.
Følg koden nedenfor
Sub Divide () 'Deklarasjonsvariabler Dim intRowS As Integer, intRowT As Integer Dim strTab As String' Initialiserer med startradenummer intRowS = 10 'Kontrollerer om cellen i første kolonne er tom Gjør til det er tomt (regneark (1). Celler (intRowS, 1)) 'Få navnet på arket basert på datoverdien i den første kolonnen strTab = Format (Cells (intRowS, 1) .Value, "ddmmyy")' Få radnummeret til den siste cellen intRowT = Worksheets (strTab). Celler (Rows.Count, 1) .End (xlUp) .Rad + 1 'Kopiering av data til respektive arkrader (intRowS). Kopier regneark (strTab) .Rows (intRowT) intRowS = intRowS + 1 Loop End Sub
Hvis du likte denne bloggen, del den med vennene dine på Facebook. Du kan også følge oss på Twitter og Facebook.
Vi vil gjerne høre fra deg, gi oss beskjed om hvordan vi kan forbedre arbeidet vårt og gjøre det bedre for deg. Skriv til oss på e -post