- 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
Selasa, 07 Desember 2021
Cek Validitas Hyperlink Internal
Senin, 06 Desember 2021
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.
Atau bisa juga menggunakan contoh berikut:
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:
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:
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:
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.
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...😎😎😎
Minggu, 05 Desember 2021
Cara Mengisi Sel Kosong
- 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
- Isi sel kosong dengan angka Nol
- Isi sel kosong dengan data dari sel sebelah atasnya
1. Mengisi Sel Kosong dengan Angka Nol
- 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)
2. Mengisi Sel Kosong dengan Data yang Sama dari Sel di Atasnya
- Pilih range yang ingin diisi bagisn sel kosongnya
- Jalankan macro (misalnya melalui tab Developer ⇨ Macros ⇨ pilih Macro yang sesuai ⇨ Run)
Sabtu, 04 Desember 2021
Sisip Kolom Sekaligus
1. Sisip Satu Kolom di Samping Kiri Setiap Kolom Tertentu
- 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
3. Sisip Beberapa Kolom di Samping Kiri Setiap Kolom Tertentu
- 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
Jumat, 03 Desember 2021
Menghapus Kolom Kosong Sekaligus
1. Hapus Semua Kolom Kosong Dalam Range Terpakai
2. Hapus Semua Kolom Kosong Dalam Range Terpilih
3 Hapus Kolom Berdasarkan Kolom Kosong dalam Range Terpilih
Kamis, 02 Desember 2021
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
Sisip Satu Baris Penuh Diatas Setiap Sel Berisi Text Tertentu
Sisip Beberapa Baris Penuh Diatas Setiap Sel Berisi Text Tertentu
Sisip Beberapa Baris Penuh Dibawah Setiap Sel Berisi Text Tertetu
Rabu, 01 Desember 2021
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
2. Menghapus Semua Baris Kosong dalam Range Terpilih
3. Menghapus Baris Berdasarkan Baris Kosong dalam Range Terpilih
***
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 ..😎😎😎
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 . ...
-
Halo sobat, kali ini mimin akan berbagi contoh code macro vba untuk Protect dan Unprotect Worksheet Sekaligus Pada Microsoft Excel . ...
-
Menyembunyikan sheet diperlukan jika kamu menginginkan beberapa data tidak terlihat dan dirubah oleh user / kolega anda. Contoh - contoh kod...
-
Ketika bekerja dengan data-data di excel, terkadang kita perlu memberikan catatan - catatan yang menjelaskan data dalam sel. Catatan in...