aiquocxp
Thành viên mới
- Tham gia
- 15/9/08
- Bài viết
- 46
- Được thích
- 11
Em vừa tìm được đoạn sao để ẩn dòng hay cột. Xin anh em chỉ giúp cách viết để hiện lại các dòng hay cột đã ẩn
Option Explicit
Sub HideColumnsOrRows()
Dim Rng As Range, Cot As String
1 Set Rng = Application.InputBox("Hay Chon Khoi Cac Dong Hay Cot Can An:", _
"GPE.COM", Type:=8)
2 Cot = InputBox("Ban An D Dong Hay C Cot:", "GPE.COM", "D")
If UCase$(Cot) = "D" Then
Rng.EntireRow.Hidden = True
Else
Rng.EntireColumn.Hidden = True
End If
End Sub
Option Explicit
Sub HideColumnsOrRows()
Dim Rng As Range, Cot As String
1 Set Rng = Application.InputBox("Hay Chon Khoi Cac Dong Hay Cot Can An:", _
"GPE.COM", Type:=8)
2 Cot = InputBox("Ban An D Dong Hay C Cot:", "GPE.COM", "D")
If UCase$(Cot) = "D" Then
Rng.EntireRow.Hidden = True
Else
Rng.EntireColumn.Hidden = True
End If
End Sub
Lần chỉnh sửa cuối: