Pembahasan kali ini masih tentang event Workbook yaitu mempertunjukkan contoh event Workbook_SheetBeforeDoubleClick yang dicetuskan pada saat Anda melakukan dobel-klik pada suatu sel.

Biasanya dobel-klik akan menampilkan mode Edit yang tentunya bisa dibatalkan dengan menggunakan parameter Cancel.

Dalam contoh kode macro di bawah ini, kolom C di setiap sheetnya digunakan sebagai tempat untuk tanda ceklis dalam sel sehingga bisa menjadi pengganti objek tombol kotak centang, cukup dengan meng-klik dua kali sel maka tanda ceklis pun dimasukkan.

Gambar di bawah ini mempertunjukkan hasil akhirnya:

Sel-sel di kolom C berfungsi sebagai tombol penampil tanda ceklis.

Jika sel telah berisi ceklis, untuk menghilangkannya Anda cukup melakukan dobel-klik lagi pada sel tersebut dan tanda ceklis pun seketika dihapus.

Adapun simbol ceklis dibuat dari huruf "ü" menggunakan font Wingdings.

Ikuti langkah-langkah berikut untuk membuat kode macronya:

1. Buat worksheet seperti pada contoh gambar.

2. Buka VBE dengan cara menekan Alt+F11, kemudian tekan Ctrl+R untuk memastikan jendela Project Explorer membuka.

3. Pada Project Explorer klik folder dengan nama Microsoft Excel Objects.

4. Dalam daftar di bawah Microsoft Excel Objects terdapat objek workbook dengan nama ThisWorkbook. Dobel-klik ThisWorkbook untuk memunculkan module workbook.

5. Pada kotak daftar pilihan Object pilih Workbook.

6. Pada kotak daftar pilihan Procedure pilih SheetBeforeDoubleClick.

7. Tepat di bawah Private Sub Workbook_SheetBeforeDoubleClick ketik perintah dengan penghubung logis berikut untuk menetapkan kolom C sebagai tombol penampil ceklis:

If Target.Column <> 3 Then Exit Sub

8. Matikan mode Edit dengan parameter Cancel:

Cancel = True

9. Tetapkan nama font-nya yaitu Wingdings:

Target.Font.Name = "Wingdings"

10. Buat tanda ceklis rata tengah pada kolom:

Target.HorizontalAlignment = xlCenter

11. Hapus konten dalam sel jika sebelumnya konten sudah ada lalu akhiri penghubung logis: 

If IsEmpty(Target) = True Then
Target.Value = "ü"
Else
Target.Clear
End If

12. Kode lengkapnya menjadi sebagai berikut:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, _
ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 3 Then Exit Sub
Cancel = True
Target.Font.Name = "Wingdings"
Target.HorizontalAlignment = xlCenter
If IsEmpty(Target) = True Then
Target.Value = "ü"
Else
Target.Clear
End If
End Sub

13. Kembali ke worksheet dengan cara menekan Alt+Q.

14. Silakan meng-klik dua kali sel-sel di kolom C.

Demikian pembahasan tentang trik sederhana membuat ceklis dengan cara melakukan dobel-klik mudah dan praktis pada sel Excel, semoga postingan ini bermanfaat.