CHI TIẾT | TỰ ĐỘNG đánh số thứ tự khi có dòng dữ liệu mới phát sinh sử dụng VBA Excel | NAM EXCEL 

Cảm ơn Tân đã phản hồi

Phần này sẽ được khắc phục trong video sau nha bạn

@@ExcelSTech Mình đã làm được. đưa code lên mong mọi người góp ý: Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer i = Range("B" & Rows.Count).End(xlUp).Row If Not Intersect(Target, Range("B2:B100")) Is Nothing Then Cells(i, 1) = Excel.WorksheetFunction.Subtotal(3, Range("B2:B" & i)) End If End Sub

Cảm ơn bạn, bên mình đang cố gắng để có thể quay lại làm các video chia sẻ tiếp sau khi dừng khoảng 1 năm, mong được mọi người ủng hộ

Private Sub Worksheet_Change(ByVal Target As Range) Dim rangechange As Range Set rangechange = Range("B:B") 'Cot lam can cu danh so thu tu Dim i As Integer, STT As Integer STT = 1 If Not Intersect(rangechange, Range(Target.Address)) Is Nothing Then 'neu o B duoc dien du lieu Range("a2:a" & Rows.Count).ClearContents 'Xoa tat ca stt cu da duoc danh For i = 2 To Range("b" & Rows.Count).End(xlUp).Row ' Tim dong cuoi co DL trong cot B If Range("b" & i).Value "" Then ' Neu o B khong trong Range("a" & i).Value = STT STT = STT + 1 End If Next i End If End Sub Cách sửa: Bạn thay đổi giá trị của i chạy từ dòng bắt đầu (trường hợp của bạn là 5, thì for i = 5 to ....

Code sau khi sửa "Private Sub Worksheet_Change(ByVal Target As Range) Dim rangechange As Range Set rangechange = Range("B:B") 'Cot lam can cu danh so thu tu Dim i As Integer, STT As Integer STT = 1 If Not Intersect(rangechange, Range(Target.Address)) Is Nothing Then 'neu o B duoc dien du lieu Range("a2:a" & Rows.Count).ClearContents 'Xoa tat ca stt cu da duoc danh For i = 5 To Range("b" & Rows.Count).End(xlUp).Row ' Tim dong cuoi co DL trong cot B If Range("b" & i).Value "" Then ' Neu o B khong trong Range("a" & i).Value = STT STT = STT + 1 End If Next i End If End Sub"

Wow, rất nhiệt tình. Mình là được rồi. Cảm ơn bạn nhiều nhé

Bạn xóa từng ô thì code hiện tại đã đáp ứng rồi b nhé

@@ExcelSTech cảm ơn nhé

Có bạn nhé, mình sẽ làm video chi tiết

Có bạn nhé, mình sẽ làm video chi tiết

Rất chính xác, cảm ơn anh, anh còn có muốn biết thêm tính năng nào không?