Protect dan Unprotect Semua Worksheet Sekaligus

Halo sobat, kali ini mimin akan berbagi contoh code macro vba untuk Protect dan Unprotect Worksheet Sekaligus Pada Microsoft Excel. Proteksi worksheet berguna untuk melindungi sebuah template laporan dari kesalahan penginputan atau editing. 

Secara konvensional, prosedur protect  worksheet di excel dapat dilakukan melalui langkah - langkah berikut:

Tab Review ⇨ Pada grup Protect, klik command "Protect Sheet"

Demikian juga untuk melakukan unprotect prosesnya serupa, yaitu:

Tab Review ⇨ Pada grup Protect, klik command "Unprotect Sheet"

Ketika hanya ada 1 atau 2 sheet saja maka tidak terlalu sulit melakukan protect / unprotet sheet secara konvensional.  Jika ada banyak sheet juga sebenarnya tidak sulit juga. Hanya saja kamu akan merasa bosan mengulang - ulang proses yang sama.

Oleh karenanya macro datang sebagai solusi untuk protect dan unprotect semua worksheet sekaligus dan cepat.

Baiklah, mari kita langsung menuju contoh code macro untuk protect atau unprotect  semua worksheet dalam sekali proses.

1. Protect Semua Worksheet Sekaligus

Nah prosedur yang pertama ini dapat kamu gunakan untuk memproteksi semua sheet dalam workook aktif. silahkan di copy contoh code vba berikut:

Sub ProtectSemuaWs() Dim Wb As Workbook Dim Ws As Worksheet Dim Sandi As String Sandi = "sandiku123" Set Wb = ActiveWorkbook For Each Ws In Wb.Sheets Ws.Protect Password:=Sandi Next End Sub

2. Unprotect Semua Worksheet Sekaligus

Sedangkah prosedur yang kedua ini digunakan untuk tujuan sebaliknya dari prosedur nomor 1. Ini diperlukan jika kamu akan melakukan editing pada template excel yang kamu buat.

Sub UnprotectSemuaWs() Dim Wb As Workbook Dim Ws As Worksheet Dim Sandi As String Sandi = "sandiku123" Set Wb = ActiveWorkbook For Each Ws In Wb.Sheets Ws.Unprotect Password:=Sandi Next End Sub

 

Cara menggunakan code:

Baik contoh code pertama maupun kedua, digunakan dengan langkah-langkah yang sama. 

1. Menyiapkan code macro

• Copy code di atas
• masuk ke microsoft excel dimana kamu akan menyimpan code nya
• masuk ke VB Editor dengan menekan shortcut Alt + 11, atau melalui Tab Developer ⇨ pada grup Code, klik Visual Basic.
• Di dalam VB Editor, klik menu Insert ⇨ Module, atau jika kamu sudah punya sebuah module yang dipersiapkan sebelumnya untuk menyimpan semua macro yang kamu punya, maka cukuplah masuk ke dalam module dimaksud.
• Paste code di dalam module

2. Menjalankan macro

• Salah satu cara menjalankan macro, kamu bisa melakukannya via Tab Developer ⇨ Macros ⇨ Pilih macro yang sesuai ⇨ Run
• Selain itu kamu juga bisa membuat short cut untuk yang bisa digunakan untuk mengeksekusi macro secara cepat. 

Cara membuat shortcut macro:

Pada jendela excel, masuk ke Tab Developer ⇨ Macros ⇨ Pilih macro yang akan dibuat shortcut-nya ⇨ klik Options ⇨ ketik huruf shortcut yang kamu mau. 

Dengan adanya shortcut ini maka ketika kamu ingin menjalankan sebuah macro, maka kamu tinggal tekan key shortcut yang sudah kamu buat sebelumnya.

***

Itulah pembahasan singkat mengenai contoh code macro VBA excel untuk protect dan unprotect worksheet. Semoga bermanfaat.

Contoh lainnya dalam link berikut ini mungkin barmanfaat, silahkan pindah TKP saja:

• Contoh Macro Untuk Hide dan Unhide Sheet
• Contoh Macro Untuk Hide untuk Delete Sheet

Dapatkan lebih banyak lagi contoh - contoh code macro excel dalam blog ini. Silahkan telusuri via Daftar Isi

Jika sobat ada saran atau koreksi. Mimin sangat berterimakasih kalau kamu bisa menyampaikan feed back nya dalam kolom komentar.

Terimakasih.

Salam...😎😎

Konversi Tanggal Menjadi Nama Bulan

Halo sobat, kali ini mimin akan berbagi contoh code macro vba untuk konversi tanggal menjadi nama bulan. Postingan ini masih terkait dengan pembahasan sebelumnya mengenai code macro untuk Konversi Tanggal Menjadi Nama Hari.  Seperti halnya nama hari, contoh code dibagi menjadi 2 bagian. Contoh pertama untuk merubah tanggal menjadi nama bulan dalam bahasa Inggris. Sedangkan contoh ke-2 untuk merubah tanggal mejadi nama bulan dalam bahasa Indonesia.

Baiklah langsung saja menuju TKP:

Konversi Tanggal Menjadi Nama Bulan Dalam Bahasa Inggris

Alur code vba untuk konversi tanggal menjadi nama bulan sama dengan alur code vba untuk merubah tanggal menjadi hari. Kita hanya perlu sedikit modifikasi pada kode format number. Format nama hari menggunakan kode "dddd", sedangkan format nama bulan menggunakan kode "mmmm" (nama bulan panjang) atau "mmm" (nama bulan pendek).

Baiklah langsung saja di copas code nya:

Sub TanggalJadiMonthName() Dim target As Range, sel As Range, MonthName As String If Not TypeName(Selection) = "Range" Then MsgBox "Tidak bisa diproses, range yang anda pilih tidak valid", vbCritical Exit Sub End If Set target = Selection For Each sel In target If IsDate(sel) = True Then MonthName = Format(sel.Value, "mmmm") sel.Value = MonthName End If Next End Sub

Cara menggunakan code:

• Copy code ke module vba standar dalam workbook kumpulan macro yang kamu miliki
• Pilih range sel berisi data tanggal yang ingin kamu ubah menjadi nama bulan.
• Jalankan macro (Tab Developer ⇨ Macros ⇨ Pilih nama macro yang sesuai ⇨ Run

Konversi Tanggal Menjadi Nama Bulan Dalam Bahasa Indonesia

Untuk merubah tanggal menjadi nama bulan dalam bahasa Indonesia, kita bisa memanfaatkan worksheet function TEXT dan menggunakan code format number "[$-421]mmmm".   

Sekedar mengingat kembali, apa yang dimaksud dengan worksheet function?

Worksheet function merupakan fungsi-fungsi bawaan aplikasi Microsoft Excel yang biasa digunakan untuk membuat formula dalam worksheet (misal: SUM, AVERAGE, IF, SUMIF, COUNTIF VLOOKUP, TEXT dan fungsi-fungsi lainya yang tidak bisa disebutkan di sini satu per satu)

Worksheet function ini bisa dipanggil oleh code VBA sehingga bisa dijalankan via VBA.

Berikut contoh code macro. Sobat bisa copas dahulu sehingga bisa langsung mencoba dan mempraktikannya.

Sub TanggalJadiNamabulan() Dim target As Range, sel As Range, namabulan As String If Not TypeName(Selection) = "Range" Then MsgBox "Tidak bisa diproses, range yang anda pilih tidak valid", vbCritical Exit Sub End If Set target = Selection For Each sel In target If IsDate(sel) = True Then namabulan = WorksheetFunction.Text(sel.Value, "[$-421]mmmm") sel.Value = namabulan End If Next

Langkah-langkah menggunakan code untuk merubah tanggal menjadi nama bulan sama: Setelah code tersedia / dicopy paste ke module vba standar, selanjutnya sobat pilih atau seleksi range berisi data tanggal. Terakhir jalankan macro-nya (Tab developer ⇨ Macros ⇨ Pili nama macro yang sesuai ⇨ klik Run.

Sampai di sini pembahasan contoh code macro vba untuk merubah data tanggal menjadi nama bulan. Semoga bisa bermanfaat buat sobat semua.

***

Jika sobat tertarik untuk mendapatkan contoh-contoh code macro siap pakai lainnya. Yuk.. kite telusuri konten blog ini satu persatu. Silahkan di klik tautan Daftar Isi.

Link berikut mungkin bermanfaat buat sobat:

• Merubah Tanggal Menjadi Nama Hari
• Cara Hapus Gambar Sekaligus

Jika sobat ada saran / koreksi,  mimin sangat berterimakasih jika sobat dapat meluangkan waktu sebentar untuk memberikan feedback dalam kolom komentar.

Salam...😎😎😎

Konversi Tanggal Menjadi Nama Hari

Halo sobat, di kesempatan ini mimin akan sharing contoh code macro untuk Konversi Tanggal Menjadi Nama Hari.  Tanpa VBA juga sebenarnya kita juga bisa mengkonversi tanggal menjadi nama hari dengan mudah dengan menggunakan formula maupun tehnik number formating.

Perlu diketahui bahwa semua proses yang dijalankan melalui macro juga bisa dijalankan secara manual melalui fitur-fitur di excel. Hanya saja macro menawarkan proses yang berkali lipat lebih cepat dan hasil yang konsisten. Pun pada proses konversi tanggal menjadi nama hari. Alih alih mengetikan formula atau number formating dan melalui beberapa langkah manual, macro menawarkan cara kerja yang lebih cepat dengan langkah minimal.

Baiklah langsung saja kita ke topik contoh Konversi Tanggal Jadi Nama Hari

Konversi Tanggal Menjadi Nama Hari Dalam Bahasa Inggris

Untuk mengubah tanggal menjadi nama hari di VBA bisa menggunakan fungsi Format. Akan tetapi fungsi ini memiliki kelemahan yaitu output yang dihasilkan berupa nama hari hanya dalam bahasa Inggris. Jika kamu memang bermaksud merubah tanggal menjadi nama hari dalam bahasa Inggris maka contoh code ini sudah cukup membantu:

Sub TanggalJadiDayName() Dim target As Range, sel As Range, dayName As String If Not TypeName(Selection) = "Range" Then MsgBox "Tidak bisa diproses, range yang anda pilih tidak valid", vbCritical Exit Sub End If Set target = Selection For Each sel In target If IsDate(sel) = True Then dayName = Format(sel.Value, "dddd") sel.Value = dayName End If Next End Sub

Cara menggunakan code:

• Copy code ke module vba standar dalam workbook kumpulan macro yang kamu miliki
• Pilih range sel yang disinyalir berisi data tanggal dan kamu ingin merubahnya menjadi nama hari
• Jalankan macro (Tab Developer ⇨ Macros ⇨ Pilih nama macro yang sesuai ⇨ Run

Konversi Tanggal Menjadi Nama Hari Dalam Bahasa Indonesia

Meskipun fungsi bawaan VBA tidak bisa merubah tanggal ke bahasa Indonesia, untungnya masih ada worksheet function TEXT yang bisa merubah tanggal ke nama hari dalam berbagai bahasa. 

Apakan yang dimaksud worksheet function?

Worksheet function merupakan fungsi-fungsi bawaan aplikasi Microsoft Excel yang biasa digunakan untuk membuat formula dalam worksheet (misal: SUM, IF, VLOOKUP, SUMIF, TEXT dan masih banyak lagi.

Worksheet function TEXT bisa dipanggil oleh code VBA sehingga bisa dijalankan dalam VBA.

Langsung saja dicopas contohnya ya:

Sub TanggalJadiNamaHari() Dim target As Range, sel As Range, namaHari As String If Not TypeName(Selection) = "Range" Then MsgBox "Tidak bisa diproses, range yang anda pilih tidak valid", vbCritical Exit Sub End If Set target = Selection For Each sel In target If IsDate(sel) = True Then namaHari = WorksheetFunction.Text(sel.Value, "[$-421]dddd") sel.Value = namaHari End If Next End Sub

Cara menggunakan contoh code yang ke-2 ini sama dengan contoh pertama yaitu: setelah code tersedia / dicopy paste ke module vba standar, maka kemudian seleksi range berisi data tanggal, lalu jalankan macro.

Itulan 2 contoh code macro yang bisa kamu gunakan untuk mengkonversi data tanggal menjadi nama hari. Contoh pertama mengkonversi tanggal menjadi nama hari dalam bahasa Inggris. Sedangkan contoh kedua mengkonversi tanggal menjadi nama hari dalam bahasa Indonesia.

***

Sobat... belajar VBA Excel akan lebih cepat dimengerti jika langsung mempraktekannya. Karena dengan mempratekannya kamu akan langsung mengetahui kegunaannya. Jika sudah tahu kegunaannya maka kamu akan lebih bersemangat lagi untuk mempelajarinya. 

Karena itulan blog ini menyediakan contoh-contoh code vba yang bisa langsung di copy-paste dan langsung digunakan. Silahkan telusuri Daftar Isi untuk mendapatkan contoh-contoh code macro lainnya.

Barangkali juga kamu tertarik dengan contoh berikut ini:

• Cek Validitas Hyperlink Internal
• Cara Cepat Menghapus Semua Gambar Sekaligus

Jika sobat ada saran, kritik atau koreksi, Mimin sangat berterimakasih jika sobat bisa menyampaikan feedbacknya di kolom komentar.

Salam...😎😎

Cek Validitas Hyperlink Internal

Halo sobat, pada beberapa waktu yang lalu, mimin sudah memposting dan menjelaskan mengenai contoh code macro untuk membuat dan menghapus hyperlink. Nah, kali ini mimin akan sharing contoh macro untuk mengecek validitas hyperlink internal.

Apa yang dimaksud dengan hyperlink internal?

Hyperlink internal merupakan tautan dengan target masih berada dalam satu workbook yang sama. Misalnya pada bagian sel lain ataupun pada sheet yang lain. 

Kenapa hyperlink menjadi tidak valid?

Hyperlink internal menjadi tidak valid biasanya karena user men-delete sel atau sheet yang menjadi target alamat hyperlink. Selain itu, merubah nama sheet target hyperlink juga bisa menyebabkan hyperlink menjadi tidak valid.

Membuat Fungsi buatan sendiri untuk mengecek validitas hyperlink.

Dengan VBA kita bisa membuat fungsi sendiri atau UDF (User Defined Function) yang bisa digunakan untuk mengecek apakah sebuah sel memiliki hyperlink yang valid atau tidak. berikut fungsi yang mimin namai VALIDHL

Function VALIDHL(sel As Range) As Boolean Dim TestSubAddr As Range On Error GoTo skip VALIDHL = False Set TestSubAddr = Range(sel.Hyperlinks(1).SubAddress) VALIDHL = True Exit Function skip: End Function

VALIDHL akan menghasilkan nilai TRUE jika memiliki  hyperlink yang valid dan nilai FALSE jika tidak memiliki hyperlink atau memiliki hyperlink tetapi tidak valid.

Cara menggunakan code:

Setelah di copy paste ke module standar, fungsi VALIDHL bisa langsung digunakan. Caranya seperti menggunakan fungsi bawaan excel biasa.

Misalnya: untuk mengecek apakah sel "A1" mengandung hyperlink yang valid atau tidak, maka kita bisa mengetikan rumus di sel "A2" sebagai berikut:

= VALIDHL(A1)

Perhatikan contoh cara penggunaan fungsi VALIDHL di excel.

Menandai semua sel yang mengandung hyperlink tidak valid

Selain dengan menuliskan rumus VALIDHL di excel. Kita juga bisa menggunakan fungsi VALIDHL dalam sebuah macro untuk mengecek validitas hyperlink tiap-tiap sel dalam range terpilih.

Caranya dengan menambahkan code berikut ke dalam module VBA.

Sub CekDanTandaiBrokenHyperlinkInternal() Dim sel As Range, Target As Range Set Target = Selection For Each sel In Target If sel.Hyperlinks.Count > 0 Then If VALIDHL(sel) = False Then sel.Interior.Color = 13551615 sel.Font.Color = 393372 Else sel.Interior.Color = 16777215 sel.Font.Color = 12673797 End If End If Next End Sub

Cara menggunakan code 

• Pastikan code sub CekDanTandaiBrokenHyperlinkInternal beserta code fungsi VALIDHL sudah di copy paste di module vba dalam workbook yang sama.
• Pilih atau seleksi range yang ingin kamu cek apakah ada hyperlink yang tidak valid
• Jalankan macro (via Tab Developer ⇨ Macros ⇨ Pilih nama macro yang sesuai ⇨ Run

Jika proses sudah dijalankan dengan benar, maka kamu akan mendapati semua sel yang mengandung hyperlink yang tidak valid berwarna merah muda (style: bad)

*** 

Itulah contoh code macro VBA yang bisa kamu gunakan untuk mengecek dan menandai semua sel yang mengandung hyperlink tidak valid.

Jika sobat tertarik mengetahui lebih lanjut mengenai contoh-contoh code vba lainnya, silahkan telusuri konten blog ini via DAFTAR ISI. Atau barangkali sobat tertarik dengan materi dalam link di bawah ini, silahkan di intip dulu ya.

• Membuat dan menghapus hyperlink
• Menghapus Semua Gambar Sekaligus

Jika teman - teman ada kritik / saran / koreksi, jangan segan segan utuk tinggalkan kritik / saran / anda di kolom komentar. 

Salam...😎😎😎

Cara Hapus Semua Gambar Sekaligus

Halo kawan-kawan, senang sekali bisa bersua kembali. Kali ini mimin akan memberi beberapa contoh code macro VBA untuk menghapus gambar (shape) pada lembar kerja Ms Excel. 

Ada beberapa type gambar (shape di excel). Bahkan comment box juga dikategorikan sebagai shape, sehingga apabila tidak dibuat pengecualian dalam code macro yang kita buat, maka comment box akan ikut terhapus.

Baik, langsung saja menuju TKP. Mimin sarankan untuk langsung copy dan paste code ke dalam module vba standar dalam kumpulan macro yang kamu miliki, sehingga dapat segera dicoba dan dirasakan hasilnya.

1. Delete Semua Obyek Gambar dalam Activesheet

Untuk menghapus semua obyek gambar dalam sheet yang sedang active maka gunakan contoh code di bawah ini.

Sub HapusSemuaObyekGambarDalamSheetActive_1() Dim Ws As Worksheet Application.ScreenUpdating = False Set Ws = ActiveSheet Ws.Shapes.SelectAll Selection.Delete End Sub

Atau bisa juga menggunakan contoh berikut:

Sub HapusSemuaObyekGambarDalamSheetActive_2() Dim Ws As Worksheet, Gambar As Shape Set Ws = ActiveSheet For Each Gambar In Ws.Shapes If Not Gambar.Type = msoComment Then Gambar.Delete End If Next End Sub

Cara menggunakan code:

• Copas code ke modul vba standar
• Activekan sheet (masuk ke sheet) yang akan dihapus conten gambar di dalamnya
• Jalankan macro (Tab Developer ⇨ Macros ⇨ Pilih nama macro yang sesuai ⇨ Run

2. Delete Semua Obyek Picture Dalam Activesheet

Jika kamu hanya ingin hanya menghapus obyek Picture maka gunakan code berikut:

Sub HapusHanyaObyekPictureDalamSheetActive() Dim Ws As Worksheet, Gambar As Shape Set Ws = ActiveSheet For Each Gambar In Ws.Shapes If Gambar.Type = msoPicture Then Gambar.Delete End If Next End Sub

Keterangan:

Yang dimaksud obyek Picture adalah gambar yang diperoleh dari hasil insert Picture. Bisa juga dari hasil copy paste special as picture. 

Cara menggunakan code macro nomor 2 ini sama dengan macro nomor 1.

3. Delete Semua Obyek Gambar Dalam Range Terpilih

Jika kamu ingin membatasi delete gambar hanya pada range yang dipilih maka gunakan berikut:

Sub HapusSemuaObyekGambarDalamRangeTerpilih() Dim Ws As Worksheet, rangeTerpilih As Range Dim Gambar As Shape, rangeGambar As Range Set Ws = ActiveSheet Set rangeTerpilih = Selection For Each Gambar In Ws.Shapes Set rangeGambar = Range(Gambar.TopLeftCell, Gambar.BottomRightCell) If Not Intersect(rangeGambar, rangeTerpilih) Is Nothing Then If Not Gambar.Type = msoComment Then Gambar.Delete End If End If Next End Sub

Cara gunain code nomor 3:

• Copas code ke modul vba standar
• Activekan sheet (masuk ke sheet) yang akan dihapus conten gambar di dalamnya
• Pilih (seleksi) range yang ingin kamu hapus konten gambarnya
• Jalankan macro (Tab Developer ⇨ Macros ⇨ Pilih nama macro yang sesuai ⇨ Run

4. Delete Semua Obyek Picture Dalam Range Terpilih

Jika kamu hanya ingin menghapus gambar jenis Picture pada range terpilih maka gunakan contoh code macro berikut:

Sub HapusHanyaObyekPictureDalamRangeTerpilih() Dim Ws As Worksheet, rangeTerpilih As Range Dim Gambar As Shape, rangeGambar As Range Set Ws = ActiveSheet Set rangeTerpilih = Selection For Each Gambar In Ws.Shapes Set rangeGambar = Range(Gambar.TopLeftCell, Gambar.BottomRightCell) If Not Intersect(rangeGambar, rangeTerpilih) Is Nothing Then If Gambar.Type = msoPicture Then Gambar.Delete End If End If Next End Sub

Adapun cara menggunakan code tersebut (macro nomor 4) sama dengan contoh macro nomor 3.

Jika kamu ingin menghapus jenis gambar yang lebih spesifik, silahkan tinggal diatur saja type gambarnya.

Misalnya:

Gambar.Type = msoChart

Gambar.Type = msoAutoShape

dan sebagainya. list type gambar akan terdisplay secara otomatis ketika kita mengetik Gambar.Type = seperti diperlihakan dalam screenshot vba di bawah ini.

***

Itulah beberapa contoh code VBA untuk menghapus gambar di excel. 

Jika kamu tertarik mengetahui lebih banyak mengenai contoh code macro VBA Excel, silahkan telusuri konten blog ini via Daftar Isi.  Atau postingan berikut barangkali berguna buat kamu.

• Cara Mengisi Sel Kosong
• Cara Insert Kolom Sekaligus
• Cara Insert Baris Sekaligus

Mimin sangat berterimakasih apabila teman-teman bisa berbagi saran dan koreksi untuk perbaikan blog ini. Jangan segan-segan untuk tinggalkan pesan di kolom komentar ya.

Salam...😎😎😎

Cara Mengisi Sel Kosong

Mengisi Sel Kosong pada spreadsheet excel bisa dilakukan baik secara konvensional maupun dengan macro. Isi sel kosong secara konvensional harus mengikuti beberapa tahapan yaitu: 

• Menyeleksi sel kosong (Tab Home ⇨ Find & Replace ⇨ Goto Special... ⇨ Blanks ⇨ Ok)
• Mengetik data atau formula pada salah satu sel kosong
• Diakhiri dengan menekan Ctrl + Enter

Tiga proses manual diatas dapat dikonversi menjadi code macro sehingga kita bisa menjalankannya secara lebih cepat.

Ada dua jenis data yang sering dimasukan sebagai pengisi sel kosong yaitu:

• Isi sel kosong dengan angka Nol
• Isi sel kosong dengan data dari sel sebelah atasnya

Baik, langsung saja kita menuju TKP. Disini ada beberapa contoh code macro VBA Excel yang bisa langsung kamu copas dan gunakan untuk mengisi sel kosong.

1. Mengisi Sel Kosong dengan Angka Nol

Prosedur ini biasanya digunakan untuk kumpulan range berisi data numerik. Kamu bisa memilih membiarkannya tetap kosong (blank) atau pun memilih untuk mengisinya dengan angka 0 (Nol). Jika kamu memilih mengisinya dengan Nol maka daripada mengetik satu persatu, alangkah baiknya mencoba mengisi semua sel kosong sekaligus menggunakan macro.

Silahkan tinggal di copy code nya:

Type 1

Sub isiSelKosongDenganNol_1() Dim Target As Range, rangeKosong As Range Application.ScreenUpdating = False Application.Calculation = xlCalculationManual If TypeName(Selection) = "Range" Then Set Target = Selection Set rangeKosong = Target.SpecialCells(xlCellTypeBlanks) rangeKosong.Value = 0 End If Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

Cara menggunakan code

• Copy code dan paste ke module standar VBA
• Pilih range yang ingin di isi bagian sel kosongnya
• Jalankan Macro (Tab Developer ⇨ Macros ⇨ Pilih nama macro yang sesuai ⇨ Run)

Pada beberapa kasus, contoh code type 1  ini gagal mengindentifikasi sel kosong. Mimin pernah mengalaminya ketika mencoba prosedur isi kosong sebuah lembar kerja excel hasil download dari sebuah aplikasi. 

Type 2

Untuk mengatasi masalah gagal identifikasi sel kosong pada code type1, maka sebagai alternatifnya kita bisa menggunakan code type 2.

Sub isiSelKosongDenganNol_2() Dim Target As Range, sel As Range Application.ScreenUpdating = False Application.Calculation = xlCalculationManual If TypeName(Selection) = "Range" Then Set Target = Selection For Each sel In Target If sel.Value = "" Then sel.Value = 0 End If Next End If Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

Cara menggunakan code type 2 ini sama dengan type 1.

Secara performa kecepatan, code type 2 ini lebih lebih rendah dibandingkan type 1 karena harus melalui proses looping. Hanya saja type 2 diperlukan untuk mengatasi kelemahan type 1 yang terkadang gagal mengidentifikasi sel kosong. 

2. Mengisi Sel Kosong dengan Data yang Sama dari Sel di Atasnya

Selain angka 0 (nol), data yang sering digunakan untuk mengisi sel kosong adalah data yang sama dari sel sebelah atasnya. Mengisi sel kosong dengan data yang sama dari sel atasnya sangat penting, terutama jika kita akan mengolah data via fitur excel table dan pivot table.

Seperti halnya code macro untuk mengisi sel kosong,  mimin juga menampilkan 2 type contoh untuk mengisi sel kosong dari data sel sebelah atasnya

Langsung saja menuju contoh code, silahkan di copas..

Type 1

Sub isiSelKosongDenganDataDariSelAtasnya_1() Dim Target As Range, rangeKosong As Range Application.ScreenUpdating = False Application.Calculation = xlCalculationManual If TypeName(Selection) = "Range" Then Set Target = Selection Set rangeKosong = Target.SpecialCells(xlCellTypeBlanks) rangeKosong.Formula2R1C1 = "=R[-1]C" Target.Value = Target.Value End If Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

Type 2

Sub isiSelKosongDenganDataDariSelAtasnya_2() Dim Target As Range, sel As Range Application.ScreenUpdating = False Application.Calculation = xlCalculationManual If TypeName(Selection) = "Range" Then Set Target = Selection For Each sel In Target If sel.Value = "" Then sel.Value = sel.Offset(-1, 0).Value Next End If Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

Setelah dicopy ke modul VBA standar, cara menggunakan kedua contoh code tersebut sama yaitu:

• Pilih range yang ingin diisi bagisn sel kosongnya
• Jalankan macro (misalnya melalui tab Developer ⇨ Macros ⇨ pilih Macro yang sesuai ⇨ Run)

***

Itulah beberapa contoh code vba excel yang bisa digunakan untuk mengisi sel kosong pada lembar kerja excel.

Barangkali kamu juga tertarik mengenai contoh code macro berikut ini, silahkan diklik saja linknya:

• Contoh Code VBA Excel untuk Sisip Kolom Sekaligus
• Contoh Code VBA Excel untuk Sisip Baris Sekeligus
• Contoh Code VBA Excel untuk Hapus Kolom Kosong

Jika mau lebih banyak lagi, silahkan telusuri konten blog ini via Daftar Isi.

Jika teman -teman ada saran / koreksi, jangan segan-segan untuk tinggalkan komentar.

Salam..😎😎😎

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...😎😎

Sisip Baris Sekaligus

Sebelumnya sudah dibahas mengenai contoh code macro untuk menghapus baris kosong sekaligus. Nah pada postingan kali ini berlaku sebaliknya. Kita akan mempraktekann contoh code macro untuk menyisipkan baris sekaligus pada lembar kerja Microsoft Excel. 

Ide awalnya adalah bahwa secara konvensional kita biasanya menyisipkan baris dengan terlebih dahulu mengidentifikasi keberadaan text tertentu. Misalnya jika ingin menambahkan baris kosong dibawah setiap baris "Total", maka kita akan mencari baris "Total" terlebih dahulu, kemudian seleksi baris di bawah baris total, lalu klik kanan --> insert

Prosedur sisip baris atau Insert Row secara manual biasanya dilakukan satu persatu. Tidak begitu menjadi masalah jika jumlah row hanya sedikit. Tetapi jika mencapai ratusan atau ribuan, maka cara konvensional cukup merepotkan.

Untungnya ada macro / VBA yang dapat menjalankan tugas tersebut dengan sangat cepat.

Sisip Satu Baris Penuh Diatas Setiap Sel Berisi Text Tertentu

Sub SisipSatuBarisPenuhDiAtasTextTanda() 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.Columns(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.Rows.Count To 1 Step -1 Set selCek = rgTanda.Cells(i, 1) If selCek.Value = Tanda Then selCek.EntireRow.Insert End If Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

Sisip Satu Baris Penuh Diatas Setiap Sel Berisi Text Tertentu

Sub SisipSatuBarisPenuhDiBawahTextTanda() 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.Columns(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.Rows.Count To 1 Step -1 Set selCek = rgTanda.Cells(i, 1) If selCek.Value = Tanda Then selCek.Offset(1, 0).EntireRow.Insert End If Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

Sisip Beberapa Baris Penuh Diatas Setiap Sel Berisi Text Tertentu

Sub SisipBeberapaBarisPenuhDiAtasTextTanda() Dim rgTanda As Range, Tanda As Variant, i As Long Dim selCek As Range, jmlBarisSisip 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.Columns(1) Do Tanda = Application.InputBox("Masukan Text Sebagai Tanda Sisip") If Tanda = False 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 jmlBarisSisip = Application.InputBox("Masukan Jumlah Baris Sisip antara 1 s/d 10") If jmlBarisSisip = False Then Exit Sub 'prosedur diakhiri jika user tekan tombol cancel inputValid = (IsNumeric(jmlBarisSisip) And Not (jmlBarisSisip < 1) And Not (jmlBarisSisip > 10)) If inputValid = False Then MsgBox "Jumlah baris sisip harus berupa angka 1 s/d 10", vbCritical Loop Until inputValid jmlBarisSisip = Int(jmlBarisSisip) For i = rgTanda.Rows.Count To 1 Step -1 Set selCek = rgTanda.Cells(i, 1) If selCek.Value = Tanda Then Range(selCek, selCek.Offset(jmlBarisSisip - 1)).EntireRow.Insert End If Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

Sisip Beberapa Baris Penuh Dibawah Setiap Sel Berisi Text Tertetu

Sub SisipBeberapaBarisPenuhDiBawahTextTanda() Dim rgTanda As Range, Tanda As Variant, i As Long Dim selCek As Range, jmlBarisSisip 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.Columns(1) Do Tanda = Application.InputBox("Masukan Text Sebagai Tanda Sisip") If Tanda = False 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 jmlBarisSisip = Application.InputBox("Masukan Jumlah Baris Sisip antara 1 s/d 10") If jmlBarisSisip = False Then Exit Sub 'prosedur diakhiri jika user tekan tombol cancel inputValid = (IsNumeric(jmlBarisSisip) And jmlBarisSisip >= 1 And jmlBarisSisip <= 10) If inputValid = False Then MsgBox "Jumlah baris sisip harus berupa angka 1 s/d 10", vbCritical Loop Until inputValid jmlBarisSisip = Int(jmlBarisSisip) For i = rgTanda.Rows.Count To 1 Step -1 Set selCek = rgTanda.Cells(i, 1) If selCek.Value = Tanda Then Range(selCek.Offset(1, 0), selCek.Offset(jmlBarisSisip)).EntireRow.Insert End If Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

***

Demikian beberapa contoh code macro VBA yang terkait sisip - mensisip baris / row di excel. Semoga bermanfaat.

Barangkali teman-teman tertarik mengetahui contoh-contoh code macro VBA lainnya, silahkan cek tautan di bawah ini. 

• Menghapus Baris Kosong Sekaligus
• Mengubah Konten Sel Menjadi Komentar
• Memindahkan Text dari Kotak Komentar ke Sel

Jika teman-teman ada saran atau koreksi, jangan segan-segan untuk tinggalkan pesan di kolom komentar.

Menghapus Baris Kosong Sekaligus

Apakah bisa menghapus baris kosong di excel sekaligus?  Tentu saja bisa. 

Apakah menghapus semua baris kosong bisa dikerjakan tanpa macro VBA?  Ohh pasti bisa...

Lalu kenapa menggunakan VBA? Karena macro VBA memberikan kemudahan dengan metode yang lebih praktis, hanya dengan satu klik atau sekali tekan shortcut maka semua baris kosong akan dihapus. Sedangkan cara konvensional harus melalui beberapa langkah terlebih dahulu untuk menghapus semua baris kosong sekaligus.

Tidak perlu panjang lebar pembukaannya, langsung dicopas saja code VBA-nya:

1. Menghapus Semua Baris Kosong dalam Range Terpakai

Sub HapusBarisKosongDalamRangeTerpakai() Dim Target As Range, i As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Set Target = ActiveSheet.UsedRange For i = Target.Rows.Count To Target.Row Step -1 Debug.Print WorksheetFunction.CountA(Target.Rows(i)) If WorksheetFunction.CountA(Target.Rows(i)) = 0 Then Target.Rows(i).Delete End If Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

2. Menghapus Semua Baris Kosong dalam Range Terpilih

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

3. Menghapus Baris Berdasarkan Baris Kosong dalam Range Terpilih

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

***

Itulah tiga contoh kode macro VBA yang bisa kamu pergunakan untuk menghapus baris-baris kosong sekaligus.

Kamu juga mungkin tertarik untuk mengetahui contoh-contoh kode VBA lainnya:

• Contoh Macro untuk Mengubah Konten Sel menjadi Komentar
• Contoh Macro untuk Memindahkan Komentar menjadi Konten Sel
• Contoh Macro untuk Membuat dan Menghapus Hyperlink Sekaligus

Jika kamu mendapatkan bug atau error pada contoh-contoh code diatas, mimin sangat bersenang hati apabila kamu dapat menginfokannya. Saran dan koreksi dari teman-teman sangat diharapkan untuk perbaikan blog ini ke depannya

Salam ..😎😎😎

Mengubah Konten Sel Menjadi Komentar

Masih terkait dengan editing comment di excel, postingan kali ini membahas bagaimana caranya mengkonversi konten sel menjadi komentar. Tentunya dengan menggunakan macro / VBA. Contoh code sudah disiapkan, kamu tinggal copy paste dan run saja.

1. Menjadikan Konten Sel Sebagai Comment di Sel Yang Sama

Prosedur nomor 1 ini merupakan metode yang paling sederhana dan mungkin tidak begitu bermanfaat secara praktikal. Tapi tidak salah memcobanya untuk memahami konsep insert comment dengan mengambil text dari sel.  Berikut contoh code macro vba excel yang dapat kamu copas langsung.

Sub copyKontenSelKeKomen() Dim Sel As Range, textSel As String For Each Sel In Selection If Sel.Value <> "" Then textSel = Sel.Text Sel.ClearComments Sel.AddComment textSel End If Next End Sub

Cara menjalankan code macro: 

Setelah kamu mengcopy contoh code vba tersebut ke modul standar, maka si code bisa langsung digunakan. 

Pilih sekumpulan sel berisi konten yang ingin kamu masukan kontennya ke dalam kotak komentar, lalu jalankan macro nya  (via Tab Developer --> Macro --> Pilih nama prosedur yang sesuai --> klik "Run")

Dan tralala..., comment sudah terbentuk pada semua sel yang kamu pilih apabila sel tersebut tidak kosong. 

2. Mengambil Konten Range Sel yang Diseleksi Menjadi Komentar

Proedur nomor 2 inilah yang menurut mimin paling penting. Cara ini sangat berguna terutama apabila kamu ingin menambahkan tabel ke dalam kotak komentar.  

Serapa berguna kah? 

Secara konvensional, kita tidak bisa mengcopy konten sel secara langsung dari sekumpulan sel ke dalam kotak komentar.  Yang dilakukan secara konvensional biasanya dengan meng-copy telebih dahulu konten sel ke dalam notepad, kemudian dari notepad di copy lagi ke dalam comment box. 

Cara konvensional tersebut memang membantu proses pemindahan konten sel. Tetapi pemindahan konten sel ke kotak komentar bukan hanya copy paste dan proses langsung selesai. Tetapi ada satu hal lagi yang justru paling banyak menguras waktu. Yaitu: Merapikan Text dalam Kotak Komentar. Mengerjakannya secara manual sangat menguras tenaga, waktu dan sangat membosankan. Apalagi jika ada tabel dalam kotak komentar.

Dengan menggunakan code VBA yang tepat, maka kamu tidak perlu direportkan untuk merapikan text dalam komentar. Karena tugas tersebut dapat sepenuhnya diserahkan kepada bung Macro.

Code nya cukup panjang, Perlu waktu lebih dari satu jam buat mimin untuk merenungkan dan mengetik code ini. 

Sub KonversiRangeKeComment() Dim rgData As Range Dim selCmt As Range Dim textSel() As String Dim rataTextSel() As Integer Dim tebalBaris() As Boolean Dim PjgTextType2() As Integer Dim PjgTextType3() As Integer Dim textBaris() As String Dim PjgTextBaris() As Integer Dim iBaris() As Integer Dim textCmt As String Dim JmlSelNonBlankDlmBaris() As Integer Dim i As Integer, j As Integer Dim jmlBaris As Integer Dim JmlKolom As Integer Dim jarakSpasi As Integer Dim varSpasi As Integer Const jarakSpasiDefault As Integer = 2 Const ukuranFont As Integer = 10 Const namaFont As String = "Lucida Sans Typewriter" 'nama font harus type monospace, misalnya: "Lucida Sans Typewriter", "Courier New" dan "Arial Monospaced" Set rgData = Selection jmlBaris = rgData.Rows.Count JmlKolom = rgData.Columns.Count 'redim array mengikuti jumlah baris dan jumlah kolom rgData ReDim textSel(jmlBaris, JmlKolom) ReDim rataTextSel(jmlBaris, JmlKolom) ReDim pjgTextType1(JmlKolom) ReDim PjgTextType2(JmlKolom) ReDim PjgTextType3(JmlKolom) ReDim tebalBaris(jmlBaris) ReDim textBaris(jmlBaris) ReDim PjgTextBaris(jmlBaris) ReDim JmlSelNonBlankDlmBaris(jmlBaris) ReDim iBaris(jmlBaris) 'tentukan sel untuk sarang komentar On Error GoTo skip ' loncat ke skip jika user menekan tombol cancel Set selCmt = Application.InputBox( _ Prompt:="Pilih Satu Sel Untuk Menempatkan Komentar", Type:=8) 'Setting untuk Optimalkan VBA Application.ScreenUpdating = False Application.Calculation = xlCalculationManual 'kumpulin data dari range ke array For i = 1 To jmlBaris tebalBaris(i) = rgData.Cells(i, 1).Font.Bold JmlSelNonBlankDlmBaris(i) = WorksheetFunction.CountA(rgData.Rows(i)) For j = 1 To JmlKolom textSel(i, j) = Trim(rgData(i, j).Text) rataTextSel(i, j) = rgData(i, j).HorizontalAlignment Next Next 'Menentukan panjang text maksimal per kolom For j = 1 To JmlKolom For i = 1 To jmlBaris Select Case JmlSelNonBlankDlmBaris(i) Case 2 PjgTextType2(j) = WorksheetFunction.Max(PjgTextType2(j), Len(textSel(i, j))) Case Is >= 3 PjgTextType3(j) = WorksheetFunction.Max(PjgTextType3(j), Len(textSel(i, j))) End Select Next Next 'Menyesuaikan text masing-masing komponen array textSel For i = 1 To jmlBaris For j = 1 To JmlKolom ' menentukan jumlah spasi antar text Select Case JmlSelNonBlankDlmBaris(i) Case 1 varSpasi = 0 jarakSpasi = 0 Case 2 varSpasi = PjgTextType2(j) - Len(textSel(i, j)) jarakSpasi = jarakSpasiDefault Case Is >= 3 varSpasi = PjgTextType3(j) - Len(textSel(i, j)) jarakSpasi = jarakSpasiDefault End Select If j = 1 Then ' Kolom pertama rata kiri apapun aktual format sel nya textSel(i, j) = textSel(i, j) & Space(varSpasi + jarakSpasi) Else Select Case rataTextSel(i, j) 'kolom berikutnya rata kiri/kanan/tengah menyesuaikan aktual format sel Case xlLeft textSel(i, j) = textSel(i, j) & Space(varSpasi + jarakSpasi) Case xlCenter textSel(i, j) = Space(varSpasi / 2) & textSel(i, j) & Space(varSpasi / 2 + jarakSpasi) Case Else textSel(i, j) = Space(varSpasi) & textSel(i, j) & Space(jarakSpasi) End Select End If Next Next 'Menyusun text per baris For i = 1 To jmlBaris For j = 1 To JmlKolom textBaris(i) = textBaris(i) & textSel(i, j) Next textBaris(i) = textBaris(i) & Chr(10) PjgTextBaris(i) = Len(textBaris(i)) Next 'Menyusun text komentar dan posisi karakter pertama pada setiap baris For i = 1 To jmlBaris textCmt = textCmt & textBaris(i) iBaris(i) = Len(textCmt) - Len(textBaris(i)) + 1 Next 'insert comment Set selCmt = selCmt.Range("A1") selCmt.ClearComments selCmt.AddComment textCmt 'format comment With selCmt.Comment.Shape.TextFrame .Characters.Font.Name = namaFont .Characters.Font.Size = ukuranFont .AutoSize = True For i = 1 To jmlBaris If tebalBaris(i) = True Then .Characters(iBaris(i), PjgTextBaris(i)).Font.Bold = True End If Next End With skip: 'Kembalikan setting non optimal VBA Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

Cara menjalankan macro:

Setelah kamu mengcopy contoh code vba tersebut ke modul standar, maka si code bisa langsung digunakan. 

Pilih sekumpulan sel berisi konten yang ingin kamu konversi kontennya ke dalam kotak komentar, lalu jalankan macro nya  (via Tab Developer --> Macro --> Pilih nama prosedur yang sesuai --> klik "Run")

Selanjutnya kamu akan diminta memilih satu sel untuk menempatkan komentar. Setelah kamu pilih sel yang kamu inginkan, kemudian klik Ok.

Dan tralala..., comment sudah terbentuk pada sel yang kamu pilih. Silahkan bandingkan waktu yang kamu perlukan bila dibandingkan dengan cara konvensional untuk mendapatkan hasil yang sama...

Sobat bisa pelajari cara menggunakan code vba untuk convert tabel jadi komentar melalui vido berikut:

***

Itulah contoh code macro vba yang dapat kamu gunakan untuk mengkonversi konten sel menjadi text komentar.

Jika kamu ada saran / koreksi, jangan segan-segan untuk tinggalkan feedback di kolom komentar.

Tertarik untuk mengetahui contoh-contoh code macro siap pakai lainnya, mungkin postingan berikut bermanfaat bagi kamu.

• Code VBA untuk Menjadikan Text Komentar Menjadi Konten Sel
• Code VBA untuk Hide/Unhide dan Pengaturan Format Comment
• Code VBA untuk Membuat dan Menghapus Hyperlink Secara Cepat

Salam ....😎😎😎

Copy Text Dari Comment Box ke Sel

Pada postingan sebelumnya sudah disampaikan mengenai contoh code macro VBA untuk display dan setting format comment di Excel. Postingan kali ini juga masih terkait dengan comment, membahas contoh code VBA untuk meng-copy text comment dari sel yang diseleksi dan memindahkan text tersebut di sel sebelahnya. Langsung saja di copy contoh - contoh code berikut:

1. Copy Text Komentar Ke Sel Sebelah Kanan

Prosedur nomor 1 ini digunakan untuk mengcopy sekaligus keseluruhan isi komentar yang yang tersemat pada sebuah sel dan menampilkannya sebagai konten sel di sebelahnya.  Metode ini sepertinya hanya cocok digunakan apabila text komentarnya singkat.

Sub copyKomenKeSelSebelahKanan() Dim Sel As Range For Each Sel In Selection If Not Sel.Comment Is Nothing Then Sel.Offset(0, 1).Value = Sel.Comment.Text End If Next End Sub

Setelah code di copy dan paste di module standar, maka prosedur ini sudah bisa digunakan:

Cara menjalankan prosedur ini adalah dengan menyeleksi telebih dahulu range sel yang disinyalir mengandung komentar. Pastikan hanya terdiri dari satu kolom saja dan range di sebelahnya merupakan sel kosong. Hal ini penting karena prosedur ini mengcopy comment ke sel sebelah kanan. Sehingga jika sel sebelah kanannya berisi data, maka data akan hilang tertimpa sel comment.

Setelah range di seleksi, maka kemudian jalankan makronya (misalnya via tab developer --> macro --> pilih nama macro yang sesuai --> Run). Hasilnya: kamu akan melihat sel di samping kanan berisi komentar dari sel yang diseleksi.

2. Copy Text Komentar Per Baris Ke Sel Sebelah Kanan

Jika text komentar cukup panjang dan terdiri dari beberapa baris, maka kamu bisa menggunakan contoh code macro nomor 2.  Prosedur nomor 2 ini menerapkan metode untuk memisahkan antar baris text komentar dan menempatkan di baris sel yang berbeda di sel samping kanan.

Silahkan di copas terlebih dahulu code-nya..

Sub copyPerBarisKomenKeSelSebelahKanan() Dim Sel As Range, textCmt As String Dim cAwal As Long, cAkhir As Long, baris As Long For Each Sel In Selection If Not Sel.Comment Is Nothing Then textCmt = Sel.Comment.Text cAwal = 1 Do cAkhir = InStr(cAwal, textCmt, Chr(10)) If cAkhir <> 0 Then Sel.Offset(baris, 1).Value = Mid(textCmt, cAwal, cAkhir - cAwal) Else Sel.Offset(baris, 1).Value = Mid(textCmt, cAwal, Len(textCmt) - cAwal + 1) End If baris = baris + 1 cAwal = cAkhir + 1 Loop Until cAkhir = 0 End If Next End Sub

Cara menggunakan prosedur nomor 2 ini sama dengan nomor 1. Hanya saja disarankan diterapkan per 1 sel. Sehubungan text komentar terdiri dari beberapa baris, maka baris text bisa saling menimpa jika dijalankan pada beberapa baris sel sekaligus.

***

Itulah contoh code macro VBA untuk memindahkan (lebih tepatnya copy paste) dari comment box ke sel.

Jika kamu ada saran/ koreksi / ide mengenai contoh vba. Mimin akan sangat senang jika kamu bisa berbagi via kolom komentar...😎😎😎

Mungkin kamu juga tertarik dengan contoh code macro lainnya:

• Contoh Code Macro Excel untuk Buat dan Hapus Hyperlink
• Contoh Code Macro untuk Display dan Setting Format Comment
• Contoh Code Macro untuk Add dan Close Workbook

Display dan Pengaturan Comment

Ketika bekerja dengan data-data di excel, terkadang kita perlu memberikan catatan - catatan yang menjelaskan data dalam sel. Catatan ini biasanya disimpan dalam sebuah comment box. Comment box biasanya dibuat insert comment dengan cara Klik Kanan ---> Insert Comment ( Istilah "Comment" yang ada dalam excel versi sebelumnya diganti dengan istilah "Note" pada Excel 365). 

Postingan kali ini menampilkan beberapa contoh code VBA terkait bagaimana cara memunculkan (show) comment dan sebaliknya, serta beberapa tehnik untuk setting format comment.

1. Show dan Hide Comment Pada Range Terpilih

Sub lihatSembunyikanKomenPadaRangeTerpilih() Dim Sel As Range Application.ScreenUpdating = False For Each Sel In Selection If Not Sel.Comment Is Nothing Then With Sel.Comment .Visible = Not .Visible End With End If Next Sel Application.ScreenUpdating = True End Sub

2. Memunculkan Comment Pada Range Yang Dapat Dilihat

Sub SembunyiinDanMunculinKomenBoxDalamBatasTerlihat() Dim Sel As Range, c As Comment, rgTerlihat As Range, rgTerlihatRight As Long Application.ScreenUpdating = False For Each Sel In Selection If Not Sel.Comment Is Nothing Then Set c = Sel.Comment If c.Visible = False Then Set rgTerlihat = ActiveWindow.VisibleRange rgTerlihatRight = rgTerlihat.Left + rgTerlihat.Width - 40 c.Shape.Top = Sel.Offset(1, 0).Top c.Shape.Left = Sel.Offset(0, 1).Left + 4 If (c.Shape.Left + c.Shape.Width) > rgTerlihatRight Then c.Shape.Left = rgTerlihatRight - c.Shape.Width + 4 End If c.Visible = True Else c.Visible = False c.Shape.Top = Sel.Offset(0, 0).Top - 7.5 c.Shape.Left = Sel.Offset(0, 1).Left + 11.25 End If End If Next Sel Application.ScreenUpdating = True End Sub

3. Reset Semua Posisi Comment Box

Sub ResetPosisiSemuaCommentBox() Dim Cmt As Comment, Ws As Worksheet Application.ScreenUpdating = False Set Ws = ActiveSheet For Each Cmt In Ws.Comments Cmt.Shape.Top = Cmt.Parent.Top - 7.5 Cmt.Shape.Left = Cmt.Parent.Offset(0, 1).Left + 11.25 Next Application.ScreenUpdating = True End Sub

4. Merubah Font Comment Sekaligus

Sub SetFontSemuaComment() Dim Ws As Worksheet, c As Comment Dim namaFont As String, ukuranFont As Integer Application.ScreenUpdating = False Set Ws = ActiveSheet namaFont = InputBox(Prompt:="Input Nama Jenis Font") ukuranFont = InputBox(Prompt:="Input Ukuran Huruf") For Each c In Ws.Comments With c.Shape.TextFrame.Characters.Font .Name = namaFont .Size = ukuranFont End With Next Application.ScreenUpdating = True End Sub

5. Merubah Bentuk Kotak Komentar Jadi Love

Sub UbahBentukCommentBoxRangeTerpilihJadiLove() Dim Sel As Range Application.ScreenUpdating = False For Each Sel In Selection If Not Sel.Comment Is Nothing Then Sel.Comment.Shape.AutoShapeType = msoShapeHeart End If Next Sel Application.ScreenUpdating = True End Sub

6. Merubah Bentuk Komentar Jadi Oval

Sub UbahBentukCommentBoxRangeTerpilihJadiOval() Dim Sel As Range Application.ScreenUpdating = False For Each Sel In Selection If Not Sel.Comment Is Nothing Then Sel.Comment.Shape.AutoShapeType = msoShapeOval End If Next Sel Application.ScreenUpdating = True End Sub

7. Merubah Bentuk Komentar Jadi Kertas Berlipat

Sub UbahBentukCommentBoxRangeTerpilihJadiKertasBerlipat() Dim Sel As Range Application.ScreenUpdating = False For Each Sel In Selection If Not Sel.Comment Is Nothing Then Sel.Comment.Shape.AutoShapeType = msoShapeFoldedCorner End If Next Sel Application.ScreenUpdating = True End Sub

Itulah beberapa contoh code macro VBA terkait Show/Hide Comment dan Pengaturan Comment Box. dari contoh-contoh tersebut, yang paling berguna menurut Mimin adalah prosedur nomor 2, 3 dan 4,  karena nomor 1 belum menyelesaikan problem ketika comment muncul pada range yang jauh dari jangkauan pandangan layar, bahkan bisa sangat jauh. Sedangkan nomor 5 s/d 7 hanya untuk bersenang-senang saja mencoba hal baru, kenyataannya jarang digunakan.

Menurut kamu, Code yang mana yang paling berguna?

Jika ada tanggapan / saran / koreksi, jangan ragu untuk tinggalkan komentar.

Jika kamu tertarik mengetahui lebih lanjut mengenai contoh code macro VBA Excel, berikut link contoh-contoh lainnya yang mungkin kamu suka.

Contoh Code VBA untuk Buat dan Hapus Hyperlink dengan Cepat

Contoh Code VBA untuk Tambah dan Close Beberapa Workbook Sekaligus

Contoh Code VBA untuk Tambah Worksheet Dengan Berbagai Kriteria

Salam Hangat..😎😎😎