Phím tắt tìm tên sheet trong workbook

[babykokoro]

Có bác nào biết phím tắt để tìm tên sheet trong workbook không?

File excel của em nhiều tên sheet quá.

Thank kiu các bác nhiều nhiều

 

[anhtuan1066]

Bạn click chuột phải vào khu vực sheet tab, ngay góc trái bên dưới cùng sẽ thấy tên của tất cả các sheet có trong workbook

 

[hocexcelS]

Có cách nào để sắp xếp tên sheet theo thứ tự không nhể?
Mình loay hoay hoài mà không biết sắp xếp ra sao (chỉ làm thủ công thôi)

 

[ngvanho]

Macro Sắp Xếp Các Sheet Theo Abc

MACRO SẮP XẾP CÁC SHEET THEO ABC
Sub ABCSHEET()
Application.ScreenUpdating = False
DEM = Sheets.Count
For I = 1 To DEM - 1
For J = 1 To DEM
If Sheets(J).Name < Sheets(I).Name Then
Sheets(J).Move BEFORE:=Sheets(I)
End If
Next
Next
End Sub

 

[anhtuan1066]

MACRO SẮP XẾP CÁC SHEET THEO ABC
Sub ABCSHEET()
Application.ScreenUpdating = False
DEM = Sheets.Count
For I = 1 To DEM - 1
For J = 1 To DEM
If Sheets(J).Name < Sheets(I).Name Then
Sheets(J).Move BEFORE:=Sheets(I)
End If
Next
Next
End Sub

Cái code này hình như ko ổn!
Phải như vầy đâ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!
Nếu tên sheet có lẩn lôn vừa chử vừa số thì thực chất nó cũng là TEXT thôi.. sort dc tuốt
ANH TUẤN