Tạo số chạy liên tục bằng VBA

[M.K]

Xin mọi người chỉ giúp cách viết số chạy liên tục bằng VBA trong excel (Ví dụ : Số bắt đầu là : N00001) ,sau khi nhấn Save lại , thì số chạy sẽ là N00002.
Như vậy sau mỗi lần nhấn Save lại là số chạy lên thêm 1 số ..


Xin mọi người giúp đỡ .

Xin cảm ơn

 

[hoangminhtien]

Tại A1 của sheet1 bạn định dạng là "N"00000
sau đó bạn dùng code sau cho Thisworkbook

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Sheet1").Range("A1") = Sheets("Sheet1").Range("A1") + 1
End Sub