Giúp em sửa lại code: Lấy duy nhất số phiếu để hiện ra số phiếu tiếp theo

[THUUYEN310797]

Kính nhờ các anh chị sửa code lại giúp em, khi bấm Form Nhập chọn Bộ Phận Xuất nhập ví dụ: BBI thể hiện trong cột C có 4 dòng thì số phiếu hiểu là tiếp theo là 24060005, em muốn khi lấy BBI số phiếu thể hiện thứ tự là 24060002. Cho dù tại cột C trùng bao nhiêu dòng thì cũng chỉ thể hiện duy nhất để đọc số tiếp theo ạ. Em có đính kèm file, em xin chân thành cảm ơn ạ

 

[Hoàng Tuấn 868]

Kính nhờ các anh chị sửa code lại giúp em, khi bấm Form Nhập chọn Bộ Phận Xuất nhập ví dụ: BBI thể hiện trong cột C có 4 dòng thì số phiếu hiểu là tiếp theo là 24060005, em muốn khi lấy BBI số phiếu thể hiện thứ tự là 24060002. Cho dù tại cột C trùng bao nhiêu dòng thì cũng chỉ thể hiện duy nhất để đọc số tiếp theo ạ. Em có đính kèm file, em xin chân thành cảm ơn ạ

Không hiểu ý bạn này định làm gì.

 

[SA_DQ]

Không hiểu ý bạn này định làm gì.

Có lẽ là vầy:


←←← 0oo)#(oo0→→→

 

[Hoàng Tuấn 868]

Có lẽ là vầy:
←←← 0oo)#(oo0→→→

Em cũng chưa rõ như vậy đã đúng ý chủ bài chưa.

 

[VetMini]

Không hiểu ý bạn này định làm gì.

Chắc mói đi nhậu với bồ về. Đầu óc còn chưa phân biệt được số mã của dữ liệu, và côt trong Excel.

 

[SA_DQ]

Chắc mói đi nhậu với bồ về. Đầu óc còn chưa phân biệt được số mã của dữ liệu, và côt trong Excel.

/(hông phải đâu;
/-)ây là kiểu: Xin đố các người mần được theo đúng ý tớ, nhưng ý tớ thì chưa đưa ra hết đâu nghen!

 

[THUUYEN310797]

Có lẽ là vầy:


←←← 0oo)#(oo0→→→

dạ, nếu đánh BBI thì hiện ra chỗ số phiếu là 2406003, qua tháng 7 thì thay đổi là 2407003 ạ, e xin chân thành cảm ơn ạ

Bài đã được tự động gộp: Thứ sáu lúc 10:57

Chắc mói đi nhậu với bồ về. Đầu óc còn chưa phân biệt được số mã của dữ liệu, và côt trong Excel.

dạ, em không biết nên em mới đăng bài xin giúp đỡ ạ, chứ biết rồi e đâu cần giúp đỡ nữa ạ. Em học theo để áp dụng nhưng đến đó em không hiểu và không bết xử lý nên em hỏi

 

[Hoàng Tuấn 868]

dạ, nếu đánh BBI thì hiện ra chỗ số phiếu là 2406003, qua tháng 7 thì thay đổi là 2407003 ạ, e xin chân thành cảm ơn ạ

Bài đã được tự động gộp: Thứ sáu lúc 10:57

dạ, em không biết nên em mới đăng bài xin giúp đỡ ạ, chứ biết rồi e đâu cần giúp đỡ nữa ạ. Em học theo để áp dụng nhưng đến đó em không hiểu và không bết xử lý nên em hỏi

Trình bày quá khó hiểu, đã thế lại còn viết tắt. Chán hẳn.

 

[THUUYEN310797]

Trình bày quá khó hiểu, đã thế lại còn viết tắt. Chán hẳn.

ý em là trong bài Bác SA_DQ làm đúng ý rồi ạ nhưng em muốn sửa thêm chút chỗ phiếu nó hiện ra dãy số bao gồm hai số đầu của năm và 2 số của tháng và thứ tự dãy số phiếu ạ, Ví dụ khi chọn mã BBI thì tại số phiếu nó hiện ra 24060003 ạ. Em xin cảm ơn ạ

 

[SA_DQ]

ý em là trong bài Bác SA_DQ làm đúng ý rồi ạ nhưng em muốn sửa thêm chút chỗ phiếu nó hiện ra dãy số bao gồm hai số đầu của năm và 2 số của tháng và thứ tự dãy số phiếu ạ, Ví dụ khi chọn mã BBI thì tại số phiếu nó hiện ra 24060003 ạ. Em xin cảm ơn ạ

/(/ó đã hiện ra '0003'
Chuyện còn lại bạn tự lo liệu ên đi, với mớ kiến thức VBA dữ dằng thế kia cơ mà!

Private Sub NXK_NHAP_Change()
 Dim Tmp As String, MyAdd As String, lNum As String
 Dim Rng As Range, sRng As Range
 Dim Rws As Long, Num As Long
 
 Tmp = Me!NXK_NHAP.Value & CStr(Year(Date) Mod 100) & Right("0" & CStr(Month(Date)), 2)
 lNum = "0000" 
'    Tmp = NXK_NHAP.Value & "#" & Right(Year(Date), 2) & Format(Month(Date), "00")  '   
    With Sheets("Chi_Tiet_nhap")
        Rws = .Range("B" & Rows.Count).End(xlUp).Row
        Set Rng = .[B5].Resize(Rws)
        Set sRng = Rng.Find(Tmp, , xlFormulas, xlPart)
        If Not sRng Is Nothing Then
            MyAdd = sRng.Address
            Do
                If Right(sRng.Value, 4) > lNum Then
                    lNum = Right(sRng.Value, 4)
                End If
                Set sRng = Rng.FindNext(sRng)
            Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
            lNum = Right("000" & CStr(CLng(lNum) + 1), 4)
            Me!SO_PHIEU_NHAP.Caption = lNum
            'Chu Bài Dang Viêt Tiêp Vài Câu Lênh Thêm Vào ?ây:  '
        Else
             Me!SO_PHIEU_NHAP.Caption = Tmp & "0001"  Mã Đầu Tháng  '
        End If
    End With
End Sub

 

[VetMini]

/(hông phải đâu;
/-)ây là kiểu: Xin đố các người mần được theo đúng ý tớ, nhưng ý tớ thì chưa đưa ra hết đâu nghen!

Đồng thanh tương ứng. Đồng khí tương cầu.
Phải mấy người nhậu như bác mới hiểu được.

 

[THUUYEN310797]

/(/ó đã hiện ra '0003'
Chuyện còn lại bạn tự lo liệu ên đi, với mớ kiến thức VBA dữ dằng thế kia cơ mà!

Private Sub NXK_NHAP_Change()
 Dim Tmp As String, MyAdd As String, lNum As String
 Dim Rng As Range, sRng As Range
 Dim Rws As Long, Num As Long
 
 Tmp = Me!NXK_NHAP.Value & CStr(Year(Date) Mod 100) & Right("0" & CStr(Month(Date)), 2)
 lNum = "0000"
'    Tmp = NXK_NHAP.Value & "#" & Right(Year(Date), 2) & Format(Month(Date), "00")  '  
    With Sheets("Chi_Tiet_nhap")
        Rws = .Range("B" & Rows.Count).End(xlUp).Row
        Set Rng = .[B5].Resize(Rws)
        Set sRng = Rng.Find(Tmp, , xlFormulas, xlPart)
        If Not sRng Is Nothing Then
            MyAdd = sRng.Address
            Do
                If Right(sRng.Value, 4) > lNum Then
                    lNum = Right(sRng.Value, 4)
                End If
                Set sRng = Rng.FindNext(sRng)
            Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
            lNum = Right("000" & CStr(CLng(lNum) + 1), 4)
            Me!SO_PHIEU_NHAP.Caption = lNum
            'Chu Bài Dang Viêt Tiêp Vài Câu Lênh Thêm Vào ?ây:  '
        Else
             Me!SO_PHIEU_NHAP.Caption = Tmp & "0001"  Mã Đầu Tháng  '
        End If
    End With
End Sub

dạ vâng em cảm ơn bác ạ