Excel VBA Sütunları Gizle
Saklamak basit bir şey, ancak buradaki kavramı anlamanız gerekiyor. Sütunu VBA kullanarak gizlemek için hangi sütunu gizlememiz gerektiğini belirlememiz gerekir. Gizlenecek sütunu belirtmek için RANGE nesnesini kullanmamız gerekir.
Aralık ("A: A")
O zaman "Tüm Sütun" özelliğini kullanmamız gerekir.
Aralık ("A: A"). EntireColumn
Tüm sütun özelliğinde "Gizli" özelliğini kullanmamız gerekir.
Aralık ("A: A"). EntireColumn.Hidden
Ardından, sonunda Gizli özelliğini TRUE olarak ayarlamamız gerekiyor.
Aralık ("A: A"). EntireColumn.Hidden = TRUE
Bu, A sütununu gizleyecektir.
VBA'da Sütunlar Nasıl Gizlenir?
Sütunları birkaç şekilde gizleyebiliriz. CELLS özelliğini kullanarak bir Range nesnesi kullanarak bir sütunu gizleyebiliriz. Kullandığımız yönteme göre VBA kodumuzu oluşturmamız gerekiyor.
Örnek 1 - Aralık Nesnesini kullanarak gizleme
Belirli bir sütunu gizlemek istiyorsanız, RANGE nesnesinin içindeki sütunu belirtin. Aşağıdaki verilere bakın.
Şimdi aşağıdaki kodu kullanarak tüm A sütununu gizleyeceğiz.
Kod:
Sub Range_Hide () Aralık ("A: A"). EntireColumn.Hidden = True End Sub
Yani kodu çalıştırdığımızda aşağıdaki sonucu alacağız.
Örnek 2 - Sütunlar Özelliğini Kullanarak Gizleme
Sütun özelliğini kullanarak sütunu gizlemek istiyorsanız aşağıdaki kod tam size göre.
Kod:
Sub Range_Hide () Sütunlar ("B"). Hidden = True End Sub
Bu B sütununu gizleyecektir. Burada Tüm Sütun özelliğinin nerede olduğunu düşünmelisiniz. Sütunlar özelliğini kullandığınızda, Tüm Sütun özelliğini kullanmanız gerekmez.
Tüm Sütun özelliğini yine de kullanabiliriz, ancak gerekli değildir. Ve aynı kod aşağıda verilmiştir.
Kod:
Sub Columns_Hide () Sütunlar ("B"). EntireColumn.Hidden = True End Sub
Bu da iyi çalışmalı.
Alfabetik referans yerine sütun numarasını da kullanabiliriz. Ve aynı kod aşağıda verilmiştir.
Kod:
Sub Columns_Hide () Columns (4) .EntireColumn.Hidden = True End Sub
Bu, Sütun D'yi gizleyecektir.
Örnek 3 - Birden Çok Sütunu Gizleme
Aynı anda birden fazla sütunu gizleyebiliriz. İlk ve son sütundan bahsetmemiz gerekir, böylece sütunlar arasında da gizlenmiş olur. Örnek 1 ile aynı veriler için, birden çok sütunu gizlemek için aşağıdaki kodu kullanın.
Kod:
Sub Columns_Hide () Aralık ("A: C"). EntireColumn.Hidden = True End Sub
Bu, A'dan C'ye kadar olan sütunları gizleyecektir.
Excel VBA'da birden çok sütunu gizlemek için aşağıdaki kodu da kullanabiliriz.
Kod:
Alt Multi_Columns_Hide () Sütunlar ("A: C"). EntireColumn.Hidden = True End Sub
Yukarıdaki yöntemler ilk üç sütunu, yani A, B ve C'yi gizleyecektir.
Örnek 4 - Tek Hücreli Sütunları Gizleme
Tek bir hücre referansına göre bir sütunu da gizleyebiliriz. Sütunu gizlemek için tam sütun referansı vermemize gerek yok. Sadece tek bir hücre referansı ile bir sütunu gizleyebilmeliyiz.
Kod:
Alt Single_Hide () Aralık ("A5"). EntireColumn.Hidden = True End Sub
Bu, A sütununun tamamını gizleyecektir.
Örnek 5 - Her Alternatif Sütunu Gizle
Verileriniz olduğunu varsayalım, aşağıdaki resim gibi.
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
Şimdi hücre değerine göre sütunların nasıl gizleneceğini göreceğiz. Örneğin, aşağıdaki verilere bakın.
Başlık "Hayır" ise burada tüm sütunları gizlemek istiyorum. Aşağıdaki kod bunu benim için yapacak.
Kod:
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
Kodu çalıştırdığınızda sonucu aşağıdaki gibi alacaksınız.
