Mengubah Deretan Tabel Horisontal Menjadi Vertikal dengan Macro Excel

Suatu ketika kita ingin menyusun banyak tabel yang tersusun secara horisontal (Ilustrasi 1) kemudian berniat untuk menyusun ulang menjadi deretan tabel yang tersusun secara vertikal (Ilustrasi 2). Mungkin akan lebih jelas silahkan memperhatikan ilustrasi di bawah ini.

Ilustrasi 1. Tabel tersusun horisontal

Ilustrasi 2. Tabel tersusun vertikal sesuai yang diinginkan

Saya pernah mengolah data yang jumlahnya ratusan model semacam itu tapi akan dibuat seperti ilustrasi 2. Boleh praktekkan cara yang saya lakukan, semoga tidak sulit untuk dipahami dan dipraktikkan.

Ok langkah yang mesti kita lalui adalah sebagai berikut:

  1. Sebelum kita praktikkan siapkan tabel seperti ilustrasi 1.
  2. Letakkan active cell pada cell S1 (tabel paling kanan)
  3. Klik tab menu View -> macro -> Use Relative Refereces (aktifkan bagian ini)-> Record Macro… Beri nama macro dan buat shortcut key, ketik huruf tertentu (dalam hal ini saya contoh dengan huruf t ) -> Klik Ok.

    Ilustrasi 3. Menu Macro

  4. Pindahkan tabel pada cell S1:T4 ke cell A6 (dengan drug and drop).

    Ilustrasi 4. Memindahkan tabel

  5. Sisipkan baris dan kolom sehingga menjadi seperti ilustrasi berikut.

    Ilustrasi 5. Hasil sisip kolom dan baris

  6. Tempatkan active cell ke cell S1 lagi.
  7. Stop macro (dengan mengklik tombol warna biru yang berada pada bagian kiri bawah layar spreadsheet) seperti ilustrasi berikut. Sampai di sini kita telah selesei me-record macro (merekam semua langkah kerja kita untuk digunakan pada tabel berikutnya).

    Ilustrasi 6. Tombol stop recording macro

  8. Coba jalankan macro hasil karya anda tadi dengan menekan Ctrl+t (sesuai shortcut key yang kita tetapkan tadi), jika hasilnya seperti ilustrasi di bawah ini berarti macro anda sudah benar.

    Ilustrasi 7. Hasil run macro pertama

  9. Agar macro bisa berjalan cepat tanpa menunjukkan proses kerja (screen updating), kita lakukan edit macro. Tekan Alt+F8 pada keyboard, kemudian pilih edit. Silahkan menambahkan baris Application.ScreenUpdating=”False” kemudian di bawahnya  Do until isempty(activecell) dan  Loop pada bagian akhir macro sebelum end sub.

    Ilustrasi 8. Edit macro

  10. Kembali ke layar kerja excel, tekan Ctrl+t
  11. Jika hasilnya seperti ilustrasi berikut maka macro kita sudah beres.

    Ilustrasi 9. Hasil run macro hingga selesai

  12. Lakukan pembenahan tabel untuk hal-hal yang tidak perlu (misalnya menghapus baris ke-6-10 yang kosong itu, menghapus kolom yang berwarna-warni mulai dari kolom v ke kanan).
  13. Jika sudah selesai maka akan kita peroleh hasil seperti Ilustrasi 2 di atas.

Selamat mencoba, jika ada cara lain saya dengan senang hati menerimanya, kita berbagi ilmu agar semakin mudah dan cepat menyelesaikan kerja kita.

 

About these ads

2 gagasan untuk “Mengubah Deretan Tabel Horisontal Menjadi Vertikal dengan Macro Excel

  1. Ping-balik: Mengubah Deretan Tabel Horisontal Menjadi Vertikal dengan Macro Excel

Komentar ditutup.