Forberede en deltagelsesrapport med Excel-ark

Tilstedeværelsesrapporten kan let fremstilles i et Excel-ark. Der er nogle metoder, som er nødvendige for at følge for at arrangere Excel-ark . Forbered et Excel-ark, der viser procentdelen af deltagerne i en måned. Brugeren skal også udarbejde en skabelon til deltagelsesrapporten. Det ville være nemmere at køre det i makroformat. Åbn et nyt regneark, der indeholder skabelonen for deltagelsesrapporten. Det er nødvendigt at hente dataene fra arbejdsarket til deltagelse . Klargør kolonner, der indsætter dataene. Nu omdøb det nye arbejdsark . Gentag processen, indtil den når den destination, der er den tomme celle. Office-softwaren er virkelig nyttig i denne ansøgning om deltagelse forberedelse.

Forberede en deltagelsesrapport med Excel-ark

Problem
Opløsning
Bemærk

Problem

Jeg har 60 indbyggere, der arbejder i vores afdeling. De deltager i morgenrapport hver dag. Så jeg har udarbejdet et Excel-ark (Navngivne Tilstedeværelsestabel), som har kolonner A1: A60 med navnene på beboere B1: B60 med procentdel af deltagelse i en måned. Mit job er at forberede en deltagelsesrapport for hver beboer. Jeg har udarbejdet en skabelon til deltagelsesrapporten. Nu vil jeg køre en makro, der vil gøre følgende ting:

1. Åbn et nyt regneark fra skabelonen i projektmappen, som har "Arbejdstabellen Arbejdstabell"

2. Det skal bringe dataene fra "Attendance Table" -arket

en. Fra første kolonne A1 og indsæt feltet Navn på skabelon (nyt regneark åbnet i fase 1) (altid D6)

b. Tag data fra B1 og sæt i procentfelt af skabelon (F10)

c. Det skal omdøbe fanen regneark med data fra A1 (dvs. den residentes navn)

3. Det skal gentage trin 2, indtil det når den tomme celle

Kan nogen hjælpe mig med at skrive makroen.?

Opløsning

 'Tilstedeværelsesrapport Subroutine til
'Åbn nyt regneark kaldet tilstedeværelse tqable regneark
'Med data fra tilstedeværelsestabellen
'Beboernes navn til D6
'Procentdel af attendnace i en måned til F10
'Omdøb ark til beboers navn og start igen
'For alle beboere i bordet
Sub AttendanceReport ()
Dim cCell som objekt, jeg som helhed 'To variabler cCell (nuværende celle) -objekt og i (standardtællings heltal)
Celler (1, "A"). Vælg 'Sørg for, at vi starter hver gang øverst på regnearket
Application.ScreenUpdating = False 'Skærmen opdateres, mens makroen kører
For hver cCell In Range (Celler (1, "A"), Celler (1, "A"). Slut (xlDown)) 'Vil køre vores kode gennem hver celle med tekst
Indstil NewSheet = Sheets.Add (Type: = xlWorksheet) 'Tilføj nyt regneark
NewSheet.Name = "Arbejdstabellen Arbejdstabell" 'omdøbe regneark
Ark ("Attendance Table Worksheet"). Celler (6, "D"). Værdi = cCell.Value 'sætte beboers navn er celle D6
Ark ("Attendance Table Worksheet"). Celler (10, "F"). Værdi = cCell.Offset (0, 1) .Value 'sætte opholdstilladelse i F10
Ark ("Arbejdstabellen Arbejdsark"). Navn = cCell.Value
Næste cCell
Slutdel