Mengubah Konten Sel Menjadi Komentar

Masih terkait dengan editing comment di excel, postingan kali ini membahas bagaimana caranya mengkonversi konten sel menjadi komentar. Tentunya dengan menggunakan macro / VBA. Contoh code sudah disiapkan, kamu tinggal copy paste dan run saja.

1. Menjadikan Konten Sel Sebagai Comment di Sel Yang Sama

Prosedur nomor 1 ini merupakan metode yang paling sederhana dan mungkin tidak begitu bermanfaat secara praktikal. Tapi tidak salah memcobanya untuk memahami konsep insert comment dengan mengambil text dari sel.  Berikut contoh code macro vba excel yang dapat kamu copas langsung.

Sub copyKontenSelKeKomen() Dim Sel As Range, textSel As String For Each Sel In Selection If Sel.Value <> "" Then textSel = Sel.Text Sel.ClearComments Sel.AddComment textSel End If Next End Sub

Cara menjalankan code macro: 

Setelah kamu mengcopy contoh code vba tersebut ke modul standar, maka si code bisa langsung digunakan. 

Pilih sekumpulan sel berisi konten yang ingin kamu masukan kontennya ke dalam kotak komentar, lalu jalankan macro nya  (via Tab Developer --> Macro --> Pilih nama prosedur yang sesuai --> klik "Run")

Dan tralala..., comment sudah terbentuk pada semua sel yang kamu pilih apabila sel tersebut tidak kosong. 

2. Mengambil Konten Range Sel yang Diseleksi Menjadi Komentar

Proedur nomor 2 inilah yang menurut mimin paling penting. Cara ini sangat berguna terutama apabila kamu ingin menambahkan tabel ke dalam kotak komentar.  

Serapa berguna kah? 

Secara konvensional, kita tidak bisa mengcopy konten sel secara langsung dari sekumpulan sel ke dalam kotak komentar.  Yang dilakukan secara konvensional biasanya dengan meng-copy telebih dahulu konten sel ke dalam notepad, kemudian dari notepad di copy lagi ke dalam comment box. 

Cara konvensional tersebut memang membantu proses pemindahan konten sel. Tetapi pemindahan konten sel ke kotak komentar bukan hanya copy paste dan proses langsung selesai. Tetapi ada satu hal lagi yang justru paling banyak menguras waktu. Yaitu: Merapikan Text dalam Kotak Komentar. Mengerjakannya secara manual sangat menguras tenaga, waktu dan sangat membosankan. Apalagi jika ada tabel dalam kotak komentar.

Dengan menggunakan code VBA yang tepat, maka kamu tidak perlu direportkan untuk merapikan text dalam komentar. Karena tugas tersebut dapat sepenuhnya diserahkan kepada bung Macro.

Code nya cukup panjang, Perlu waktu lebih dari satu jam buat mimin untuk merenungkan dan mengetik code ini. 

Sub KonversiRangeKeComment() Dim rgData As Range Dim selCmt As Range Dim textSel() As String Dim rataTextSel() As Integer Dim tebalBaris() As Boolean Dim PjgTextType2() As Integer Dim PjgTextType3() As Integer Dim textBaris() As String Dim PjgTextBaris() As Integer Dim iBaris() As Integer Dim textCmt As String Dim JmlSelNonBlankDlmBaris() As Integer Dim i As Integer, j As Integer Dim jmlBaris As Integer Dim JmlKolom As Integer Dim jarakSpasi As Integer Dim varSpasi As Integer Const jarakSpasiDefault As Integer = 2 Const ukuranFont As Integer = 10 Const namaFont As String = "Lucida Sans Typewriter" 'nama font harus type monospace, misalnya: "Lucida Sans Typewriter", "Courier New" dan "Arial Monospaced" Set rgData = Selection jmlBaris = rgData.Rows.Count JmlKolom = rgData.Columns.Count 'redim array mengikuti jumlah baris dan jumlah kolom rgData ReDim textSel(jmlBaris, JmlKolom) ReDim rataTextSel(jmlBaris, JmlKolom) ReDim pjgTextType1(JmlKolom) ReDim PjgTextType2(JmlKolom) ReDim PjgTextType3(JmlKolom) ReDim tebalBaris(jmlBaris) ReDim textBaris(jmlBaris) ReDim PjgTextBaris(jmlBaris) ReDim JmlSelNonBlankDlmBaris(jmlBaris) ReDim iBaris(jmlBaris) 'tentukan sel untuk sarang komentar On Error GoTo skip ' loncat ke skip jika user menekan tombol cancel Set selCmt = Application.InputBox( _ Prompt:="Pilih Satu Sel Untuk Menempatkan Komentar", Type:=8) 'Setting untuk Optimalkan VBA Application.ScreenUpdating = False Application.Calculation = xlCalculationManual 'kumpulin data dari range ke array For i = 1 To jmlBaris tebalBaris(i) = rgData.Cells(i, 1).Font.Bold JmlSelNonBlankDlmBaris(i) = WorksheetFunction.CountA(rgData.Rows(i)) For j = 1 To JmlKolom textSel(i, j) = Trim(rgData(i, j).Text) rataTextSel(i, j) = rgData(i, j).HorizontalAlignment Next Next 'Menentukan panjang text maksimal per kolom For j = 1 To JmlKolom For i = 1 To jmlBaris Select Case JmlSelNonBlankDlmBaris(i) Case 2 PjgTextType2(j) = WorksheetFunction.Max(PjgTextType2(j), Len(textSel(i, j))) Case Is >= 3 PjgTextType3(j) = WorksheetFunction.Max(PjgTextType3(j), Len(textSel(i, j))) End Select Next Next 'Menyesuaikan text masing-masing komponen array textSel For i = 1 To jmlBaris For j = 1 To JmlKolom ' menentukan jumlah spasi antar text Select Case JmlSelNonBlankDlmBaris(i) Case 1 varSpasi = 0 jarakSpasi = 0 Case 2 varSpasi = PjgTextType2(j) - Len(textSel(i, j)) jarakSpasi = jarakSpasiDefault Case Is >= 3 varSpasi = PjgTextType3(j) - Len(textSel(i, j)) jarakSpasi = jarakSpasiDefault End Select If j = 1 Then ' Kolom pertama rata kiri apapun aktual format sel nya textSel(i, j) = textSel(i, j) & Space(varSpasi + jarakSpasi) Else Select Case rataTextSel(i, j) 'kolom berikutnya rata kiri/kanan/tengah menyesuaikan aktual format sel Case xlLeft textSel(i, j) = textSel(i, j) & Space(varSpasi + jarakSpasi) Case xlCenter textSel(i, j) = Space(varSpasi / 2) & textSel(i, j) & Space(varSpasi / 2 + jarakSpasi) Case Else textSel(i, j) = Space(varSpasi) & textSel(i, j) & Space(jarakSpasi) End Select End If Next Next 'Menyusun text per baris For i = 1 To jmlBaris For j = 1 To JmlKolom textBaris(i) = textBaris(i) & textSel(i, j) Next textBaris(i) = textBaris(i) & Chr(10) PjgTextBaris(i) = Len(textBaris(i)) Next 'Menyusun text komentar dan posisi karakter pertama pada setiap baris For i = 1 To jmlBaris textCmt = textCmt & textBaris(i) iBaris(i) = Len(textCmt) - Len(textBaris(i)) + 1 Next 'insert comment Set selCmt = selCmt.Range("A1") selCmt.ClearComments selCmt.AddComment textCmt 'format comment With selCmt.Comment.Shape.TextFrame .Characters.Font.Name = namaFont .Characters.Font.Size = ukuranFont .AutoSize = True For i = 1 To jmlBaris If tebalBaris(i) = True Then .Characters(iBaris(i), PjgTextBaris(i)).Font.Bold = True End If Next End With skip: 'Kembalikan setting non optimal VBA Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

Cara menjalankan macro:

Setelah kamu mengcopy contoh code vba tersebut ke modul standar, maka si code bisa langsung digunakan. 

Pilih sekumpulan sel berisi konten yang ingin kamu konversi kontennya ke dalam kotak komentar, lalu jalankan macro nya  (via Tab Developer --> Macro --> Pilih nama prosedur yang sesuai --> klik "Run")

Selanjutnya kamu akan diminta memilih satu sel untuk menempatkan komentar. Setelah kamu pilih sel yang kamu inginkan, kemudian klik Ok.

Dan tralala..., comment sudah terbentuk pada sel yang kamu pilih. Silahkan bandingkan waktu yang kamu perlukan bila dibandingkan dengan cara konvensional untuk mendapatkan hasil yang sama...

Sobat bisa pelajari cara menggunakan code vba untuk convert tabel jadi komentar melalui vido berikut:

***

Itulah contoh code macro vba yang dapat kamu gunakan untuk mengkonversi konten sel menjadi text komentar.

Jika kamu ada saran / koreksi, jangan segan-segan untuk tinggalkan feedback di kolom komentar.

Tertarik untuk mengetahui contoh-contoh code macro siap pakai lainnya, mungkin postingan berikut bermanfaat bagi kamu.

• Code VBA untuk Menjadikan Text Komentar Menjadi Konten Sel
• Code VBA untuk Hide/Unhide dan Pengaturan Format Comment
• Code VBA untuk Membuat dan Menghapus Hyperlink Secara Cepat

Salam ....😎😎😎

Copy Text Dari Comment Box ke Sel

Pada postingan sebelumnya sudah disampaikan mengenai contoh code macro VBA untuk display dan setting format comment di Excel. Postingan kali ini juga masih terkait dengan comment, membahas contoh code VBA untuk meng-copy text comment dari sel yang diseleksi dan memindahkan text tersebut di sel sebelahnya. Langsung saja di copy contoh - contoh code berikut:

1. Copy Text Komentar Ke Sel Sebelah Kanan

Prosedur nomor 1 ini digunakan untuk mengcopy sekaligus keseluruhan isi komentar yang yang tersemat pada sebuah sel dan menampilkannya sebagai konten sel di sebelahnya.  Metode ini sepertinya hanya cocok digunakan apabila text komentarnya singkat.

Sub copyKomenKeSelSebelahKanan() Dim Sel As Range For Each Sel In Selection If Not Sel.Comment Is Nothing Then Sel.Offset(0, 1).Value = Sel.Comment.Text End If Next End Sub

Setelah code di copy dan paste di module standar, maka prosedur ini sudah bisa digunakan:

Cara menjalankan prosedur ini adalah dengan menyeleksi telebih dahulu range sel yang disinyalir mengandung komentar. Pastikan hanya terdiri dari satu kolom saja dan range di sebelahnya merupakan sel kosong. Hal ini penting karena prosedur ini mengcopy comment ke sel sebelah kanan. Sehingga jika sel sebelah kanannya berisi data, maka data akan hilang tertimpa sel comment.

Setelah range di seleksi, maka kemudian jalankan makronya (misalnya via tab developer --> macro --> pilih nama macro yang sesuai --> Run). Hasilnya: kamu akan melihat sel di samping kanan berisi komentar dari sel yang diseleksi.

2. Copy Text Komentar Per Baris Ke Sel Sebelah Kanan

Jika text komentar cukup panjang dan terdiri dari beberapa baris, maka kamu bisa menggunakan contoh code macro nomor 2.  Prosedur nomor 2 ini menerapkan metode untuk memisahkan antar baris text komentar dan menempatkan di baris sel yang berbeda di sel samping kanan.

Silahkan di copas terlebih dahulu code-nya..

Sub copyPerBarisKomenKeSelSebelahKanan() Dim Sel As Range, textCmt As String Dim cAwal As Long, cAkhir As Long, baris As Long For Each Sel In Selection If Not Sel.Comment Is Nothing Then textCmt = Sel.Comment.Text cAwal = 1 Do cAkhir = InStr(cAwal, textCmt, Chr(10)) If cAkhir <> 0 Then Sel.Offset(baris, 1).Value = Mid(textCmt, cAwal, cAkhir - cAwal) Else Sel.Offset(baris, 1).Value = Mid(textCmt, cAwal, Len(textCmt) - cAwal + 1) End If baris = baris + 1 cAwal = cAkhir + 1 Loop Until cAkhir = 0 End If Next End Sub

Cara menggunakan prosedur nomor 2 ini sama dengan nomor 1. Hanya saja disarankan diterapkan per 1 sel. Sehubungan text komentar terdiri dari beberapa baris, maka baris text bisa saling menimpa jika dijalankan pada beberapa baris sel sekaligus.

***

Itulah contoh code macro VBA untuk memindahkan (lebih tepatnya copy paste) dari comment box ke sel.

Jika kamu ada saran/ koreksi / ide mengenai contoh vba. Mimin akan sangat senang jika kamu bisa berbagi via kolom komentar...😎😎😎

Mungkin kamu juga tertarik dengan contoh code macro lainnya:

• Contoh Code Macro Excel untuk Buat dan Hapus Hyperlink
• Contoh Code Macro untuk Display dan Setting Format Comment
• Contoh Code Macro untuk Add dan Close Workbook

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..😎😎😎