Excel - - tworzenie raportu obecności

Microsoft Excel jest bardzo przydatnym narzędziem do tworzenia, przechowywania i manipulowania danymi. Excel można wykorzystać do tworzenia różnych raportów i wykresów. Na przykład można go użyć do utworzenia raportu obecności. W ramach pierwszego kroku tworzenia raportu frekwencji, Excel jest używany do zbierania danych o obecności osób uczestniczących w pracy / szkole / spotkaniach itp. Oraz ich procentowej frekwencji. Następnie należy napisać niestandardowe makro za pomocą środowiska VBA, które automatycznie agreguje dane tylko dla dostępnego zakresu danych bez określonego wejścia od użytkownika.

Kwestia

Jeśli chcesz utworzyć raport obecności z Excelem, oto miły przykład:

Rozważ, że Twój raport będzie miał następujące parametry:

Masz 60 mieszkańców pracujących w twoim dziale. Codziennie uczestniczą w porannym raporcie. Dlatego stworzyłem arkusz Excela (o nazwie Tabela frekwencji) zawierający kolumny A1: A60 z nazwiskami mieszkańców B1: B60 z ich procentem frekwencji na jeden miesiąc.

Po utworzeniu szablonu raportu obecności chcesz uruchomić makro, które wykona następujące czynności:

Uruchom nowy arkusz z szablonu w skoroszycie, który ma „Arkusz tabeli obecności”. Powinien przynieść dane z arkusza „Tabela obecności”
Z pierwszej kolumny A1 umieść pole Nazwa szablonu (nowy arkusz otwarty w pierwszym etapie) (Zawsze D6)
Wprowadź dane z B1 i wprowadź pole Procent szablonu (F10)
Powinien zmienić nazwę karty arkusza z danymi z A1 (tj. Nazwa rezydenta)
Powtórz krok 2, aż osiągnie pustą komórkę

Rozwiązanie

 „Raport obecności podprogramu do
„Otwórz nowy arkusz o nazwie arkusz roboczy frekwencji
„Z danymi z tabeli obecności
„Nazwa mieszkańca na D6
„Procent frekwencji na jeden miesiąc do F10
„Zmień nazwę arkusza na nazwę rezydenta i zacznij od nowa
„Dla wszystkich mieszkańców w tabeli
Sub AttendanceReport ()
Dim cCell As Object, i As Integer 'Dwie zmienne cCell (bieżąca komórka) obiekt i i (standardowa liczba całkowita)
Komórki (1, „A”). Wybierz opcję Upewnij się, że zaczynamy za każdym razem u góry arkusza
Application.ScreenUpdating = False 'Włącz aktualizacje ekranu podczas działania makra
Dla każdego cCell w zasięgu (komórki (1, „A”), komórki (1, „A”). End (xlDown)) 'Będzie uruchamiał nasz kod przez każdą komórkę z tekstem
Set NewSheet = Sheets.Add (Type: = xlWorksheet) 'Dodaj nowy arkusz
NewSheet.Name = „Arkusz tabeli obecności” „zmień nazwę arkusza roboczego
Arkusze („Arkusz Tabeli Obecności”). Komórki (6, „D”). Wartość = cCell.Value ”Nazwa rezydenta to komórka D6
Arkusze („Arkusz Tabeli Obecności”). Komórki (10, „F”). Wartość = cCell.Offset (0, 1) .Value ”umieść przypisanie zamieszkania do F10
Arkusze („Arkusz tabeli obecności”). Nazwa = cCell.Value
Następny cCell
Napis końcowy