Sắp xếp các Sheet trong Ecxel

mvtruong72

New Member
Hội viên mới
Chào các bạn.
Tôi mở nhiều Sheet trong Ecxel làm sổ sách kế toán, khi di chuyển các Sheet để làm việc cho tiện, nhưng khi sắp xếp các Sheet lại về vị trí ban đầu (theo trình tự của tài khoản kế toán) thì mất nhiều thời gian lắm.
Vậy có bạn nào biết chỉ giúp cách sắp xếp các sheet trở lại vị trị ban đầu tạo lập.
Tôi xin trân trọng cảm ơn
Người viết: Mai Vân Trường
ĐT: 098 35 36 166
 

xuanthanh

Member
Hội viên mới
Ðề: Sắp xếp các Sheet trong Ecxel

Chào các bạn.
Tôi mở nhiều Sheet trong Ecxel làm sổ sách kế toán, khi di chuyển các Sheet để làm việc cho tiện, nhưng khi sắp xếp các Sheet lại về vị trí ban đầu (theo trình tự của tài khoản kế toán) thì mất nhiều thời gian lắm.
Vậy có bạn nào biết chỉ giúp cách sắp xếp các sheet trở lại vị trị ban đầu tạo lập.
Tôi xin trân trọng cảm ơn
Người viết: Mai Vân Trường
ĐT: 098 35 36 166
Tạo một Sheet Main, tất cả các Sheet đều khởi tạo từ Sheet này. Dung các nút bấm hoặc dùng Hyperlink để liên kết tới các sheet con và từ sheet con về lại sheet chủ(Main). Như vậy bạn dễ dang thực hiện theo công đoạn : Từ Sheet Main chuyển sang SheetA, từ SheetA chuyển về Main rồi từ đây lại chuyển đến B....
 

atmt17

Member
Hội viên mới
Ðề: Sắp xếp các Sheet trong Ecxel

Chào các bạn.
Tôi mở nhiều Sheet trong Ecxel làm sổ sách kế toán, khi di chuyển các Sheet để làm việc cho tiện, nhưng khi sắp xếp các Sheet lại về vị trí ban đầu (theo trình tự của tài khoản kế toán) thì mất nhiều thời gian lắm.
Vậy có bạn nào biết chỉ giúp cách sắp xếp các sheet trở lại vị trị ban đầu tạo lập.
Tôi xin trân trọng cảm ơn
Người viết: Mai Vân Trường
ĐT: 098 35 36 166
Như thế nào là vị trị ban đầu?
Có lẽ bạn cần phải tạo vùng phụ, trong đó bạn gõ danh sách tên sheet theo 1 thứ tự nào đó bạn muốn
Tiếp theo viết 1 code duyệt qua tên các sheet (đã gõ) rồi xếp lại
Đại khái thế! Tiếc là tôi chẳng biết cách nào để đưa file ví dụ lên cho bạn tham khảo
Muốn biết chi tiết, sang www.giaiphapexcel.com hỏi nhé
 

constructxda

New Member
Hội viên mới
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: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
 

CẨM NANG KẾ TOÁN TRƯỞNG


Liên hệ: 090.6969.247

KÊNH YOUTUBE DKT

Kỹ thuật giải trình thanh tra BHXH

Đăng ký kênh nhé cả nhà

SÁCH QUYẾT TOÁN THUẾ


Liên hệ: 090.6969.247

Top