Tips Merapikan Kode Makro Hasil Recording (Rekaman)

Record Macro adalah salah satu fitur yang sangat berguna bagi pemakain Excel baik user pemula maupun user yang sudah berpengalaman. Namun, kode macro yang dihasilkan dari proses perekaman Makro tersebut kadang butuh sentuhan lanjutan agar lebih rapi dan berjalan lebih cepat.
Beberapa tips berikut bisa dijadikan pedoman.
 

• Buanglah kata Select yang diikuti kata Selection

    Untuk menambah efek Bold terhadap sebuah sel (A1, misalnya), maka langkah awal biasanya adalah men-Select sel A1, kemudian meng-klik simbol B di toolbar. Jika langkah-langkah tersebut di rekam, kode macro yang dihasilkan adalah :

         Range("A1").Select
                  Selection.Font.Bold = True

    Kode makro seperti di atas, bisa dirapikan dengan menghapus kata Select dan Selection:

                 Range("A1").Font.Bold = True


    Dengan cara di atas, ada dua keuntungan yang bisa didapat, pertama mengurangi jumlah baris dan kedua, menjadikan makro kita berlari lebih kencang.

•     Merapikan kode Copy dan Paste

    Perhatikan kode hasil record makro berikut:

                 Range("A1").Select
                 Selection.Copy
                 Range("A2").Select
                 ActiveSheet.Paste

     

    Kode di atas bisa dirapikan dengan:


                 Range("A1").Copy
                 Range("A2").Paste

    atau :

                 Range("A1").Copy Destination:=Range("A2")

•     Rapikan penggunaan With …… End With

    Misal kita ingin memformat sel A1 dengan warna kuning. Dengan cara merekam didapatkan kode berikut:

                   Range("A1").Select
                   With Selection.Interior
                        .Pattern = xlSolid
                        .PatternColorIndex = xlAutomatic
                        .Color = 65535
                        .TintAndShade = 0
                        .PatternTintAndShade = 0
                   End With

    Karena kita hanya butuh kode warna saja, maka kode di atas bisa dimodif seperti berikut:

                  With Range("A1").Interior
                     .Color = 65535
                  End With

    atau :

                  Range("A1").Interior.color = 65535

•     Hapus ScrollRow dan ScrollColumn jika tidak perlu

    Selama proses merekam, terkadang kita menggulung layar secara horizontal maupun vertikal. Seringkali proses tersebut tidaklah begitu penting. Misal saat ini kita sedang berada di sel A1 dan ingin men-Select sel AA100, mau tidak mau kita harus menggulung layar ke kanan dan ke bawah. Padahal yang kita inginkan hanya menselect AA100. Maka proses penggulungan layar tersebut bisa dibuang. Perhatikan kode berikut:

               Range("A1").Select
               ActiveWindow.SmallScroll ToRight:=7
               ActiveWindow.SmallScroll Down:=80
               Range("AA100").Select

    Kode di atas, bisa langsung: Range("AA100").Select

•     Jangan tampilkan perubahan di layar selama proses

    Record Macro adalah proses merekam sesuatu yang dilakukan user. Jadi ketika dijalankan, segala perubahan di layar akan juga ditampilkan dalam waktu yang cepat. Agar lebih menawan, perubahan-perubahan yang terjadi selama proses-proses tersebut bisa kita sembunyikan, hanya hasilnya yang ditampilkan, yakni dengan mengeset ScreenUpdating menjadi FALSE di awal proses, dan mengembalikan lagi menjadi TRUE di akhir proses. Memang, untuk proses yang pendek hal seperti ini kurang terlihat bedanya, tapi untuk langkah yang agak panjang, maka perbedaannya akan cukup terasa.

    Contoh :

                Sub FormatDanKopiSel()
                Application.ScreenUpdating = False
                    Range("A1").Interior.ColorIndex = 5
                    ...........
                    ....... dst
                    Range("AA100").Select
               Application.ScreenUpdating = True
               End Sub

Demikian tips hari ini, semoga bermanfaat.

Simber : http://excelheru.blogspot.com/2012/01/tips-merapikan-kode-makro-hasil.html