Senin, 30 Juni 2025

Cara Membuat Daftar Hadir Otomatis dengan Macro di Excel

No comments

Mengelola kehadiran peserta rapat, siswa, atau karyawan kini bisa dilakukan secara otomatis dengan bantuan Macro Excel. Anda hanya perlu klik tombol untuk mengisi tanggal hari ini dan menandai kehadiran. Sangat efisien dan cocok untuk kebutuhan administrasi rutin!

Fungsi Daftar Hadir Otomatis

  • Mengisi tanggal kehadiran secara otomatis
  • Memberi tanda hadir ("✓") hanya dengan satu klik
  • Menambahkan baris data ke tabel kehadiran setiap hari

Contoh Format Tabel Daftar Hadir

Tanggal Nama Hadir
20/06/2025 Ahmad ✓

Langkah Membuat Macro Daftar Hadir Excel

1. Siapkan Tabel Dasar di Excel

Buat tabel dengan kolom: Tanggal, Nama, dan Hadir di Sheet1.

2. Buka Editor Macro

  1. Tekan Alt + F11
  2. Pilih menu Insert → Module
  3. Masukkan script berikut:

Sub TambahKehadiran()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row + 1
    
    Dim nama As String
    nama = InputBox("Masukkan Nama:", "Input Kehadiran")
    
    If nama = "" Then
        MsgBox "Nama tidak boleh kosong!", vbExclamation
        Exit Sub
    End If
    
    ws.Cells(lastRow, 1).Value = Date
    ws.Cells(lastRow, 2).Value = nama
    ws.Cells(lastRow, 3).Value = "✓"
    
    MsgBox "Data kehadiran berhasil ditambahkan!", vbInformation
End Sub

3. Tambahkan Tombol di Excel

  1. Aktifkan tab Developer (jika belum aktif: File → Options → Customize Ribbon → centang Developer)
  2. Klik Insert → Button (Form Control)
  3. Gambar tombol di sheet, pilih macro TambahKehadiran
  4. Ubah label tombol menjadi "Isi Kehadiran"

Bonus: Macro Clear Kehadiran

Untuk menghapus semua entri (reset data), tambahkan macro ini:


Sub HapusKehadiran()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    If MsgBox("Yakin ingin menghapus semua data kehadiran?", vbYesNo + vbQuestion) = vbYes Then
        ws.Range("A2:C" & ws.Cells(ws.Rows.Count, 1).End(xlUp).Row).ClearContents
        MsgBox "Semua data kehadiran telah dihapus!"
    End If
End Sub

Manfaat Automasi Kehadiran

  • Administrasi kehadiran lebih cepat dan rapi
  • Mengurangi kesalahan pengetikan
  • Memudahkan pengelolaan data harian, mingguan, dan bulanan

FAQ

  • Bisa digabung dengan jam hadir?
    Ya, tambahkan kolom “Jam Hadir” dan gunakan: Time untuk mencatatnya.
  • Bisa digunakan banyak user bersamaan?
    Untuk versi sederhana ini tidak, tapi bisa diadaptasi di Excel Online dengan Power Automate.
  • Bisa dibuat form input otomatis?
    Ya, bisa ditambahkan UserForm di VBA untuk tampilan lebih interaktif.

Related Posts

Related Resources

Tags: #MacroExcel #AbsensiExcel #DaftarHadir #ExcelAutomation #VBA

0 komentar:

Posting Komentar