Dùng hàm cài số thứ tự tự động giữa các sheet

[Ga go]

Có anh chị nào biết dùng hàm cài số thứ tự tự động giữa các Sheet với nhau không. Ví dụ: Sheet1, phiếu thu số 1, để sang Sheet2 tự nhảy phiếu thu số 2 mà ko phải gõ lại ko.
Anh chị nào biết thì giúp em với.


Bạn nhớ là Sheet chứ không phải là Sheep nhé.

 

[nvson]

Trong Excel, nhấn Alt+F11 để vào Microsoft Visual Basic
Nhấn đúp chuột vào ThisWorkbook trong của sổ Project Explorer
Rồi thêm đoạn code sau:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error GoTo Thoat
Dim a, b
If Sheets(Sh.Name).Index = 1 Then
    a = Sh.Name
Else
    a = Sh.Previous.Name
End If
For i = 1 To Len(a)
    If Asc(Mid(a, Len(a) - i, 1)) < 47 Or Asc(Mid(a, Len(a) - i, 1)) > 58 Then Exit For
Next i
b = Left(a, Len(a) - i)
ActiveSheet.Name = b & ActiveSheet.Index
Thoat:
End Sub

Chú ý: Các sheet sẽ không đổi tên theo thứ tự