Giúp về đánh số chứng từ tăng dần bằng vba

[chemgio123]

E ko biết giải thích thế nào cho dễ hiểu cả, e có upload file ví dụ và kết quả mong muốn ở sheet2 , mong các anh chị, cô chú giúp đỡ e

Many thanks

 

[Ba Tê]

E ko biết giải thích thế nào cho dễ hiểu cả, e có upload file ví dụ và kết quả mong muốn ở sheet2 , mong các anh chị, cô chú giúp đỡ e

Many thanks

Bạn đã biết làm cái Command Button thì cho nó chạy cái Sub này thử xem:

Public Sub GPE()
Dim Rng(), Arr(), I As Long, J As Long, K As Long, Tem As String
    Rng = Sheet1.[B2].CurrentRegion.Offset(1).Value
ReDim Arr(1 To UBound(Rng, 1), 1 To 1)
    For I = 1 To UBound(Rng, 1)
        For J = 1 To UBound(Rng, 2)
            If Rng(I, J) <> "" Then
                If Rng(I, J) <> Tem Then
                    Tem = Rng(I, J)
                    K = K + 1
                End If
                Exit For
            End If
        Next J
            Arr(I, 1) = "GS" & Format(K, "0#")
    Next I
Sheet1.[A2:A10000].ClearContents
Sheet1.[A2].Resize(I - 2, 1).Value = Arr
End Sub

 

[chemgio123]

Cảm ơn anh Ba Tê nhưng đoạn code trên e ko hiểu lắm về các tham số i, J, K ?
Bây giờ giả sử thế này, chèn thêm 1 dòng trên cùng, dữ liệu sẽ bắt đầu từ hàng số 3, thì code trên sẽ viết lại thế nào ?

E muốn có sự so sánh khi chỉnh sửa lại tý xíu dữ liệu nguồn để xem sự khác biệt

 

[Ba Tê]

Cảm ơn anh Ba Tê nhưng đoạn code trên e ko hiểu lắm về các tham số i, J, K ?
Bây giờ giả sử thế này, chèn thêm 1 dòng trên cùng, dữ liệu sẽ bắt đầu từ hàng số 3, thì code trên sẽ viết lại thế nào ?

E muốn có sự so sánh khi chỉnh sửa lại tý xíu dữ liệu nguồn để xem sự khác biệt

Với mỗi cấu trúc dữ liệu cụ thể sẽ có cách viết code khác nhau (để nhanh, gọn)
Nếu dữ liệu bạn đưa lên giống thật thì bạn mới hiểu được.
Bạn hỏi chung chung như vậy thì làm sao biết đường trả lời, vì chèn thêm dòng trống phía trên khác với chèn thêm dòng có dữ liệu phía trên.
Tôi sử dụng CurrentRegion chỉ đúng khi biết chắc cấu trúc dữ liệu trong vùng đó ra sao.
Nếu không, phải dùng cách khác để xác định vùng dữ liệu.