Số thứ tự và kẻ dòng tự động

[blackhat8x]

Nhờ các anh chị giải hộ bài toán :
e đang muốn đánh số tự động và kẻ dòng tự động
ví dụ có 3 cột:
A4 : STT
B4 : Họ Tên
C4 : Năm sinh
Nếu nhập họ tên ở B5 thì A5 tự động đánh thứ tự là 1 và kẻ dòng. Nếu tiếp tục nhập B6 thì A6 tự động đánh là 2 và kẻ 1 dòng tiếp dưới khi đó dòng trên nó sẽ là dòng kẻ nhạt dòng dưới cùng của bảng sẽ là dòng đậm.
Tương tự nhập đến B12 thì A12 sẽ đánh số thứ tự tương ứng và kẻ dòng đậm ở dưới cùng. Nhưng nếu bỏ đi 1 hàng nào đó thì bảng sẽ tự động nhảy lên thế vào chỗ trống và số thứ tự sẽ vẫn phải liền mạch từ 1 đến hết..!

 

[blackhat8x]

Đã tự giải được rồi..! Phù phù..!

 

[3rackobama]

Đã tự giải được rồi..! Phù phù..!

Bạn làm thế nào vậy? chỉ mình với.... thanks

 

[ngocdai2988]

uM...Làm đc bạn post lên a e xem với

 

[NH_DK]

uM...Làm đc bạn post lên a e xem với

Bạn sự kiện này nhé (Với những gì bạn @blackhat8x đã mô tả)!

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim dongdau&, j&, iR&
    iR = Range("B1000").End(3).Row
    Application.ScreenUpdating = False
    On Error Resume Next
    If Not Intersect(Range("B5:B1000"), Target) Is Nothing Then
        If Target <> "" Then
            dongdau = 5
            For j = dongdau To iR
                Cells(j, 1) = j - dongdau + 1
            Next
            With Range("A" & dongdau - 1 & ":C" & iR).Offset(1)
                .BorderAround LineStyle:=1
                .Borders(11).LineStyle = 1: .Borders(11).ColorIndex = 1
                .Borders(12).LineStyle = 1: .Borders(12).ColorIndex = 1: .Borders(xlInsideHorizontal).Weight = xlHairline '.Weight = xlThin
                .Weight = xlMedium
            End With
        End If
    End If
    Application.ScreenUpdating = True
End Sub

 

[blackhat8x]

Đúng rồi giống bác NH_DK mô tả đó bạn..!

 

[quynhnga90tlhp]

hic.bac oi.em ko hieu

 

[JinRua]

Cho em hỏi với: Tại sao em copy code vào Worksheet rồi mà ấn alt+F8 không thấy có. Hướng dẫn em cách copy code với. Còn nữa, khi em mở 2 files để dùng chuột trái di code từ file này sang file kia lại không được? Phải làm thế nào để chép được code sang fil khác? Các Bác giúp em với!