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. 
 sendiri sudah menyediakan kemudahan dengan perintah  Macro Untuk Setting Comment Pada Microsoft Excel
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..!

0 Response to "Macro Untuk Setting Comment Pada Microsoft Excel"

Posting Komentar