Excel - stvaranje izvješća o prisutnosti

Microsoft Excel je vrlo koristan alat za stvaranje, spremanje i manipuliranje podacima. Excel se može koristiti za stvaranje raznih izvješća i grafikona. Na primjer, može se koristiti za izradu izvješća o prisutnosti. Kao dio prvog koraka za izradu izvješća o prisutnosti, Excel se koristi za prikupljanje podataka o prisutnosti za osobe koje pohađaju rad / školu / sastanke itd. I njihov postotak prisutnosti. Nakon toga, treba napisati prilagođeni makro pomoću VBA okruženja, koje agregira podatke automatski samo za raspoloživi raspon podataka bez specifičnog unosa od korisnika.

Problem

Ako želite izraditi izvješće o sudjelovanju s programom Excel, evo lijepog primjera:

Uzmite u obzir da će vaše izvješće imati sljedeće parametre:

Imate 60 stanovnika koji rade u vašem odjelu. Oni svakodnevno prisustvuju izvješću. Tako sam stvorio Excelov list (nazvan Stol za nazočnost) koji uključuje stupce A1: A60 s imenima stanovnika B1: B60 s njihovim postotkom pohađanja za mjesec dana.

Nakon izrade predloška za izvješće o prisutnosti želite pokrenuti makronaredbu koja će učiniti sljedeće:

Pokrenite novi radni list iz predloška u radnoj knjizi koja ima "Radni list tablice nazočnosti". Trebao bi donijeti podatke iz radnog lista "Tablica nazočnosti"
Iz prvog stupca A1 stavite u polje Naziv predloška (novi radni list otvoren u fazi 1) (Uvijek D6)
Donesite podatke s B1 i unesite polje Postotak predloška (F10)
Trebala bi promijeniti naziv kartice radnog lista s podacima iz A1 (tj. Ime rezidenta)
Trebao bi ponoviti korak 2 dok ne stigne do prazne ćelije

Riješenje

 'Podizbornik izvješća o nazočnosti
'Otvorite novi radni list nazvan radni list s nazočnosti prisutnosti
'S podacima iz tablice
- Stanovnici se zovu D6
- Postotak posjeta F10 za mjesec dana
'Preimenujte list u ime stanovnika i počnite ponovno
Za sve stanovnike u stolu
Izvješće o podčinjenosti ()
Dim cCell As Object, i As Integer 'Dvije varijable cCell (trenutna ćelija) objekt i i (standardni brojni cijeli broj)
Ćelije (1, "A") Odaberite Uvjerite se da počinjemo svaki put pri vrhu radnog lista
Application.ScreenUpdating = False 'Uključivanje ažuriranja zaslona tijekom pokretanja makronaredbe
Za svaki cCell u dometu (ćelije (1, "A"), ćelije (1, "A"). Kraj (xlDown)) 'Pokrenut će se naš kod kroz svaku ćeliju s tekstom
Postavi NewSheet = Sheets.Add (Vrsta: = xlWorksheet) 'Dodaj novi radni list
NewSheet.Name = "Radni list tablice za nazočnost" 'preimenovanje radnog lista
Listovi ("Radni list tablice nazočnosti"). Stanice (6, "D"). Vrijednost = cCell.Value 'stavi ime stanovnika je ćelija D6
Listovi ("Radni list tablice nazočnosti"). Ćelije (10, "F"). Vrijednost = cCell.Offset (0, 1) .Vrijednost "stavi mjesto boravka u F10
Listovi ("Radni list tablice nazočnosti") Naziv = cCell.Value
Sljedeća cCell
Kraj pod