Skip to content

Instantly share code, notes, and snippets.

@DuongAQ

DuongAQ/AnHang.bas

Created June 13, 2019 11:04
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/6a0f4ca47de58e9d0c99d2877972260c to your computer and use it in GitHub Desktop.
Save DuongAQ/6a0f4ca47de58e9d0c99d2877972260c to your computer and use it in GitHub Desktop.
Download ZIP
Raw
AnHang.bas
Sub AnHang()
Dim TuDong As Long, DenDong As Long
TuDong = Sheets("Sheet1").Range("B1").Value
DenDong = Sheets("Sheet1").Range("B2").Value
'Bo an tu dong 1 den 10000
Sheets("Sheet1").Range("A1:A10000").EntireRow.Hidden = False
'An dong duoc chon
Sheets("Sheet1").Range("A" & TuDong & ":A" & DenDong).EntireRow.Hidden = True
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment