Excel VBA Sembunyikan Kolom
Menyembunyikan itu hal yang sederhana, tetapi Anda perlu memahami konsepnya di sini. Untuk menyembunyikan kolom menggunakan VBA, kita perlu menentukan kolom mana yang perlu kita sembunyikan. Untuk menentukan kolom yang akan disembunyikan, kita perlu menggunakan objek RANGE.
Rentang ("A: A")
Kemudian kita perlu menggunakan Properti "Seluruh Kolom".
Rentang ("A: A"). Seluruh Kolom
Di seluruh properti kolom, kita perlu menggunakan properti "Tersembunyi".
Rentang ("A: A"). Seluruh Kolom.Hidden
Kemudian, akhirnya, kita perlu menyetel properti Hidden ke TRUE.
Rentang ("A: A"). Seluruh Kolom.Hidden = TRUE
Ini akan menyembunyikan kolom A.
Bagaimana cara menyembunyikan kolom di VBA?
Kami dapat menyembunyikan kolom dengan beberapa cara. Kita bisa menyembunyikan kolom dengan menggunakan objek Range dengan menggunakan properti CELLS. Berdasarkan metode yang kami gunakan, kami perlu membuat kode VBA kami.
Contoh # 1 - Sembunyikan menggunakan Range Object
Jika Anda ingin menyembunyikan kolom tertentu, tentukan kolom di dalam objek RANGE. Lihat data di bawah ini.
Sekarang kita akan menyembunyikan seluruh kolom A menggunakan kode berikut.
Kode:
Sub Range_Hide () Range ("A: A"). Seluruh Kolom.Hidden = True End Sub
Jadi ketika kita menjalankan kodenya, kita akan mendapatkan hasil sebagai berikut.
Contoh # 2 - Sembunyikan menggunakan Properti Kolom
Jika Anda ingin menyembunyikan kolom menggunakan properti Kolom, maka kode di bawah ini untuk Anda.
Kode:
Sub Range_Hide () Kolom ("B") Tersembunyi = True End Sub
Ini akan menyembunyikan kolom B. Di sini Anda harus berpikir di mana properti Seluruh Kolom berada. Saat Anda menggunakan properti Kolom, tidak perlu menggunakan properti Seluruh Kolom.
Kami masih dapat menggunakan properti Seluruh Kolom tetapi tidak selalu diperlukan. Dan kode yang sama diberikan di bawah ini.
Kode:
Sub Columns_Hide () Columns ("B"). Keseluruhan Kolom.Hidden = Sub True End
Ini juga harus bekerja dengan baik.
Kita bisa menggunakan nomor kolom juga sebagai pengganti referensi alfabet. Dan kode yang sama diberikan di bawah ini.
Kode:
Sub Columns_Hide () Columns (4) .EntireColumn.Hidden = True End Sub
Ini akan menyembunyikan Kolom D.
Contoh # 3 - Sembunyikan Beberapa Kolom
Kami juga dapat menyembunyikan beberapa kolom sekaligus. Kita perlu menyebutkan kolom pertama dan terakhir agar di antara kolom juga akan disembunyikan. Untuk data yang sama seperti contoh # 1, gunakan kode berikut untuk menyembunyikan beberapa kolom.
Kode:
Sub Columns_Hide () Range ("A: C"). Keseluruhan Kolom.Hidden = Sub True End
Ini akan menyembunyikan kolom A ke C.
Kita bisa menggunakan kode berikut juga untuk menyembunyikan banyak kolom di Excel VBA.
Kode:
Sub Multi_Columns_Hide () Columns ("A: C"). Keseluruhan Kolom.Hidden = True End Sub
Metode di atas akan menyembunyikan tiga kolom pertama yaitu, A, B, dan C.
Contoh # 4 - Sembunyikan Kolom dengan Sel Tunggal
Kami juga dapat menyembunyikan kolom berdasarkan referensi sel tunggal. Kami tidak perlu memberikan referensi kolom lengkap untuk menyembunyikan kolom. Dengan hanya satu referensi sel, kita bisa menyembunyikan sebuah kolom.
Kode:
Sub Single_Hide () Range ("A5") Keseluruhan Kolom.Hidden = True End Sub
Ini akan menyembunyikan seluruh kolom A.
Contoh # 5 - Sembunyikan Setiap Kolom Alternatif
Asumsikan Anda memiliki data, seperti gambar di bawah ini.
We need to hide every alternative column, which is blank. We need to use loops; the below code will do the job for us.
Code:
Sub AlternativeColumn_Hide() Dim k As Integer For k = 1 To 7 Cells(1, k + 1).EntireColumn.Hidden = True k = k + 1 Next k End Sub
This will hide every alternate column.
Example #6 - Hide Every Empty Column
In the previous example, every other alternative column was blank; we have hidden easily. But look at the below data.
Here empty columns pattern is not standard. In these cases, the below code will hide all the empty columns. It doesn’t matter what the pattern is.
Code:
Sub Column_Hide1() Dim k As Integer For k = 1 To 11 If Cells(1, k).Value = "" Then Columns(k).Hidden = True End If Next k End Sub
When you run the code, you will get the result as follows.
Example #7 - Hide Columns Based On Cell Value
Sekarang kita akan melihat cara menyembunyikan kolom berdasarkan nilai sel. Misalnya, lihat data di bawah ini.
Di sini saya ingin menyembunyikan semua kolom jika judulnya adalah "Tidak." Kode di bawah ini akan melakukannya untuk saya.
Kode:
Sub Column_Hide_Cell_Value () Dim k As Integer For k = 1 To 7 If Cells (1, k) .Value = "No" Then Columns (k) .Hidden = True End If Next k End Sub
Saat Anda menjalankan kode, Anda akan mendapatkan hasil sebagai berikut.
