Note: The other languages of the website are Google-translated. Back to English

Bagaimana cara menyembunyikan baris secara otomatis jika sel kosong di kolom?

Jika Anda memiliki rentang data yang mengisi beberapa sel kosong di kolom, dan sekarang, Anda ingin menyembunyikan baris yang berisi sel kosong di kolom tersebut secara otomatis. Apakah ada cara yang baik untuk menyelesaikan pekerjaan ini di Excel dengan cepat dan mudah?

Otomatis sembunyikan baris jika sel kosong di kolom dengan kode VBA


panah gelembung kanan biru Otomatis sembunyikan baris jika sel kosong di kolom dengan kode VBA

Kode berikut dapat membantu Anda menyembunyikan semua baris jika sel kosong di kolom tertentu sekaligus, dan jika Anda menghapus konten sel di kolom itu, baris juga akan disembunyikan secara otomatis. Harap lakukan sebagai berikut:

1. Klik kanan pada tab lembar yang ingin Anda sembunyikan baris secara otomatis jika ada sel kosong dalam kolom, lalu pilih Lihat kode dari menu konteks, di-pop-out Microsoft Visual Basic untuk Aplikasi jendela, harap salin dan tempel kode berikut ke dalam kolom kosong Modul:

Kode VBA: Otomatis sembunyikan baris jika sel kosong di kolom:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    Dim xRg As Range
    Application.ScreenUpdating = False
        For Each xRg In Range("A1:A20")
            If xRg.Value = "" Then
                xRg.EntireRow.Hidden = True
        
            Else
                xRg.EntireRow.Hidden = False
            End If
        Next xRg
    Application.ScreenUpdating = True
End Sub

doc otomatis menyembunyikan baris 1

Note: Pada kode di atas, A1: A20 adalah daftar data yang berisi sel kosong yang ingin Anda sembunyikan otomatis.

2. Lalu kembali ke lembar kerja, dan sekarang, saat Anda mengklik ganda sel mana pun dan menekan Enter key, baris yang berisi sel kosong di kolom A telah disembunyikan sekaligus, dan jika Anda menghapus konten sel apa pun di sel tertentu dari kolom A, baris tersebut akan disembunyikan secara otomatis.

doc otomatis menyembunyikan baris 2

 


Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2021 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap Uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah

 

Urutkan komentar berdasarkan
komentar (32)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Hai, saya menggunakan excel 2016 dan tidak berfungsi. Saya mendapatkan pesan kesalahan sintaksis. Bisakah kamu menolong?
Komentar ini diminimalkan oleh moderator di situs
Halo, Semut,

Kode di atas berfungsi dengan baik di Excel 2016 saya, sudahkah Anda mengubah referensi sel dalam kode sesuai kebutuhan Anda?
Komentar ini diminimalkan oleh moderator di situs
Saya mendapatkan kesalahan Run-time 13:



Jenis tidak cocok



Seseorang yang dapat membantu???
Komentar ini diminimalkan oleh moderator di situs
Bisakah saya menghentikan makro ini agar tidak berjalan secara otomatis setelah menekan enter? Bisakah saya melampirkannya ke tombol untuk hanya menyembunyikan sel ketika saya mengklik?
Komentar ini diminimalkan oleh moderator di situs
apakah ada yang pernah memikirkan ini? Saya juga ingin tahu.
Komentar ini diminimalkan oleh moderator di situs
ada yang udah nemuin jawabannya belum?
Komentar ini diminimalkan oleh moderator di situs
pertanyaan yang sama disini
Komentar ini diminimalkan oleh moderator di situs
Hallo teman-teman,
Untuk menyembunyikan baris yang kolom tertentu berisi sel kosong dengan menggunakan tombol, lakukan seperti ini:
Pertama, Anda harus memasukkan Tombol Perintah dari tab Pengembang.
Dan kemudian terapkan kode VBA berikut untuk Tombol Perintah, (Catatan: silakan ubah referensi sel a1:a20 menjadi milik Anda sendiri)

Sub CommandButton1_Click Pribadi ()
Redupkan Sebagai Rentang, x Sebagai Rentang
Atur rng = Range("a1:a20")
Application.ScreenUpdating = Salah
Untuk Setiap x Dalam rng
Jika Len(x.Teks) = 0 Maka
x.EntireRow.Hidden = Benar
Lain
x.EntireRow.Hidden = Salah
End If
X berikutnya
Application.ScreenUpdating = Benar
End Sub

Silakan dicoba, semoga bisa membantu Anda!
Komentar ini diminimalkan oleh moderator di situs
cara menyembunyikan baris secara otomatis jika sel kosong di 2 kolom berbeda dengan kode VBA
Komentar ini diminimalkan oleh moderator di situs
Hai, salpe,
Untuk menyembunyikan baris jika sel kosong di 2 kolom berbeda secara otomatis, silakan terapkan kode berikut:

Sub Lembar Kerja Pribadi_Rubah (Rentang Target As ByVal)
Redupkan xRg, xCell Sebagai Rentang
Redupkan xRgs, xRgArea Sebagai Rentang
Tetapkan xRgs = Range("A1:A22,D1:D22")
Application.ScreenUpdating = Salah
Pada Kesalahan GoTo Ctn
Untuk Setiap xRgArea Dalam xRgs.Area
Debug.Cetak xRgArea.Address
Untuk Setiap xRg Dalam xRgArea.Columns
Untuk Setiap xCell Dalam xRg.Rows
Jika xCell.Value = "" Maka
xCell.EntireRow.Hidden = Benar
Pergi Ke Ctn
LainJika Bukan xCell.EntireRow.Hidden Then
xCell.EntireRow.Hidden = Salah
End If
ctn:
Next
Next
Next
Application.ScreenUpdating = Benar
End Sub

Anda dapat mengubah referensi sel sesuai kebutuhan Anda.
Silakan coba!
Komentar ini diminimalkan oleh moderator di situs
الله اكم الله ا ا الكود ائع لكن الصف الشيت لة ا ا العمل؟
Komentar ini diminimalkan oleh moderator di situs
Saya ingin tahu apakah kode akan berfungsi Jika sel kosong karena Formula?
Komentar ini diminimalkan oleh moderator di situs
Halo, ACHINTA,
Kode VBA di atas juga diterapkan pada sel kosong hasil rumus, Anda bisa mencobanya, terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Rumus berfungsi untuk menyembunyikan sel berdasarkan informasi, di awal, tetapi tidak mengungkapkan kembali sel jika kontennya berubah. Saya ingin itu mengungkapkan sel baru yang telah diisi dengan informasi (yang terjadi melalui pencarian sel). Bagaimana cara melakukannya?
Komentar ini diminimalkan oleh moderator di situs
Baik dia, ini juga membutuhkannya.

Preciso occultar and quando a cell for preenchida (menggunakan formula que preenche a mesma se houver valor em outra planilha) seja reexibida ke linha novamente de forma automática.

Bersyukur.
Komentar ini diminimalkan oleh moderator di situs
Yang saya inginkan adalah sesuatu seperti ini berfungsi di lembar aktif:

Jika sel D2:D55 = ""
Kemudian Sembunyikan.Seluruh Baris

Jika sel D2:D55 = "memiliki nilai apa pun"
Kemudian Tampilkan. Seluruh Baris

Bagaimana?
Komentar ini diminimalkan oleh moderator di situs
Halo, Kacha, Anda hanya perlu mengubah referensi sel dalam kode ke rentang sel Anda sendiri seperti di bawah ini: Sub Worksheet_Change Pribadi (Target ByVal Sebagai Rentang)
'Perbarui oleh Extendoffice
Redupkan xRg Sebagai Rentang
Application.ScreenUpdating = Salah
Untuk Setiap xRg Dalam Rentang("D2:D55")
Jika xRg.Value = "" Maka
xRg.EntireRow.Hidden = Benar

Lain
xRg.EntireRow.Hidden = Salah
End If
xRg berikutnya
Application.ScreenUpdating = Benar
End SubSetelah memasukkan kode, harap ingat untuk mengklik dua kali sel mana saja dan tekan tombol Enter untuk membuat kode berlaku.
Komentar ini diminimalkan oleh moderator di situs
Apa cara paling sederhana untuk membatalkan sembunyikan otomatis?
Komentar ini diminimalkan oleh moderator di situs
Hai, mình có dùng 2 kode kuat 1 file excel (1 kode là của bạn) với mục đích in ra những bản riêng biệt và không bị thừa dòng trống. Khi mình n in từng bản thì ok nhưng nếu in 1 loạt thì code Sembunyikan không có tác dụng, bạn xem giúp mình với nhé, mình cảm ơn!

Sub PRINT_PRINT()
Redupkan Sebagai Rentang, x Sebagai Rentang
Atur rng = Range("a16:a23")
Application.ScreenUpdating = Salah
Untuk Setiap x Dalam rng
Jika Len(x.Teks) = 0 Maka
x.EntireRow.Hidden = Benar
Lain
x.EntireRow.Hidden = Salah
End If
X berikutnya
Application.ScreenUpdating = Benar


Redupkan p1, p2, i&
p1 = Sheet1.Range("O1").Nilai
p2 = Sheet1.Range("O2").Nilai
Jika IsNumeric(p1) = Salah Atau IsNumeric(p2) = Salah Kemudian
tb = MsgBox("Jadi kode phai la so.", , "Thông báo")
Keluar dari Sub
End If
Jika p1 > p2 Maka
tb = MsgBox("Jadi kode sau phai >= jadi kode truoc.", , "Thông báo")
Keluar dari Sub
End If
Jika p1 < 1 Atau p2 < 1 Maka
tb = MsgBox("Jadi kode phai >= 1.", , "Thông báo")
Keluar dari Sub
End If
Jika p1 <= p2 Maka
Untuk i = p1 Ke p2
Sheet1.Range("M2").Nilai = i
Lembar1.Cetak Keluar
Next
End If
End Sub
Komentar ini diminimalkan oleh moderator di situs
Hola,Necesito crear una macro que me oculte una columna.Sería así: en la primera fila poner un 1 a las columnas que no quiero ocultar y no poner ningún valor a las columnas que quiero ocultar y no poner ningún valor a las columnas que quiero ocultar. Estoy haciendo el siguiente código, pero no se en que fallo:
Sub OcultarColumnaSin1()
Application.ScreenUpdating = Salah
Untuk Setiap Rango Di Kolom
Jika rango = "" Maka
rango.EntireColumn.Hidden = Benar
Lain
rango.EntireColumn.Hidden = Salah
End If
Rango berikutnya
Application.ScreenUpdating = Benar
End Sub
Komentar ini diminimalkan oleh moderator di situs
Ini berfungsi dengan baik untuk saya, Ini menyembunyikan baris dan membukanya ketika nilai saya berubah berdasarkan rumus. Pertanyaan yang saya miliki adalah lembar saya panjangnya 104 baris. Itu berputar sedikit setiap kali saya mengklik sel. Adakah cara untuk mempercepat transisi saat diaktifkan? Atau komputer saya? Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Saya ingin menyembunyikan baris secara otomatis jika kolom E kosong atau 0
Komentar ini diminimalkan oleh moderator di situs
Jika nilai di kolom E kosong atau 0 saya ingin baris tersebut disembunyikan secara otomatis. Jika nilai dalam E berubah menjadi sesuatu selain kosong atau 0 saya ingin itu ditampilkan. Laporan adalah 1500 baris
Komentar ini diminimalkan oleh moderator di situs
Halo, Caty,
Untuk menyembunyikan baris secara otomatis berdasarkan sel kosong atau nilai 0, silakan gunakan kode vba di bawah ini:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    Dim xRg As Range
    Application.ScreenUpdating = False
        For Each xRg In Range("E1:E1500")
            If (xRg.Value = "") Or (xRg.Value = "0") Then
                xRg.EntireRow.Hidden = True
            Else
                xRg.EntireRow.Hidden = False
            End If
        Next xRg
    Application.ScreenUpdating = True
End Sub


Silakan dicoba, semoga bisa membantu Anda!
Komentar ini diminimalkan oleh moderator di situs
Bagaimana cara menyembunyikan baris yang berisi kotak centang?
Komentar ini diminimalkan oleh moderator di situs
Halo, Sweta

Untuk menyembunyikan baris dengan kotak centang, artikel di bawah ini mungkin membantu Anda:
Bagaimana Menyembunyikan Kotak Centang Saat Baris Tersembunyi Di Excel?

Silahkan dicoba, jika masih ada pertanyaan lain, silahkan berkomentar disini.
Komentar ini diminimalkan oleh moderator di situs
Saat mengeksekusi kode di office 2013/2019/2021 itu berfungsi tetapi membutuhkan terlalu banyak waktu untuk menyelesaikannya (hanya 95 baris untuk disembunyikan).
Bagaimana Anda bisa mempercepat ini?
Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Hai, Asaf,
Kode berfungsi dengan baik di file Excel saya, dapatkah Anda mengunggah buku kerja lampiran Anda di sini jika Anda tidak keberatan? Sehingga kami dapat membantu untuk memeriksa masalah tersebut.

Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
apakah ada rumus lain?, saya berharap baris kosong itu akan terhapus saat mencetak file menjadi PDF tapi tampilan di excelnya tetap
Komentar ini diminimalkan oleh moderator di situs
Halo, Nurjanah
Untuk mengatasi masalah Anda, pertama-tama, Anda harus menyembunyikan baris kosong, lalu mencetak data, setelah mencetak data, Anda perlu memunculkan kembali baris kosong. Silakan lakukan seperti ini:
1. Terapkan rumus ini: =COUNTA(A2:E2) di samping data Anda, lihat tangkapan layar:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-hide-blanks-1.png
2. Kemudian, filter kolom kosong pembantu baru, sembunyikan semua baris nilai 0, lihat tangkapan layar:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-hide-blanks-2.png
3. Dan kemudian, Anda harus menyembunyikan kolom Kosong yang baru, dan mencetak data, setelah mencetak lembar kerja, harap batalkan filter untuk menampilkan baris kosong yang Anda butuhkan.
Silakan dicoba, semoga bisa membantu Anda!
Komentar ini diminimalkan oleh moderator di situs
Hai, saya mengalami masalah dengan "otomatisasi" makro. Saya sedang mencari cara agar kode berfungsi sebagai proses otomatis tanpa perlu "secara manual" menjalankan makro. saya telah menggunakan varian saya sendiri dari kode Anda karena saya menemukan masalah untuk menggunakan kode Anda. Ini varian saya:

Sub HideRows()
Redupkan xRg Sebagai Rentang
Application.ScreenUpdating = Salah
Untuk Setiap xRg Dalam Jangkauan("A3:A800")
Jika (xRg.Value = "") Lalu
xRg.EntireRow.Hidden = Benar
Lain
xRg.EntireRow.Hidden = Salah
End If
xRg berikutnya
Application.ScreenUpdating = Benar
End Sub

Saya mencoba membuat spreadsheet yang membutuhkan nilai yang selalu berubah, oleh karena itu akan membutuhkan proses "otomatis" yang asli. Saya relatif baru di VBA dan jika kode Anda sebenarnya sudah memenuhi persyaratan saya, maukah Anda membantu/mengajari saya untuk menerapkannya di VBA? Terima kasih.
Komentar ini diminimalkan oleh moderator di situs
Halo, Via
Padahal, kode di artikel kita bisa dijalankan secara otomatis.
Anda harus menyalin dan menempelkan kode ke modul kode lembar kerja saat ini, lalu kembali ke lembar kerja, klik dua kali sel mana saja, dan tekan tombol Enter kunci, baris yang berisi sel kosong akan langsung disembunyikan.

Silakan ikuti cara dalam artikel ini langkah demi langkah, semoga dapat membantu Anda!
Terima kasih!
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL