Untuk menyiapkan Laporan Kehadiran dengan lembar Excel

Laporan kehadiran dapat dengan mudah disiapkan dalam lembar Excel. Ada beberapa metode, yang perlu diikuti untuk mengatur lembar Excel . Persiapkan lembar Excel yang menunjukkan persentase peserta dalam satu bulan. Pengguna juga perlu menyiapkan templat untuk laporan kehadiran. Akan lebih mudah untuk menjalankannya dalam format makro. Buka lembar kerja baru yang berisi templat laporan kehadiran. Diperlukan untuk mengambil data dari lembar kerja tabel Kehadiran . Siapkan kolom memasukkan data. Sekarang ganti nama lembar kerja baru . Ulangi proses ini hingga mencapai tujuan yaitu sel kosong. Perangkat lunak Office sangat membantu dalam aplikasi persiapan kehadiran ini.

Untuk menyiapkan Laporan Kehadiran dengan lembar Excel

Isu
Larutan
Catatan

Isu

Saya memiliki 60 penduduk yang bekerja di departemen kami. Mereka menghadiri laporan pagi setiap hari. Jadi saya sudah menyiapkan lembar Excel (Named Attendance Table) yang memiliki kolom A1: A60 dengan nama-nama penduduk B1: B60 dengan persentase kehadiran selama satu bulan. Pekerjaan saya adalah menyiapkan laporan Kehadiran untuk setiap penduduk. Saya sudah menyiapkan templat untuk laporan kehadiran. Sekarang saya ingin menjalankan Makro yang akan melakukan hal-hal berikut:

1. Buka lembar kerja baru dari templat di buku kerja yang memiliki "lembar kerja Tabel Kehadiran"

2. Seharusnya membawa data dari lembar kerja "Tabel Kehadiran"

Sebuah. Dari kolom A1 pertama dan masukkan bidang Nama template (lembar kerja baru dibuka di tahap satu) (selalu D6)

b. Bawa data dari B1 dan masukkan bidang persentase templat (F10)

c. Itu harus mengganti nama tab lembar kerja dengan data dari A1 (yaitu nama penduduk)

3. Harus mengulangi langkah 2 hingga mencapai sel kosong

Adakah yang bisa membantu saya menulis makro.?

Larutan

 'Laporan Kehadiran Subrutin ke
'Buka Lembar Kerja Baru yang disebut lembar kerja kehadiran tqable
'Dengan data dari Tabel Kehadiran
'Nama penduduk ke D6
'Persentase kehadiran selama satu bulan ke F10
'Ganti nama sheet menjadi nama penghuni dan mulai lagi
'Untuk semua penghuni di meja
Sub AttendanceReport ()
Dim cCell As Object, i As Integer 'Dua variabel cCell (Cell saat ini) objek dan i (integer penghitungan standar)
Sel (1, "A"). Pilih 'Pastikan bahwa kami memulai setiap kali di bagian atas lembar kerja
Application.ScreenUpdating = Salah 'Pembalikan pembaruan layar saat makro sedang berjalan
Untuk Setiap cCell In Range (Sel (1, "A"), Sel (1, "A"). Akhir (xlDown)) 'Akan menjalankan kode kami melalui setiap sel dengan teks
Set NewSheet = Sheets.Add (Type: = xlWorksheet) 'Tambahkan worksheet baru
NewSheet.Name = "Lembar Kerja Daftar Tabel Kehadiran", ganti nama lembar kerja
Sheets ("Attendance Table Worksheet"). Cells (6, "D"). Value = cCell.Value 'menempatkan nama penghuni adalah sel D6
Sheets ("Attendance Table Worksheet"). Cells (10, "F"). Nilai = cCell.Offset (0, 1) .Nilai 'menempatkan perhatian tempat tinggal ke F10
Lembar ("lembar kerja tabel Kehadiran"). Nama = cCell.Value
Sel selanjutnya
End Sub