VBA Sembunyikan Kolom

Excel VBA Sembunyikan Kolom

Menyembunyikan adalah 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 Tersembunyi 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.

Anda dapat mengunduh Template Excel Sembunyikan Kolom VBA ini di sini - Template VBA Sembunyikan Kolom Excel

Contoh # 1 - Sembunyikan menggunakan Range Object

Jika Anda ingin menyembunyikan kolom tertentu maka 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 kode tersebut 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. Untuk itu perlu kita sebutkan kolom pertama dan terakhir, sehingga kolom di antara 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 dapat 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 harus bisa menyembunyikan 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.

Kita perlu menyembunyikan setiap kolom alternatif yang kosong. Agar ini terjadi, kita perlu menggunakan loop, kode di bawah ini akan melakukan pekerjaan untuk kita.

Kode:

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

Now we will see how to hide column based on the cell value. For an example look at the below data.

Here I want to hide all the columns if the heading is “No”. Below code will do it for me.

Code:

 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 

When you run the code you will get the result as follows.