Skip to content

Instantly share code, notes, and snippets.

@DuongAQ

DuongAQ/AnHien_Sheet.bas

Last active March 20, 2019 09:26
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save DuongAQ/0b0ee9d28d3f1a5a1728c604f39d2487 to your computer and use it in GitHub Desktop.
Save DuongAQ/0b0ee9d28d3f1a5a1728c604f39d2487 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
AnHien_Sheet.bas
Sub AnHien_Sheet()
Dim lr As Long
lr = Sheets("MENU").Cells(Rows.Count, 1).End(xlUp).Row
Dim sodong As Long
'An/hien sheet
For sodong = 2 To lr
'Mo an tat ca cac sheet
Worksheets(Sheets("MENU").Range("A" & sodong).Value).Visible = xlSheetVisible
'An sheet duoc danh dau
If Sheets("MENU").Range("B" & sodong).Value = "x" Then
Worksheets(Sheets("MENU").Range("A" & sodong).Value).Visible = xlSheetHidden
End If
Next sodong
Sheets("MENU").Activate
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment