√ Menciptakan Ceklist Otomatis

Cara menciptakan ceklist (v) otomatis dengan pemberian macro excel. Tujuan dari pembuatan tutorial kali ini yaitu untuk membantu untuk menciptakan ceklist kehadiran pada ceklist kehadiran Pemilu mudah-mudahan dapat terpake pada Pilpres mendatang.
Seperti yang telah aku uraikan pada Aplikasi untuk KPPS Pileg kemarin disini aku akan coba kembangkan bagaimana cara menciptakan Daftar ceklist kehadiran dengan tidak mengetikan aksara "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 yaitu sebagian dari aplikasi pemilu untuk di KPPS pada awalnya ceklist kehadiran ini diketikkan secara manual dengan menekan aksara "V" pada keyboard dan ternyata tidak efektif alasannya yaitu operator komputer di KPPS merasa keteteran dalam kecepatan mengetikkan aksara "V" tersebut.
Pada kali ini aku akan bahas bagaimana menciptakan ceklist kehadiran pemilih secara otomatis yaitu dengan hanya memindahkan pointer pada keyboar maka secara otomatis aksara "V" atau ceklist dapat terisi secara otomatis.

Langkah-langkah menciptakan ceklist kehadiran otomatis

1. Buat format daftar kehadiran pemilih ibarat gambar diatas
2. Pada setiapkolom CL Anda harus menciptakan perlindungan cell, semoga lebih cepat blok semua kolom CL yang akan diisi oleh aksara "V" lalu 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 yaitu silakan kunci workshet tersebut dengan klik hidangan Review lalu pilih protect sheets
   
5. Mau pake password silakan ga juga GPP, lanjut ke langkah berikutnya
6. Klik hidangan Developer lalu pilih View Code (catatan: untuk mengaktifkan hidangan Developer silakan lihat artikel perihal Cara Mengaktifkan/Memunculkan Menu Developer)
7. Copykan script code VBA dibawah ini pada 
 

'Cara menciptakan 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 memakai arrow di keyboar ceklist (V) akan secara otomatis terisi
Selamat mencoba


Sumber http://www.excel-id.com/