• Cara Cepat Membuat Matrik Rencana Kegiatan Menggunakan Macro VBA

    jadwal kegiatan 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:
    Matrik rencana kegiatan
    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

    Tutorial ini memuat Macro VBA, jadi pastikan hasil akhir dari tutorial ini disimpan menggunakan format Excel Macro-Enable Workbook
    .xlsm
    atau Excel Binary Workbook
    .xlsb


    Artikel Terkait

  • Still haven't found what are you looking for

    We have provided a complete list of articles on this site to make it easier for you and giving the best solution for your excel issues

    VISIT LINK
    loading...
    DMCA.com Protection Status

    excelive.com
    is a blogger resources site who provides best excel tutorial based on daily needs. The main mission of excelive is to share our little experience in excel to deliver best time killer for your excel issues.
    T.O.S
    Term of service

    Read More
    Download Area
    to complete all excel lessons, we have provided a download link for you Find Here
    Copyright © 2015 - excelive.com. Some rights reserved.
    equipped with by blogger