Macro Untuk Setting Comment Pada Microsoft Excel

Untuk melaksanakan perubahan / setting comment, Excel sendiri sudah menyediakan kemudahan dengan perintah “format Comment” yang sanggup diakses dengan cara klik kanan pada comment box. 

Melakukan setting comment dengan cara biasa/manual

Sayangnya dengan cara tersebut, prosesnya dilakukan satu persatu dan tentu saja akan memerlukan banyak waktu. Jika hanya ada 1 atau 2 comment yang harus diedit, mungkin tidak menjadi masalah. Bagaimana bila ada puluhan, ratusan, bahkan ribuan comment yang harus di-edit?

Cara manual tentunya bukan pilihan yang tepat, kecuali bila kita bersedia untuk lembur semalaman untuk mengerjakannya satu per satu.Bagi saya ini ialah pekerjaan yang sangat membosankan, apalagi tidak ada tuh yang namanya upah lembur...

Dengan macro dan VBA, pekerjaan tersebut jauh lebih gampang dan efisien. Contoh script berikut sanggup dipakai untuk melaksanakan setting semua comment sekaligus dalam range yang diseleksi, atau dalam aktivesheet bahkan sekaligus dalam satu workbook. Anda sanggup mengembangkan  property yang diatur sesuai kebutuhan

1.       Reset semua  posisi comment box

Posisi comment box biasanya berubah alasannya proses hide atau unhide row dan column, atau sengaja digeser untuk keperluan tertentu. Contoh code berikut sanggup dipakai untuk reset posisi 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 keadaan standar/default

Sub resetCommentPosition_ws()

    Dim c As Comment, r As Range

    For Each c In ActiveSheet.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 keadaan standar/default

Sub resetCommentPosition_wb()

    Dim c As Comment, r As Range, ws As Worksheet

    For Each ws In ActiveWorkbook.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 Comment Font

a.       Set  format font comment  dalam lingkup activesheet

Sub setAllCommentFont()

Dim c As Comment

For Each c In ActiveSheet.Comments

    With c.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

        With r.Comment.Shape.TextFrame.Characters.Font

            .Name = "arial"

            .Size = 12

        End With

    End If

Next

End Sub

                Contoh code diatas sanggup dikembangkan dan dimodifikasi dengan menambahkan atau mengganti dengan property comment object yang lainnya seperti: autosize, font.bold, font.color, margins dsb. Untuk mengetahui  code-code yang dibutuhkan sanggup memakai record macro dan lakukan langkah edit format ibarat biasa. Untuk menambah interaktivitas sanggup juga ditambahkan fungsi inputbox. Misalnya  untuk memilih nama font dan ukurannya.

Semoga bermanfaat...:-)
Belajar Excel..! Excellent..!