Display dan Pengaturan Comment

Ketika bekerja dengan data-data di excel, terkadang kita perlu memberikan catatan - catatan yang menjelaskan data dalam sel. Catatan ini biasanya disimpan dalam sebuah comment box. Comment box biasanya dibuat insert comment dengan cara Klik Kanan ---> Insert Comment ( Istilah "Comment" yang ada dalam excel versi sebelumnya diganti dengan istilah "Note" pada Excel 365). 

Postingan kali ini menampilkan beberapa contoh code VBA terkait bagaimana cara memunculkan (show) comment dan sebaliknya, serta beberapa tehnik untuk setting format comment.

1. Show dan Hide Comment Pada Range Terpilih

Sub lihatSembunyikanKomenPadaRangeTerpilih() Dim Sel As Range Application.ScreenUpdating = False For Each Sel In Selection If Not Sel.Comment Is Nothing Then With Sel.Comment .Visible = Not .Visible End With End If Next Sel Application.ScreenUpdating = True End Sub

2. Memunculkan Comment Pada Range Yang Dapat Dilihat

Sub SembunyiinDanMunculinKomenBoxDalamBatasTerlihat() Dim Sel As Range, c As Comment, rgTerlihat As Range, rgTerlihatRight As Long Application.ScreenUpdating = False For Each Sel In Selection If Not Sel.Comment Is Nothing Then Set c = Sel.Comment If c.Visible = False Then Set rgTerlihat = ActiveWindow.VisibleRange rgTerlihatRight = rgTerlihat.Left + rgTerlihat.Width - 40 c.Shape.Top = Sel.Offset(1, 0).Top c.Shape.Left = Sel.Offset(0, 1).Left + 4 If (c.Shape.Left + c.Shape.Width) > rgTerlihatRight Then c.Shape.Left = rgTerlihatRight - c.Shape.Width + 4 End If c.Visible = True Else c.Visible = False c.Shape.Top = Sel.Offset(0, 0).Top - 7.5 c.Shape.Left = Sel.Offset(0, 1).Left + 11.25 End If End If Next Sel Application.ScreenUpdating = True End Sub

3. Reset Semua Posisi Comment Box

Sub ResetPosisiSemuaCommentBox() Dim Cmt As Comment, Ws As Worksheet Application.ScreenUpdating = False Set Ws = ActiveSheet For Each Cmt In Ws.Comments Cmt.Shape.Top = Cmt.Parent.Top - 7.5 Cmt.Shape.Left = Cmt.Parent.Offset(0, 1).Left + 11.25 Next Application.ScreenUpdating = True End Sub

4. Merubah Font Comment Sekaligus

Sub SetFontSemuaComment() Dim Ws As Worksheet, c As Comment Dim namaFont As String, ukuranFont As Integer Application.ScreenUpdating = False Set Ws = ActiveSheet namaFont = InputBox(Prompt:="Input Nama Jenis Font") ukuranFont = InputBox(Prompt:="Input Ukuran Huruf") For Each c In Ws.Comments With c.Shape.TextFrame.Characters.Font .Name = namaFont .Size = ukuranFont End With Next Application.ScreenUpdating = True End Sub

5. Merubah Bentuk Kotak Komentar Jadi Love

Sub UbahBentukCommentBoxRangeTerpilihJadiLove() Dim Sel As Range Application.ScreenUpdating = False For Each Sel In Selection If Not Sel.Comment Is Nothing Then Sel.Comment.Shape.AutoShapeType = msoShapeHeart End If Next Sel Application.ScreenUpdating = True End Sub

6. Merubah Bentuk Komentar Jadi Oval

Sub UbahBentukCommentBoxRangeTerpilihJadiOval() Dim Sel As Range Application.ScreenUpdating = False For Each Sel In Selection If Not Sel.Comment Is Nothing Then Sel.Comment.Shape.AutoShapeType = msoShapeOval End If Next Sel Application.ScreenUpdating = True End Sub

7. Merubah Bentuk Komentar Jadi Kertas Berlipat

Sub UbahBentukCommentBoxRangeTerpilihJadiKertasBerlipat() Dim Sel As Range Application.ScreenUpdating = False For Each Sel In Selection If Not Sel.Comment Is Nothing Then Sel.Comment.Shape.AutoShapeType = msoShapeFoldedCorner End If Next Sel Application.ScreenUpdating = True End Sub

Itulah beberapa contoh code macro VBA terkait Show/Hide Comment dan Pengaturan Comment Box. dari contoh-contoh tersebut, yang paling berguna menurut Mimin adalah prosedur nomor 2, 3 dan 4,  karena nomor 1 belum menyelesaikan problem ketika comment muncul pada range yang jauh dari jangkauan pandangan layar, bahkan bisa sangat jauh. Sedangkan nomor 5 s/d 7 hanya untuk bersenang-senang saja mencoba hal baru, kenyataannya jarang digunakan.

Menurut kamu, Code yang mana yang paling berguna?

Jika ada tanggapan / saran / koreksi, jangan ragu untuk tinggalkan komentar.

Jika kamu tertarik mengetahui lebih lanjut mengenai contoh code macro VBA Excel, berikut link contoh-contoh lainnya yang mungkin kamu suka.

Contoh Code VBA untuk Buat dan Hapus Hyperlink dengan Cepat

Contoh Code VBA untuk Tambah dan Close Beberapa Workbook Sekaligus

Contoh Code VBA untuk Tambah Worksheet Dengan Berbagai Kriteria

Salam Hangat..😎😎😎