snasui.com ยินดีต้อนรับ ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ ระบุ Version ของ Excel
Sub HideRows()
Dim cell As Range
Dim AllCell As Range
With Sheets("Sheet1")
Set AllCell = .Range("A1", .Range( _
"A" & Rows.Count).End(xlUp))
End With
For Each cell In AllCell
If cell = 0 Then
cell.EntireRow.Hidden = True
End If
Next
End Sub
Sub HideColumns()
Dim cell As Range
Dim AllCell As Range
With Sheets("Sheet1")
Set AllCell = .Range("A1", .Range( _
"A" & Columns.Count).End(xlLeft))
End With
For Each cell In AllCell
If cell = 0 Then
cell.EntireColumn.Hidden = True
End If
Next
End Sub