Bạn có thể quản lý các sheet bởi một sheet điều khiển
Private Sub Control_Click()
Dim wsSheet As Worksheet
Dim ws As Worksheet
Dim Counter As Long
On Error Resume Next
Set wsSheet = Sheets("Control")
'Kiem tra su ton tai cua Sheet
On Error GoTo 0
If wsSheet Is Nothing Then
'Neu chua co thi them vao vi tri dau tien cua Workbook
Set wsSheet = ActiveWorkbook.Sheets.Add(Before:=Worksheets(1))
wsSheet.Name = "Control"
End If
With wsSheet
.Cells(1, 2) = "DANH MUC BANG TINH"
.Cells(1, 1).Name = "Jsxp"
.Cells(1, 3).Value = "1"
.Cells(2, 3).Value = "0"
.Cells(3, 1).Value = "TT"
.Cells(3, 2).Value = "Ten bang tinh"
.Cells(3, 3).Value = "In(1)/ Không in(0)"
End With
'Merge Cell
With Range("A1:A1")
.Merge
.HorizontalAlignment = xlCenter
.Font.Bold = True
End With
'Set ColumnWidth
With Columns("A:A")
.ColumnWidth = 8
.HorizontalAlignment = xlCenter
End With
With Range("A4")
.HorizontalAlignment = xlCenter
.Font.Bold = False
End With
Columns("B:B").ColumnWidth = 62
Columns("C:C").ColumnWidth = 12
Columns("D
").ColumnWidth = 12
Columns("E:F").ColumnWidth = 24
Columns("G:G").ColumnWidth = 2
With Range("A3,B1,B3,C3")
.HorizontalAlignment = xlCenter
.Font.Bold = True
End With
With Range("B1")
.HorizontalAlignment = xlCenter
.Font.Bold = True
.Font.Size = 12
End With
Counter = 1
For Each ws In Worksheets
If ws.Name <> wsSheet.Name Then
'Gan gia tri cot thu tu
wsSheet.Cells(Counter + 3, 1).Value = Counter
'Tao lien ket
wsSheet.Hyperlinks.Add Anchor:=wsSheet.Cells(Counter + 3, 2), _
Address:="", _
SubAddress:=ws.Name & "!A1", _
ScreenTip:=ws.Name, _
TextToDisplay:=ws.Name
'Them nut Quay ve Sheet Muc luc tai moi Sheet
With ws
If ws.Cells(1, 1) <> "Back to Control" Then .Rows(1).Insert (1)
.Hyperlinks.Add Anchor:=.Range("A1"), Address:="", SubAddress:="Jsxp", TextToDisplay:="Back to Control"
End With
Counter = Counter + 1
End If
Next ws
Set xlSheet = Nothing
End Sub
