Các bác chỉ em cách dùng đoạn code này với ạ, em đang đánh số sản phẩm tăng dần (1 người xem)

[nguenson]

Option Explicit
Const SoDong% = 3210
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range, sRng As Range
Dim MyAdd$, SF$, Max_%

If Not Intersect(Target, Range("B2:B" & SoDong)) Is Nothing Then
Set Rng = Range("B1:B" & Target.Row - 1)
Set sRng = Rng.Find(Target.Value, , xlFormulas, xlWhole)
If sRng Is Nothing Then
Target.Offset(, 1).Value = 1
Else
MyAdd = sRng.Address
SF = sRng.Offset(, -1).Value
Do
If sRng.Offset(, -1).Value = SF Then Max_ = sRng.Offset(, 1).Value
Set sRng = Rng.FindNext(sRng)
Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
Target.Offset(, 1).Value = 1 + Max_
End If
End If
End Sub

 

[Hoàng Tuấn 868]

Option Explicit
Const SoDong% = 3210
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range, sRng As Range
Dim MyAdd$, SF$, Max_%

If Not Intersect(Target, Range("B2:B" & SoDong)) Is Nothing Then
Set Rng = Range("B1:B" & Target.Row - 1)
Set sRng = Rng.Find(Target.Value, , xlFormulas, xlWhole)
If sRng Is Nothing Then
Target.Offset(, 1).Value = 1
Else
MyAdd = sRng.Address
SF = sRng.Offset(, -1).Value
Do
If sRng.Offset(, -1).Value = SF Then Max_ = sRng.Offset(, 1).Value
Set sRng = Rng.FindNext(sRng)
Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
Target.Offset(, 1).Value = 1 + Max_
End If
End If
End Sub

nguenson​

Đến tên mình viết còn không đúng thì khó có cái gì đúng được nhỉ.

 

[VetMini]

Code tải từ đâu về thì hỏi nơi ấy chứ.
Nếu không hỏi được thì thôi nhờ GPE viết lại code khác cho khỏe cả đôi bên.

 

[tigertiger]

Option Explicit
Const SoDong% = 3210
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range, sRng As Range
Dim MyAdd$, SF$, Max_%

If Not Intersect(Target, Range("B2:B" & SoDong)) Is Nothing Then
Set Rng = Range("B1:B" & Target.Row - 1)
Set sRng = Rng.Find(Target.Value, , xlFormulas, xlWhole)
If sRng Is Nothing Then
Target.Offset(, 1).Value = 1
Else
MyAdd = sRng.Address
SF = sRng.Offset(, -1).Value
Do
If sRng.Offset(, -1).Value = SF Then Max_ = sRng.Offset(, 1).Value
Set sRng = Rng.FindNext(sRng)
Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
Target.Offset(, 1).Value = 1 + Max_
End If
End If
End Sub

Tốt nhất hỏi tác giả code

 

[SA_DQ]

Có mỗi code, chưa có file để nó tung hoành thì code cũng như hư vô mà thôi;
Chả ai tài giỏi mà qua những câu viết của bạn hình dung bạn sẽ đánh số TT như thế nào(!)