Membuat Ceklist Otomatis

Cara membuat ceklist (v) otomatis dengan bantuan macro excel. Tujuan dari pembuatan tutorial kali ini adalah untuk membantu untuk membuat ceklist kehadiran pada ceklist kehadiran Pemilu mudah-mudahan bisa terpake pada Pilpres mendatang.
Seperti yang telah saya uraikan pada Aplikasi untuk KPPS Pileg kemarin disini saya akan coba kembangkan bagaimana cara membuat Daftar ceklist kehadiran dengan tidak mengetikan huruf "V" pada aplikasi Pemilu sheet kehadiran pemilu mendatang sehingga operator komputer di KPPS tidak kerepotan pada pelaksanaan hari H nya.

Coba anada perhatikan srceen shoot dari ceklist daftar kehadiran diatas, ini adalah sebagian dari aplikasi pemilu untuk di KPPS pada awalnya ceklist kehadiran ini diketikkan secara manual dengan menekan huruf "V" pada keyboard dan ternyata tidak efektif karena operator komputer di KPPS merasa keteteran dalam kecepatan mengetikkan huruf "V" tersebut.
Pada kali ini saya akan bahas bagaimana membuat ceklist kehadiran pemilih secara otomatis yaitu dengan hanya memindahkan pointer pada keyboar maka secara otomatis huruf "V" atau ceklist bisa terisi secara otomatis.

Langkah-langkah membuat ceklist kehadiran otomatis

1. Buat format daftar kehadiran pemilih seperti gambar diatas
2. Pada setiapkolom CL Anda harus membuat proteksi cell, agar lebih cepat blok semua kolom CL yang akan diisi oleh huruf "V" kemudian klik kanan dan pilih Format Cells kemudian hilangkan centang Locked pada tam Protection
   
3. Klik OK, maka cell yang telah diblok tersebut sudah tidak terkunci.
4. Langkah berikutnya adalah silakan kunci workshet tersebut dengan klik menu Review kemudian pilih protect sheets
   
5. Mau pake password silakan ga juga GPP, lanjut ke langkah berikutnya
6. Klik menu Developer kemudian pilih View Code (catatan: untuk mengaktifkan menu Developer silakan lihat artikel tentang Cara Mengaktifkan/Memunculkan Menu Developer)
7. Copykan script code VBA dibawah ini pada 
 

'Cara membuat ceklist otomatis
'jago-office.blogspot.com
'Yatna Supriyatna

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Left(ActiveSheet.Name, 6) = "DAFTAR" Then
    If Cells(Target.Row, Target.Column + 1) = "V" Then
       Cells(Target.Row, Target.Column + 1) = ""
    End If
    If Cells(Target.Row, Target.Column - 1) = "V" Then
       Cells(Target.Row, Target.Column - 1) = ""
    End If
    If Cells(Target.Row, Target.Column + 2) = "V" Then
       Cells(Target.Row, Target.Column + 2) = ""
    End If
    If Cells(Target.Row, Target.Column - 2) = "V" Then
       Cells(Target.Row, Target.Column - 2) = ""
    End If
    Cells(Target.Row, Target.Column) = "V"
End If
End Sub

Untuk menghindari cell yang tidak seharusnya ditulis silakan pilih properties dengan pilihan 1-XlUnLockedCell
Hasilnya silakan coba sendiri dengan hanya memindahkan pointer menggunakan arrow di keyboar ceklist (V) akan secara otomatis terisi
Selamat mencoba

Tweet