Excel VBA Sembunyikan Lajur
Menyembunyikan adalah perkara yang mudah, tetapi anda perlu memahami konsepnya di sini. Untuk menyembunyikan lajur menggunakan VBA, kita perlu menentukan lajur mana yang perlu kita sembunyikan. Untuk menentukan lajur yang akan disembunyikan, kita perlu menggunakan objek RANGE.
Julat ("A: A")
Maka kita perlu menggunakan Properti "Seluruh Lajur."
Julat ("A: A"). Seluruh Kolom
Di seluruh lajur harta tanah, kita perlu menggunakan harta "Tersembunyi".
Julat ("A: A"). Seluruh Kolom. Tersembunyi
Kemudian, akhirnya, kita perlu menetapkan harta Tersembunyi menjadi BENAR.
Julat ("A: A"). Keseluruhan Kolumn.Hidden = BENAR
Ini akan menyembunyikan lajur A.
Bagaimana Menyembunyikan Lajur di VBA?
Kita boleh menyembunyikan lajur dengan beberapa cara. Kita dapat menyembunyikan lajur dengan menggunakan objek Range dengan menggunakan properti CELLS. Berdasarkan kaedah yang kami gunakan, kami perlu membina kod VBA kami.
Contoh # 1 - Sembunyikan menggunakan Range Object
Sekiranya anda ingin menyembunyikan lajur tertentu, maka tentukan lajur di dalam objek RANGE. Lihat data di bawah.
Sekarang kita akan menyembunyikan keseluruhan lajur A menggunakan kod berikut.
Kod:
Sub Range_Hide () Range ("A: A"). SeluruhColumn.Hidden = Sub End True
Oleh itu, apabila kita menjalankan kod, kita akan mendapat hasil berikut.
Contoh # 2 - Sembunyikan menggunakan Lajur Harta
Sekiranya anda ingin menyembunyikan lajur menggunakan sifat Lajur, maka kod di bawah adalah untuk anda.
Kod:
Sub Rentang_Sembunyikan () Lajur ("B"). Tersembunyi = Sub Akhir Benar
Ini akan menyembunyikan lajur B. Di sini anda mesti memikirkan di mana harta Seluruh Lajur. Apabila anda menggunakan harta tanah Lajur, tidak perlu menggunakan harta Seluruh Lajur.
Kami masih boleh menggunakan harta Seluruh Lajur tetapi tidak semestinya diperlukan. Dan kod untuk yang sama diberikan di bawah.
Kod:
Sub Lajur_Sembunyikan () Lajur ("B"). SeluruhColumn.Hidden = Sub Akhir Benar
Ini juga mesti berfungsi dengan baik.
Kita juga boleh menggunakan nombor lajur dan bukannya rujukan abjad. Dan kod untuk yang sama diberikan di bawah.
Kod:
Sub Lajur_Sembunyikan () Lajur (4) .EntireColumn.Hidden = Sub Akhir Benar
Ini akan menyembunyikan Lajur D.
Contoh # 3 - Sembunyikan Beberapa Lajur
Kita juga dapat menyembunyikan banyak lajur dalam satu masa. Kita perlu menyebut lajur pertama dan terakhir supaya di antara lajur juga tersembunyi. Untuk data yang sama seperti contoh # 1, gunakan kod berikut untuk menyembunyikan banyak lajur.
Kod:
Sub Lajur_Hide () Julat ("A: C"). SeluruhColumn.Hidden = Sub Akhir Benar
Ini akan menyembunyikan lajur A hingga C.
Kita boleh menggunakan kod berikut juga untuk menyembunyikan banyak lajur di Excel VBA.
Kod:
Sub Multi_Columns_Hide () Columns ("A: C"). SeluruhColumn.Hidden = Sub End True
Kaedah di atas akan menyembunyikan tiga lajur pertama iaitu, A, B, dan C.
Contoh # 4 - Sembunyikan Lajur dengan Sel Tunggal
Kita juga dapat menyembunyikan lajur berdasarkan rujukan sel tunggal. Kami tidak perlu memberikan rujukan lajur penuh untuk menyembunyikan lajur. Dengan hanya satu rujukan sel, kita seharusnya dapat menyembunyikan lajur.
Kod:
Sub Single_Hide () Julat ("A5"). SeluruhColumn.Hidden = Sub Akhir Benar
Ini akan menyembunyikan keseluruhan lajur A.
Contoh # 5 - Sembunyikan Setiap Lajur Alternatif
Andaikan anda mempunyai data, seperti gambar di bawah.
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 lajur berdasarkan nilai sel. Contohnya, lihat data di bawah.
Di sini saya ingin menyembunyikan semua lajur jika tajuknya adalah "Tidak." Kod di bawah akan melakukannya untuk saya.
Kod:
Sub Lajur_Hide_Cell_Value () Dim k Sebagai Integer Untuk k = 1 Hingga 7 Jika Sel (1, k). Nilai = "Tidak" Kemudian Lajur (k). Tersembunyi = Benar Hujung Jika Selanjutnya k Akhir Sub
Apabila anda menjalankan kod, anda akan mendapat hasilnya seperti berikut.
