Xin hỏi về cách xắp xếp thứ tự các Sheet

[saigonvw]

Chào các Bạn
Các Bạn làm ơn cho tôi hỏi :
Tôi có một Bảng tính gồm nhiều Sheet - Mỗi sheet Tôi đặt tên khác nhau . Xin hỏi làm thế nào để sắp xếp sheet theo thứ tự tăng hoặc giảm dần ( Hoặc theo thứ tự A-B-C )
Xin cảm ơn các Bạn nhiều

 

[Po_Pikachu]

Bạn vào link đây để tìm hiểu nha! http://www.giaiphapexcel.com/forum/showthread.php?t=461 Thân.

 

[saigonvw]

Cảm ơn Bạn Pi-ca chiu
Tôi đã down file do Bạn Tuan nuni cho nhung không biết làm tiếp tục như thế nào - Xin Bạn chỉ dẫn cụ thể hơn được không ?
Cảm ơn bạn nhiều

 

[ndu96081631]

Cảm ơn Bạn Pi-ca chiu
Tôi đã down file do Bạn Tuan nuni cho nhung không biết làm tiếp tục như thế nào - Xin Bạn chỉ dẫn cụ thể hơn được không ?
Cảm ơn bạn nhiều

Xài đơn giãn thì dùng code này:

Sub SortSheet_Asc()
  Dim NoS, i, j As Integer
  Application.ScreenUpdating = False
  NoS = Sheets.Count
  For i = 1 To NoS - 1
     For j = i + 1 To NoS
        If Sheets(j).Name < Sheets(i).Name Then
           Sheets(j).Move Before:=Sheets(i)
        End If
     Next j
  Next i
  Application.ScreenUpdating = True
End Sub

Sub SortSheet_Des()
  Dim NoS, i, j As Integer
  Application.ScreenUpdating = False
  NoS = Sheets.Count
  For i = 1 To NoS - 1
     For j = i + 1 To NoS
        If Sheets(j).Name > Sheets(i).Name Then
           Sheets(j).Move Before:=Sheets(i)
        End If
     Next j
  Next i
  Application.ScreenUpdating = True
End Sub

Xem file

 

[Lệnh Hồ Đại Hiệp]

Cảm ơn Bạn Pi-ca chiu
Tôi đã down file do Bạn Tuan nuni cho nhung không biết làm tiếp tục như thế nào - Xin Bạn chỉ dẫn cụ thể hơn được không ?
Cảm ơn bạn nhiều

Bạn muốn hỏi về cách làm của bác Tuanvnuni hay là triển khai code đó trên File của bạn ??

 

[saigonvw]

Bạn muốn hỏi về cách làm của bác Tuanvnuni hay là triển khai code đó trên File của bạn ??

Tôi muốn hỏi cách triển khai code đó trên File của Tôi
Cảm on Bạn nhiều

 

[Po_Pikachu]

Vậy bạn phải gửi file lên chứ! Nói không thì làm sao triển khai được đây? Thân.

 

[quoctuankid]

Xài đơn giãn thì dùng code này:

Sub SortSheet_Asc()
  Dim NoS, i, j As Integer
  Application.ScreenUpdating = False
  NoS = Sheets.Count
  For i = 1 To NoS - 1
     For j = i + 1 To NoS
        If Sheets(j).Name < Sheets(i).Name Then
           Sheets(j).Move Before:=Sheets(i)
        End If
     Next j
  Next i
  Application.ScreenUpdating = True
End Sub

Sub SortSheet_Des()
  Dim NoS, i, j As Integer
  Application.ScreenUpdating = False
  NoS = Sheets.Count
  For i = 1 To NoS - 1
     For j = i + 1 To NoS
        If Sheets(j).Name > Sheets(i).Name Then
           Sheets(j).Move Before:=Sheets(i)
        End If
     Next j
  Next i
  Application.ScreenUpdating = True
End Sub

Xem file

Cái code này thì cho nó vào đâu vậy các bác

 

[ndu96081631]

Cái code này thì cho nó vào đâu vậy các bác

1> Mở file của bạn lên
2> Bấm Alt + F11 (để mở cửa sổ VBE)
3> Vào menu Insert chọn Module (sẽ thấy có 1 cửa sổ trống nằm bên phải)
4> Copy đoạn code của tôi vào trong cửa số trống này (từng đoạn code 1... copy đoạn 1 dán vào... rồi copy tiếp đoạn code 2.. dán vào bên dưới)
5> Bấm dấu X để đóng cửa số VBE (hoặc phím tắt Alt + Q)
6> Bấm Alt + F8 ---> Chọn tên 1 trong 2 code rồi bấm lệnh Run