Belajar Microsoft Excel: Macro Untuk Setting Comment Pada Microsoft Excel

Untuk melaksanakan pergantian / setting comment , Excel sendiri sudahmenyediakan kepraktisan dengan perintah “format Comment” yang sanggup diakses dengan cara klik kanan pada comment box. 
Bagaimana Cara Pengaturan Kotak Komentar Excel
Melakukan setting comment dengan cara biasa/manual
Sayangnya dengan cara tersebut , prosesnya ditangani satu persatu dan pastinya akan membutuhkan banyak waktu. Jika cuma ada 1 atau 2 comment yang mesti diedit , mungkin tidak menjadi masalah. Bagaimana jikalau ada puluhan , ratusan ,bahkan ribuan comment yang mesti di-edit?
Cara manual pastinya bukan pilihanyang sempurna , kecuali jikalau kita bersedia untuk lembur semalaman untuk mengerjakannya satu per satu.Bagi saya ini yakni pekerjaan yang sungguh menjemukan , terlebih tidak ada tuh yang namanya upah lembur…

Dengan macro dan VBA , pekerjaan tersebut jauh lebih gampang dan efisien. Contoh script berikut sanggup digunakan untuk melakukansetting semua comment sekaligus dalam range yang dipilih , atau dalamaktivesheet bahkan sekaligus dalam satu workbook. Anda sanggup mengembangkan  property yang dikontrol sesuai kebutuhan

1.       Resetsemua  posisi comment box

Posisi comment box biasanyaberubah alasannya yakni proses hide atau unhide row dan column , atau sengaja digeseruntuk keperluan tertentu. Contoh code berikut sanggup digunakan untuk resetposisi semua comment box pada kondisi standar.

a.      Reset posisi semua comment box dalam activesheet

‘Code berikut ini akan mengembalikan posisi semua comment box pada sheet yang aktive menjadi kondisi standar/default

Sub resetCommentPosition_ws()
    Dim c As Comment , r As Range
    For Each c InActiveSheet.Comments
        Set r = c.Parent
        c.Shape.Top = r.Top – 7
        c.Shape.Left = r.Offset(0 ,1).Left + 11
    Next
End Sub

b.     Reset posisi semua comment box dalam activeworkbook

Code berikut ini akan mengembalikan posisi semua comment box pada semua sheet di dalam file excel yang sedang aktive menjadi kondisi standar/default


Sub resetCommentPosition_wb()
    Dim c As Comment , r As Range , wsAs Worksheet
    For Each ws InActiveWorkbook.Worksheets
    For Each c In ws.Comments
        Set r = c.Parent
        c.Shape.Top = r.Top – 7
        c.Shape.Left = r.Offset(0 ,1).Left + 11
    Next
    Next
End Sub

2.       Setting CommentFont

a.      Set  format fontcomment  dalam lingkup activesheet

Sub setAllCommentFont()
Dim c As Comment
For Each c In ActiveSheet.Comments
    Withc.Shape.TextFrame.Characters.Font
        .Name = “arial”
        .Size = 12
    End With
Next
End Sub

b.     Set font comment dalam lingkup range yang diseleksi

Sub setSelectedCommentFont()
Dim c As Comment , r As Range
For Each r In Selection
    If Not (r.Comment Is Nothing)Then
        Withr.Comment.Shape.TextFrame.Characters.Font
            .Name =”arial”
            .Size = 12
        End With
    End If
Next
End Sub
                Contohcode diatas sanggup dikembangkan dan dimodifikasi dengan menyertakan ataumengganti dengan property comment object yang yang lain seperti: autosize ,font.bold , font.color , margins dsb. Untuk mengetahui  code-code yang diinginkan sanggup menggunakanrecord macro dan laksanakan langkah edit format seumpama biasa. Untuk menambahinteraktivitas sanggup juga disertakan fungsi inputbox. Misalnya  untuk menyeleksi nama font dan ukurannya.

Semoga bermanfaat…:-)
Belajar Excel..! Excellent..!
Need Help? Chat with us