Cần giúp: Cách tạo mã số cuộn (1 người xem)

[nexlove]

Chào các Anh/Chị
Em muốn tạo mã SO_CUON tự động khi ta nhập Ma_HH như file đính kèm
Mong Mấy anh chị chỉ giúp giùm em.Em cảm ơn ạ

 

[Hoàng Tuấn 868]

Chào các Anh/Chị
Em muốn tạo mã SO_CUON tự động khi ta nhập Ma_HH như file đính kèm
Mong Mấy anh chị chỉ giúp giùm em.Em cảm ơn ạ

Bạn tham khảo..

 

[Hoàng Nhật Phương]

Chào các Anh/Chị
Em muốn tạo mã SO_CUON tự động khi ta nhập Ma_HH như file đính kèm
Mong Mấy anh chị chỉ giúp giùm em.Em cảm ơn ạ

Một cách làm khác, Bạn tham khảo thêm.

 

[Hoàng Tuấn 868]

Một cách làm khác, Bạn tham khảo thêm.

Cách của bạn hay, nhưng nếu chủ bài chuyển vị trí bảng dữ liệu thì hơi vất vả nhỉ.

 

[nexlove]

Một cách làm khác, Bạn tham khảo thêm.

Hay qua thanks nhiều nhiều

 

[nexlove]

Một cách làm khác, Bạn tham khảo thêm.

Code này có 1 vấn đề là sửa lại những mã trong cột Ma_HH thì cột SO_CUON thay đổi và bị trùng mã.
vd NHƯ THEO FILE CỦA BẠN GỬI
Mình sửa hàng A8 thành SC300 thì B8 đổi trùng mã
Vì mình muốn Cột SO_CUON ko trùng mã. Bạn giúp mình nhé

 

[Hoàng Nhật Phương]

Code này có 1 vấn đề là sửa lại những mã trong cột Ma_HH thì cột SO_CUON thay đổi và bị trùng mã.
vd NHƯ THEO FILE CỦA BẠN GỬI
Mình sửa hàng A8 thành SC300 thì B8 đổi trùng mã
Vì mình muốn Cột SO_CUON ko trùng mã. Bạn giúp mình nhé

Bạn thử bỏ dòng:

r = Me.Cells(Me.Rows.count, "A").End(xlUp).Row

Và thay dòng đó bằng:

r = Target.Row

Hoặc Bạn copy lại cả đoạn bên dưới ạ.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.count > 1 Then Exit Sub
    If Target.Column = 1 And Target.Row > 2 Then
        Dim count As Long, r As Long
        If Target.Value <> "" Then
            r = Target.Row
            count = Application.WorksheetFunction.CountIf(Range("A3:A" & r), Target)
            Target.Offset(, 1) = Target.Value & "-" & count
        Else
            Target.Offset(, 1).Value = Empty
        End If
    End If
End Sub

 

[Hoàng Tuấn 868]

Bạn thử bỏ dòng:

r = Me.Cells(Me.Rows.count, "A").End(xlUp).Row

Và thay dòng đó bằng:

r = Target.Row

Hoặc Bạn copy lại cả đoạn bên dưới ạ.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.count > 1 Then Exit Sub
    If Target.Column = 1 And Target.Row > 2 Then
        Dim count As Long, r As Long
        If Target.Value <> "" Then
            r = Target.Row
            count = Application.WorksheetFunction.CountIf(Range("A3:A" & r), Target)
            Target.Offset(, 1) = Target.Value & "-" & count
        Else
            Target.Offset(, 1).Value = Empty
        End If
    End If
End Sub

Hy vọng bài này không bị bỏ qua như bài #2 bạn nhỉ.

 

[VetMini]

Hy vọng bài này không bị bỏ qua như bài #2 bạn nhỉ.

Hổng được thanh rồi ghen hở

Hay qua thanks nhiều nhiều

 

[Hoàng Tuấn 868]

Hổng được thanh rồi ghen hở

Hì hì, em chỉ muốn biết công thức của mình đã đúng hay chưa đúng ở điểm nào để hoàn thiện hơn thôi anh ạ.

 

[VetMini]

Hì hì, em chỉ muốn biết công thức của mình đã đúng hay chưa đúng ở điểm nào để hoàn thiện hơn thôi anh ạ.

Theo tiếng Tây thì đương sự "couldn't care less."

Chú: công thức của bạn đúng hay chưa không thành vấn đề bởi vì nó không "tiện lợi" bằng nguyên cái công cụ xịn ở bài #3, #7.
Chọn giữa một quyển sách vần và một ứng dụng học vần trên iPad, một đứa trẻ luôn luôn luôn chọn cái thứ hai.

 

[Hoàng Tuấn 868]

Theo tiếng Tây thì đương sự "couldn't care less."
Chú: công thức của bạn đúng hay chưa không thành vấn đề bởi vì nó không "tiện lợi" bằng nguyên cái công cụ xịn ở bài #3, #7.
Chọn giữa một quyển sách vần và một ứng dụng học vần trên iPad, một đứa trẻ luôn luôn luôn chọn cái thứ hai.

Em cũng biết vậy chứ có mong muốn gì việc bị thanh tét vào mông đâu anh.