Sisip Kolom Sekaligus

Halo teman, kali ini kita akan membahas mengenai contoh code macro VBA untuk menyisipkan kolom di excel. Pembahasan ini merupakan kebalikan dari postingan sebelumnya mengenai cara menghapus kolom kosong sekaligus. 

Yah kita sering dihadapkan pada 2 pilihan di Excel. TRUE vs FALSE, Menambahkan vs Mengurangi, Membuat vs Menghapus, dan banyak lagi. Pemikiran analog ketika bekerja dengan excel secara konvensional itulah yang kita coba terjemahkan ke dalam VBA supaya bisa dimengerti oleh excel. Termasuk dalam hal menambahkan / sisip kolom yang akan kita bahas saat ini.

Langsung saja dicopy dan dicoba code macro berikut.

1. Sisip Satu Kolom di Samping Kiri Setiap Kolom Tertentu

Contoh code pertama digunakan untuk menyisipkan satu kolom di setiap samping kanan kolom yang ditanda degan text tertentu dalam range terpilih. Range terpilih bisa berupa kepala dari sebuah tabel. Misalnya kita dapat menyisipkan kolom di setiap samping kiri kolom dengan label kepala "Total".

Langsung saja di copy paste code nya:

Sub SisipSatuKolomDiSampingKiriTextTanda() Dim rgTanda As Range, Tanda As Variant, i As Long Dim selCek As Range Application.ScreenUpdating = False Application.Calculation = xlCalculationManual If TypeName(Selection) <> "Range" Then MsgBox "Range Terpilih Tidak Valid" Exit Sub End If Set rgTanda = Selection Set rgTanda = rgTanda.Rows(1) Do Tanda = Application.InputBox("Masukan Text Sebagai Tanda Sisip") If Tanda = "" Then MsgBox "Tanda tidak boleh kosong", vbCritical Loop Until Tanda <> "" If Tanda = False Then Exit Sub For i = rgTanda.Columns.Count To 1 Step -1 Set selCek = rgTanda.Cells(1, i) If selCek.Value = Tanda Then selCek.EntireColumn.Insert End If Next rgTanda.Select Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

Cara menggunakan code:

• Copy Code ke Modul Standar VBA.
• Seleksi range dimana kita akan menyisipkan kolom berdasarkan label pada range terpilih (biasanya berupa kepala / header tabel).
• Jalankan macro (Tab Developer --> Macros --> Pilih nama macro yang sesuai --> Run

2. Sisip Satu kolom di Samping Kanan Setiap Kolom Tertentu

Contoh code ini mirip dengan prosedur nomor 1. Perbedaannya pada letak kolom yang disisipkan. Prosedur nomor 1 menyisipkan kolom di sebelah kiri. Sedangkan prosedur nomor 2 menyisipkan kolom di sebelah kanan.

Sub SisipSatuKolomDiSampingKananTextTanda() Dim rgTanda As Range, Tanda As Variant, i As Long Dim selCek As Range Application.ScreenUpdating = False Application.Calculation = xlCalculationManual If TypeName(Selection) <> "Range" Then MsgBox "Range Terpilih Tidak Valid" Exit Sub End If Set rgTanda = Selection Set rgTanda = rgTanda.Rows(1) Do Tanda = Application.InputBox("Masukan Text Sebagai Tanda Sisip") If Tanda = "" Then MsgBox "Tanda tidak boleh kosong", vbCritical Loop Until Tanda <> "" If Tanda = False Then Exit Sub For i = rgTanda.Columns.Count To 1 Step -1 Set selCek = rgTanda.Cells(1, i) If selCek.Value = Tanda Then selCek.Offset(0, 1).EntireColumn.Insert End If Next rgTanda.Select Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

Cara menggunakan code sama dengan prosedur nomor 1

3. Sisip Beberapa Kolom di Samping Kiri Setiap Kolom Tertentu

Prosedur nomor 1 dan 2 hanya menyisipkan satu buah kolom saja di sebelah kiri atau kanan kolom tertentu. Jika kamu ingin menambahkan beberapa kolom, maka kamu bisa menggunakan prosedur contoh code macro nomor 3 atau 4.

Prosedur nomor 3 menyisipkan beberapa kolom di sebelah kiri kolom tertentu (yang ditandai dengan label tertentu)

Sub SisipBeberapaKolomKolomDiKiriTextTanda() Dim rgTanda As Range, Tanda As Variant, i As Long Dim selCek As Range, jmlKolomSisip As Variant Dim inputValid As Boolean Application.ScreenUpdating = False Application.Calculation = xlCalculationManual If TypeName(Selection) <> "Range" Then MsgBox "Range Terpilih Tidak Valid" Exit Sub End If Set rgTanda = Selection Set rgTanda = rgTanda.Rows(1) Do Tanda = InputBox("Masukan Text Sebagai Tanda Sisip") If StrPtr(Tanda) = 0 Then Exit Sub 'prosedur diakhiri jika user tekan tombol cancel inputValid = Not Tanda = "" If inputValid = False Then MsgBox "Inputan tidak boleh kosong", vbCritical Loop Until inputValid Do jmlKolomSisip = Application.InputBox("Masukan Jumlah Kolom Sisip antara 1 s/d 10") If StrPtr(jmlKolomSisip) = 0 Then Exit Sub 'prosedur diakhiri jika user tekan tombol cancel inputValid = (IsNumeric(jmlKolomSisip) And Not (jmlKolomSisip < 1) And Not (jmlKolomSisip > 10)) If inputValid = False Then MsgBox "Jumlah Kolom sisip harus berupa angka 1 s/d 10", vbCritical Loop Until inputValid jmlKolomSisip = Int(jmlKolomSisip) For i = rgTanda.Columns.Count To 1 Step -1 Set selCek = rgTanda.Cells(1, i) If selCek.Value = Tanda Then Range(selCek, selCek.Offset(0, jmlKolomSisip - 1)).EntireColumn.Insert End If Next rgTanda.Select Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

Cara Menggunakan code

• Copas code ke modul standar.
• Seleksi range yang dijadikan acuan sisip kolom (misal berupa range header tabel).
• Jalankan macro (Tabe Developer --> Macros --> Pilih macro yang sesuai --> Run.
• Input text sebagai label yang menjadi acuan sisip kolom.
• Input berapa kolom yang akan disisipkan (dibatasi 1 s/d 10).

4. Sisip Beberapa Kolom di Samping Kanan Setiap Kolom Tertentu

Prosedur nomor 4  cara kerjanya hampir sama dengan nomor 3, Hanya saja kolom disisipkan di sebelah kanan.

Sub SisipBeberapaKolomKolomDiKananTextTanda() Dim rgTanda As Range, Tanda As Variant, i As Long Dim selCek As Range, jmlKolomSisip As Variant Dim inputValid As Boolean Application.ScreenUpdating = False Application.Calculation = xlCalculationManual If TypeName(Selection) <> "Range" Then MsgBox "Range Terpilih Tidak Valid" Exit Sub End If Set rgTanda = Selection Set rgTanda = rgTanda.Rows(1) Do Tanda = Application.InputBox("Masukan Text Sebagai Tanda Sisip") If StrPtr(Tanda) = 0 Then Exit Sub 'prosedur diakhiri jika user tekan tombol cancel inputValid = Not Tanda = "" If inputValid = False Then MsgBox "Inputan tidak boleh kosong", vbCritical Loop Until inputValid Do jmlKolomSisip = Application.InputBox("Masukan Jumlah Kolom Sisip antara 1 s/d 10") If StrPtr(jmlKolomSisip) = 0 Then Exit Sub 'prosedur diakhiri jika user tekan tombol cancel inputValid = (IsNumeric(jmlKolomSisip) And Not (jmlKolomSisip < 1) And Not (jmlKolomSisip > 10)) If inputValid = False Then MsgBox "Jumlah Kolom sisip harus berupa angka 1 s/d 10", vbCritical Loop Until inputValid jmlKolomSisip = Int(jmlKolomSisip) For i = rgTanda.Columns.Count To 1 Step -1 Set selCek = rgTanda.Cells(1, i) If selCek.Value = Tanda Then Range(selCek.Offset(0, 1), selCek.Offset(0, jmlKolomSisip)).EntireColumn.Insert End If Next rgTanda.Select Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

Cara menggunakan code nomor 4 sama dengan nomor 3.

***

Demkian  contoh-contoh code macro yang dapat kamu gunakan untuk menyisipkan kolom pada lembar kerja Microsoft excel.

Jika teman-teman tertarik untuk mengetahui lebih banyak mengenai contoh - contoh code macro VBA Excel, silahkan telusuri konten blog ini via DAFTAR ISI.

Barangkali contoh - contoh code dalam link berikut ini bisa bermanfaat:

• Contoh Code VBA Untuk Menghapus Kolom Kosong Sekaligus
• Contoh Code VBA Menghapus Baris Kosong Sekaligus
• Contoh Code VBA Untuk Sisip Baris Kosong Sekaligus

Jika ada saran / koreksi, jangan segan untuk tinggalkan pesan di kolom komentar.

Salam..😎😎

Menghapus Kolom Kosong Sekaligus

Pada postingan kali ini, mimin akan menampilkan contoh code vba untuk menghapus kolom kosong di Excel.  Pembahasan ini masih terkait dengan postingan sebelumnya mengenai contoh kode macro vba untuk menghapus baris kosong di Excel. 

Mengapa menghapus kolom kosong menggunakan macro? Tentu saja perlu.. Dibandingkan menghapus baris kosong secara konvensional, macro menawarkan proses yang lebih cepat dan efisien.

Langsung saja menuju contoh code VBA untuk delete kolom kosong, silahkan langsung di copas saja code-nya.

1. Hapus Semua Kolom Kosong Dalam Range Terpakai

Contoh code macro yang pertama ini akan menghapus semua kolom kosong tanpa kecuali dalam range yang terpakai (used range). Tentu saja didalam sheet yang sedang aktif. Yang dimaksud range terpakai adalah sekumpulan sel dimulai dari sel terisi di paling atas kiri sampai dengan sel terisi paling bawah kanan dalam lembar kerja excel.

Sub HapusKolomKosongDalamRangeTerpakai() Dim Target As Range, i As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Set Target = ActiveSheet.UsedRange For i = Target.Columns.Count To 1 Step -1 If WorksheetFunction.CountA(Target.Columns(i)) = 0 Then Target.Columns(i).Delete Shift:=xlToLeft End If Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

Setelah kamu copas kode di atas ke dalam module standar vba excel, maka kamu bisa segera menggunakannya. Untuk menggunakannya, kamu tidak perlu menyeleksi range tertentu. Langsung saja jalankan makronya (tab developer --> Macros --> Pilih nama macro yang sesuai --> Run).

Maka semua kolom kosong akan terhapus seketika.

2. Hapus Semua Kolom Kosong Dalam Range Terpilih

Jika kamu hanya ingin menghapus kolom kosong dalam range tertentu maka gunakan contoh code vba excel berikut:

Sub HapusKolomKosongDalamRangeTerpilih() Dim Target As Range, i As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Set Target = Selection For i = Target.Columns.Count To 1 Step -1 If WorksheetFunction.CountA(Target.Columns(i)) = 0 Then Target.Columns(i).Delete Shift:=xlToLeft End If Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

Setelah code di copas ke modul standar vba, maka code sudah bisa digunakan. Seleksi range sel yang ingin kamu hapus bagian kolom kosongnya, kemudian jalankan macro nya. Maka semua kolom kosong dalam range terpilih akan terhapus. Kolom yang dihapus dibatasi hanya pada range terpilih.

 

3 Hapus Kolom Berdasarkan Kolom Kosong dalam Range Terpilih

Jika kamu mendapati sebuah kolom terdiri dari sel-sel, sebagian kosong, sebagian berisi. Kemudian kamu menyadari ternyata isi sel dalam baris lainnya yang sejajar dengan dengan sel-sel kosong tersebut tidak berguna, maka kamu bisa memutuskan untuk menghapus kolom-kolom berdasarkan kolom kosong dalam range terpilih.

Sub HapusKolomBerdasarkanKolomKosongDalamRangeTerpilih() Dim Target As Range, i As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Set Target = Selection For i = Target.Columns.Count To 1 Step -1 If WorksheetFunction.CountA(Target.Columns(i)) = 0 Then Target.Columns(i).EntireColumn.Delete End If Next Application.ScreenUpdating = True End Sub

Untuk mengunakan code ini, caranya seperti prosedur nomor 2. Pertama seleksi atau pilih range tertentu sebagai acuan, lalu jalankan macro nya.

***

Demikian tiga contoh code macro untuk menghapus kolom kosong pada lembar kerja microsoft Excel. Kamu bisa menggunakannya code yang sesuai dengan kebutuhannmu.

Mau tau lebih banyak tentang koleksi contoh macro vba? Silahkan telusuri konten blog ini via Daftar Isi.  

Barangkali contoh code dalam tautan berikut bermanfaat buat kamu:

• Contoh Code VBA Excel untuk Menghapus Baris Kosong Sekaligus
• Contoh Code VBA Excel untuk Sisip Baris Kosong Sekaligus
• Contoh Code VBA Excel untuk Menghapus Sheet

Jika kamu ada saran/ koreksi ? jangan ragu untuk tinggalkan pesan dalam kolom komentar...

Salam...😎😎