Tạo mã số tự động (1 người xem)

[hosibien]

Mình muốn thiết lập và tạo mã số tự động tăng dần theo năm hiện tại, nhưng không thể nào làm được. Yêu cầu là tạo mã số tự động tăng dần hiển thị trên form: gồm 2 chữ số(tăng dần)/năm hiện tại/ATTP_CN, có file kèm theo.
Nhờ các bạn giúp đỡ,Cám ơn nhiều

 

[ChanhTQ@]

Yêu cầu là tạo mã số tự động tăng dần hiển thị trên form: gồm 2 chữ số(tăng dần)/năm hiện tại/ATTP_CN, có file kèm theo.
Nhờ các bạn giúp đỡ,Cám ơn nhiều

Một cách này, tuy thô nhưng cũng tàm tạm:
Tại [S2] bạn nhập công thức
=IF(TYPE(FIND("/",O2))=16,"",MID(O2,1+FIND("/",O2),4)*10^4+LEFT(O2,FIND("/",O2)-1*1))


sau đó dùng fương thức FillDown copy xuống đến cuối;

Nếu kết quả nào không mong muốn, ta sửa lại.

Tại [S1] ta áp công thức: =MAX(Q2:Q65432)

Từ kết quả này bạn hãy tìm cách tạo ra mã tự động cho bạn.

 

[hosibien]

Cám ơn bạn, nhưng mình vẫn chưa hiểu ý bạn; Yêu cầu của mình là hiển thị mã số tự động lên form tự tạo, sau đó mới cập nhập vào sheet

 

[SA_DQ]

Cám ơn bạn, nhưng mình vẫn chưa hiểu ý bạn; Yêu cầu của mình là hiển thị mã số tự động lên form tự tạo, sau đó mới cập nhập vào sheet

(*) Tại trang Sheet2, ở [S1] ta áp công thức =Sheet1!S1

(*) Bạn thêm các câu lệnh cần thiết đang thiếu trong macro sau

Private Sub CommandButton1_Click()
    With Sheet2.[s1]
1        MsgBox Right("000" & CStr(.Value Mod 10 ^ 4 + 1), 3) & "/" & CStr(Left(.Value, 4))  & "/ATTF_CN"
    End With
2    From_Cap.Show
End Sub

(*) Kích hoạt Form xem bạn sẽ thấy cái chi?

(Vì trang Sheet1 của bạn có ma ám, nên không thể nhập công thức vô được, nên mình fải chuyển xài Sheet2 ở bước 1)

 

[dhn46]

Cho em xin đóng góp, bạn xem cách củ chuối này như thế nào

 

[hosibien]

(*) Tại trang Sheet2, ở [S1] ta áp công thức =Sheet1!S1

(*) Bạn thêm các câu lệnh cần thiết đang thiếu trong macro sau

Private Sub CommandButton1_Click()
    With Sheet2.[s1]
1        MsgBox Right("000" & CStr(.Value Mod 10 ^ 4 + 1), 3) & "/" & CStr(Left(.Value, 4))  & "/ATTF_CN"
    End With
2    From_Cap.Show
End Sub

(*) Kích hoạt Form xem bạn sẽ thấy cái chi?

(Vì trang Sheet1 của bạn có ma ám, nên không thể nhập công thức vô được, nên mình fải chuyển xài Sheet2 ở bước 1)

Loai hoay mãi vẫn chưa làm được như bạn hướng dẫn, cám ơn bạn giúp đở, có gì nhờ bạn nghiên cứu up vào file cụ thể của minh

 

[hosibien]

Cho em xin đóng góp, bạn xem cách củ chuối này như thế nào

Gần đúng y mình rồi nhưng không phải tìm kiếm những số đã cấp rồi Mà chỉ tìm và nhập số cấp mới cho những cơ sở chưa đước cấp, nhưng phải đánh số tự động tiếp theo số đã cấp của năm hiện tại .Khi chọn mã số mới thì báo lỗi "Run-time error '1004' Unable to get the Find property of the WorksheetFuntion class
Dòng lệnh bị lối: If Mid(Sc.Offset(, 13), Application.WorksheetFunction.Find("/", Sc.Offset(, 13)) + 1, 4) - Year(Now()) < 0 Then
Nhờ bạn giúp tiếp , Cám ơn bạn

 

[ChanhTQ@]

Bạn xem trong file đính kèm

Loai hoay mãi vẫn chưa làm được như bạn hướng dẫn, cám ơn bạn giúp đở, có gì nhờ bạn nghiên cứu up vào file cụ thể của minh

Bạn tiếp đi nha, vì thấy bạn viết macro cũng rành rẽ mà!

 

[dhn46]

Bạn tham khảo thêm cách này nữa (giờ mới hiểu yêu cầu của bạn). Bạn tùy biến thêm cho phù hợp

 

[hosibien]

Bạn tham khảo thêm cách này nữa (giờ mới hiểu yêu cầu của bạn). Bạn tùy biến thêm cho phù hợp

Cám ơ bạn đã giúp đỡ, đúng yêu cầu của mình rồi, Mình đang nghiên cứu tiếp, vì Macro của bạn khi xóa hết dự liệu 2 cột Số cấp và ngày cấp. Sau đó tiến hành nhập liệu số cấp mới từ đầu thì số cấp tự động chỉ đến số 10 thôi ( từ :1/2012/ATTP-CN…. đến 10/2012/ATTP-CN) , những cơ sở cấp tiếp sau số 10 thì chỉ hiển thị tự động 1 số cấp duy nhất: 10/2012/ATTP-CN, như vậy bị trùng số cấp
Cho mình hỏi cũng dử liệu đó có cách nào để khi sử dụng Combobox Ma thì chỉ cho list hiển thị lên những cơ sở chưa có số cấp, nghĩa là những cơ sở chưa được cấp.

 

[Ba Tê]

Sao lại Combobox cho phiền phức nhỉ?
Cho nó vào Validation, chọn list duy nhất là số tiếp theo, xong.
Cái này "gụ đế" làm đó nghe.

 

[hosibien]

Sao lại Combobox cho phiền phức nhỉ?
Cho nó vào Validation, chọn list duy nhất là số tiếp theo, xong.
Cái này "gụ đế" làm đó nghe.

Cám ơn bạn đã đã giúp đỡ, Ý bạn thật hay và rất tiện lợi, nhưng với file quản lý của mình thiết lập và nhập trực tiếp vào form tự tạo, có rất nhiều form, ví dụ trên chỉ là một công đoạn quản lý vào tìm mã cơ sở để vào nhập số cấp, ngày cấp và tiến hành in giấy cấp thôi. Ngay từ khi khởi động mình load ngay vào form Main chính sau đó chỉ thực hiện ngay trên các form, người sử dụng không vào được sheet để nhập. Thực tình không rành viết macro lắm, chỉ tự học ngay trên diễn đàn này thôi, mong bản giúp đỡ theo ý mình.