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

Catatan

Dipecahkan oleh Jimmy
Artikel Sebelumnya Artikel Berikutnya

Tips