Vba aracılığıyla bir sütunu/satırı nasıl gizleyebilirim/gösterebilirim?

VBA’nın gizli özelliği

VBA kullanarak Excel’de bir sütunu veya satırı gizlemek/göstermek için “Gizli” özelliğini kullanabilirsiniz. Bu özelliği kullanmak için aralık nesnesini kullanarak sütunu veya satırı belirtmeniz ve ardından DOĞRU/YANLIŞ’ı belirtmeniz gerekir.

1. Aralık nesnesini kullanarak sütunu veya satırı belirtin.
2. Bundan sonra, satırın veya sütunun tamamına başvurmak için sütun/satır özelliğinin tamamını kullanın.
3. Daha sonra gizli özelliğini kullanın.
4. Sonunda doğru/yanlış değerini belirtin.

İşte dikkate alınması gereken örnek:

 Sub vba_hide_row_columns() 'hide the column A Range("A:A").EntireColumn.Hidden = True 'hide the row 1 Range("1:1").EntireRow.Hidden = True End Sub

Yukarıdaki kodda A sütununu ve 1. satırı gizlemek için gizli özelliğini kullandık. İşte bunları gösterecek kod.

 Sub vba_hide_row_columns() 'unhide the column A Range("A:A").EntireColumn.Hidden = False 'unhide the row 1 Range("1:1").EntireRow.Hidden = False End Sub

Birden çok satırı ve sütunu Gizle/Göster VBA

 Sub vba_hide_row_columns() 'hide the column A to c Range("A:C").EntireColumn.Hidden = True 'hide the row 1 to 4 Range("1:4").EntireRow.Hidden = True End Sub

Ve benzer şekilde, birden fazla satır ve sütun görüntülemek istiyorsanız.

 Sub vba_hide_row_columns() 'hide the column A to c Range("A:C").EntireColumn.Hidden = False 'hide the row 1 to 4 Range("1:4").EntireRow.Hidden = False End Sub

Tüm sütunları ve satırları gizle

 Sub vba_hide_row_columns() 'hide the column A Columns.EntireColumn.Hidden = True 'hide the row 1 Rows.EntireRow.Hidden = True End Sub

Tüm sütunları ve satırları göster

 Sub vba_hide_row_columns() 'unhide all the columns Columns.EntireColumn.Hidden = False 'unhide all the rows Rows.EntireRow.Hidden = False End Sub

Başka bir çalışma sayfasında sütunları ve satırları Gizle/Göster

 Sub vba_hide_row_columns() 'hide all columns in the sheet 1 Worksheets("Sheet1").Columns.EntireColumn.Hidden = False 'hide all rows in the sheet 1 Worksheets("Sheet1").Rows.EntireRow.Hidden = False End Sub