Excel - - opprette en attendance rapport

Microsoft Excel er et veldig nyttig verktøy for å lage, lagre og manipulere data. Excel kan brukes til å lage en rekke rapporter og diagrammer. For eksempel kan det brukes til å opprette en tilstedeværelsesrapport. Som en del av det første skrittet for å opprette en tilstedeværelsesrapport, brukes Excel til å samle deltidsdata for personer som deltar i arbeid / skole / møter mv og deres andel av deltagelse. Deretter må man skrive en egendefinert makro ved hjelp av et VBA- miljø, som automatisk samler dataene bare for det tilgjengelige datafeltet uten noe spesifikt innspill fra brukeren.

Utgave

Hvis du vil opprette en tilstedeværelsesrapport med Excel, er dette et godt eksempel:

Vurder at rapporten din har følgende parametere:

Du har 60 innbyggere som arbeider i avdelingen din. De møter morgenrapport hver dag. Så, jeg har laget et Excel-ark (kalt Tilstedelsestabell) som inkluderer kolonner A1: A60 med navnene på beboere B1: B60 med prosentandeler av oppmøte i en måned.

Når malen for nærværsrapporten er opprettet, vil du kjøre en makro som vil gjøre følgende:

Start et nytt regneark fra malen i arbeidsboken som har "Arbeidsskjema for deltabord". Det skal ta med dataene fra "Attendance Table" regneark
Fra første kolonne A1, legg inn i Navn-feltet for mal (nytt regneark åpnet i fase ett) (Alltid D6)
Ta med data fra B1 og skriv inn prosentandel felt i mal (F10)
Det skal endre navnet på regnearket kategorien med data fra A1 (dvs. bosattens navn)
Det bør gjenta trinn 2 til den når den tomme cellen

Løsning

 'Tilstedeværelsesrapport Subroutine til
'Åpne nytt regneark kalt attendance tqable regneark
'Med data fra deltakerbordet
'Beboernes navn til D6
'Prosentandel av attendnace i en måned til F10
'Gi nytt navn til innbyggers navn og start på nytt
'For alle innbyggere i bordet
Sub AttendanceReport ()
Dim cCell som objekt, jeg som helhet 'to variabler cCell (nåværende celle) objekt og jeg (standard telling heltall)
Celler (1, "A"). Velg Kontroller at vi starter hver gang øverst på regnearket
Application.ScreenUpdating = False 'Slå på skjermoppdateringer mens makroen kjører
For hver cCell i rekkevidde (celler (1, "A"), celler (1, "A"). End (xlDown)) 'Kjører koden vår gjennom hver celle med tekst
Sett NewSheet = Sheets.Add (Type: = xlWorksheet) 'Legg til nytt regneark
NewSheet.Name = "Arrangementstabell Arbeidsark" 'endre navn på regneark
Ark ("Attendance Table Worksheet"). Celler (6, "D"). Verdi = cCell.Value 'sette innbyggernes navn er celle D6
Ark ("Attendance Table Worksheet"). Celler (10, "F"). Verdi = cCell.Offset (0, 1) .Value 'sette oppholdsattest til F10
Ark ("Arbeidstabell i regnearket"). Navn = cCell.Value
Neste cCell
Slutt Sub