Matrik adalah sebuah informasi yang disampaikan serta ditampilkan dalam bentuk kolom dan baris yang tak ubahnya seperti lembar kerja dalam aplikasi Microsoft Excel, maka dari itu hampir mayoritas para pembuat rencana kegiatan bentuk matrik ini mengandalkan bantuan aplikasi Excel dalam merancang usulan rencana program kegiatan dengan tujuan agar segala apa yang dirancang bisa diselesaikan sesuai dengan jadwal yang ditentukan.

Beberapa alasan dari mereka yang menggunakan matrik kegiatan sebagai acuan pelaksanaan program antara lain adalah kemudahan dalam melakukan kontrol kegiatan serta membantu dalam pengambilan keputusan.

Terlepas dari berbagai macam alasan yang ada, kali ini excelive.com akan membantu anda dalam merancang dan membuat matrik kegiatan secara cepat dilengkapi dengan warna-warna yang menunjukkan tanggal pelaksaan kegiatan dengan menggunakan aplikasi Microsoft Excel.

Sebelum memulai pembelajaran kali ini, ada baiknya anda lihat hasil akhir dari apa yang akan kita kerjakan nanti:

Tampilan di atas saya buat dengan cara menyusun terlebih dahulu struktur matrik dalam lembar kerja Microsoft Excel dalam rentang satu bulan, beberapa diantara point penting dalam merancang matrik di lembar adalah :

• Kolom A : berisi sebuah nomor urut kegiatan
• Kolom B : berisi deskripsi singkat dari kegiatan yang akan dilakukan
• Kolom C : berisi tanggal awal kapan kegiatan tersebut akan dilaksanakan, dan
• Kolom D : berisi tanggal akhir kegiatan

Sementara untuk kolom-kolom setelah kolom yang saya sebut di atas, saya isi dengan tanggal untuk memudahkan dalam membaca matrik

Ok, saya berasumsi bahwa anda sudah merancang matrik kegiatan paling tidak seperti gambar di atas. Dan langkah selanjutnya adalah :

1. Tekan kombinasi tombol Alt+F11 untuk mengaktifkan jendela Microsoft Visual Basic Editor
2. Selanjutnya klik menu Insert dan pilih perintah Module untuk memebuat sebuah module baru
3. Isi module yang pertama berfungsi untuk menghapus semua isi dalam range tertentu dengan baris kode seperti berikut
   

   Sub Hapus()
   brs = Range("A4").End(xlDown).Row
   kol = Range("A4").End(xlToRight).Column
   Set cl = Cells(1, kol)
   hasil = Replace(cl.Address(False, False), "1", "") & brs
   
   rg = "E5:" & hasil
   'kode di bawah ini digunakan untuk menghapus interior, border dan isi dalam range yang terdapat di kode rg
   Range(rg).Interior.ColorIndex = xlNone
   Range(rg).Borders.LineStyle = xlNone
   Range(rg).ClearContents
   End Sub

   Beberapa baris kode penting dari script Macro VBA di atas antara lain:
   
   • Hapus : mama sub module
   • brs : digunakan untuk mengetahui posisi baris terakhir yang berisi data
   • kol : sama seperti kode brs, namun berfungsi untuk mengetahui kolom terakhir
   • Set cl : digunakan untuk menentukan isi sel sesuai dengan kode yang terdapat di baris kol
   • hasil : bertujuan untuk mengkonversi (merubah) kode cl menjadi nama kolom
   • rg : berfungsi untuk menuliskan alamat range
4. Berikutnya adalah membuat module kedua yang merupakan kode inti dari tutorial ini, yakni untuk menggambar kotak-kotak sesuai dengan tanggal awal dan akhir seperti berikut
   

   Sub matrik()
   Dim isi, hsl, kol1, kol2, Tg1, Tg2 As Variant
   Dim n As Long
   a = Range("A4").End(xlDown).Row
   
   Application.ScreenUpdating = False
   Call Hapus
   
   For n = 5 To a
   Tg1 = Cells(n, 3)
   Tg2 = Cells(n, 4)
   
   If Tg1 > 0 And Tg2 > 0 And IsNumeric(Tg1) And IsNumeric(Tg2) Then
       Set kol1 = Cells(1, Tg1 + 4)
       Set kol2 = Cells(1, Tg2 + 4)
       hsl = Replace(kol1.Address(False, False), "1", "") & n & ":" & _
             Replace(kol2.Address(False, False), "1", "") & n
       isi = Replace(kol1.Address(False, False), "1", "") & "4:" & _
             Replace(kol2.Address(False, False), "1", "") & "4"
       
       With Range(hsl)
           .Interior.Color = RGB(140, 180, 255)
           .Borders.ColorIndex = 56
           .Borders.LineStyle = xlContinuous
           .Borders.Weight = xlHairline
           'Baris kode pilihan untuk mengisi kotak dengan tanggal
           .Value = Range(isi).Value
           .Font.Size = 8
           .Font.Color = RGB(0, 0, 255)
       End With
   End If
   Next
   Application.ScreenUpdating = True
   End Sub

   Cara kerja secara umum dari kode inti ini adalah :Menentukan terlebih dahulu sebuah parameter dengan nama a untuk mendeteksi baris terakhir yang berisi sebuah nilai, kemudian mengawali baris perintah dengan menjalankan module hapus, dilanjutkan dengan baris kode untuk mulai membaca baris ke-5 hingga baris terakhir yang ditemukan oleh parameter a.
   
   Baris kode berikutnya adalah berfungsi untuk menguji beberapa sel dengan menggunakan statement logika dimana jika kolom Tgl1 dan Tgl2 berisi nilai yang lebih besar dari nol serta kolom-kolom tersebut berupa angka maka perintah akan dilanjutkan dengan mengeksekusi beberapa perintah berikut, antara lain:
   

   1. Menentukan jumlah sel yang terpilih berdasarkan hasil dari nilai Tgl1 dan Tgl2 masing-masing berjumlah 1 sel
   2. Kolom awal untuk mewarnai hasil temuan dimulai dari kolom E
   3. Mengkonversi bilangan kolom menjadi bentuk alphabet, dan
   4. Menggabungkan hasil konversi tersebut menjadi sebuah range

   Setelah ketentuan tersebut dibuat, baru menjalankan aksi utama dari tutorial ini diantaranya :
   

   1. Mewarnai alamat range dengan warna menggunakan mode RGB, dan
   2. Memberikan garis tepi berukuran xlHairline dengan warna menggunakan mode ColorIndex

   kemudian dilanjutkan dengan beberapa baris kode yang sifatnya pilihan, antara lain:
   

   1. Mengisi masing-masing sel yang ditemukan oleh kode hsl dengan baris kode yang ditentukan oleh nilai isi
   2. Memberikan ukuran serta warna huruf yang selanjutnya bisa diatur sesuai dengan selera

Jika terjemahan kode yang saya rangkai di atas kurang begitu jelas atau bahkan terkesan membingungkan, mungkin dengan mengintip hasil akhir dari tutorial ini bisa membantu menambah pemahaman anda. Dan jika ingin mengoleksi tutorial ini, silahkan download file project-nya secara gratis untuk anda.

Sebagai penutup tutorial dalam membuat rencana program kegiatan menggunakan bentuk dan model matrik, ijinkan saya untuk mengucapkan terimakasih untuk anda karena telah berkunjung ke situs excelive.com dan membaca ulasan ini dari paragraf awal hingga paragraf yang saat ini sedang anda baca.

Mudah-mudahan xcelive.com bisa menjadi salah satu pilihan dan partner terbaik anda dalam menemani aktivitas pekerjaan mengolah data berbasis Ms.Excel. Danke

Masih mau belajar lagi !

Yuk, klik tautan berikut ini :