DOUBLE CLICK CELL INSERT COMMENT DI EXCEL 3

Postingan ini berdasarkan request dari salah satu teman di facebook, yang menanyakan cara membuat double click di cell excel.

Langsung saja aku buat salah satu contoh perintah double click di cell excel, pada range tertentu, yang akan menampilkan input box, dan menampilkan hasil input box ke comment di active cell.

Caranya cukup sederhana karena kode makronya dipasang di worksheet, yaitu dengan melakukan Klik kanan pada sheet tab excel (misal : Sheet1), dan pilih View Code.

Selanjutnya tinggal copy aja kode di bawah ini kedalamnya.

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim komen As String
Dim komen2 As String
'mengkondisikan range D2:D5
If Not Intersect(Target, Range("D2:D5")) Is Nothing Then
'kondisi apabila comment tidak ada di target double click
If Target.Comment Is Nothing Then
'memunculkan inputbox dan menambahkan hasil inputbox sebagai comment
komen = InputBox("Catetan:", "Informasi")
If komen = "" Then Exit Sub'keluar dari kondisi perintah double click bila inputbox tidak diisi
Target.AddComment Text:=komen
Target.Comment.Visible = False
Else
'kondisi apabila target double click sudah ada comment teks-nya
If Target.Comment.Text <> "" Then
'memunculkan inputbox dan mengganti comment teks yang sudah ada sesuai hasil inputbox yang baru
komen2 = InputBox("Catetan:", "Informasi")
If komen2 = "" Then Exit Sub
komen = Target.Comment.Text
Target.ClearComments
Target.AddComment Text:=komen2
Else

komen2 = InputBox("Catetan:", "Informasi")
If komen2 = "" Then Exit Sub
Target.ClearComments
Target.AddComment Text:=komen2
End If
End If
End If
End Sub

seperti biasa kalau mau tambahan bantuan file contohnya bisa di DOWNLOAD disini