Hỏi về code đánh số thứ tự (1 người xem)

[dtuntanh]

Anh, chị cho em xin code tự động đánh số thứ tự bắt đầu từ cột A1, với điều kiện là khi cột B tương ứng có dữ liệu.

 

[khuongvietphong]

Anh, chị cho em xin code tự động đánh số thứ tự bắt đầu từ cột A1, với điều kiện là khi cột B tương ứng có dữ liệu.

Bạn cứ cho cái File lên

 

[pinklove]

Bạn thử code này xem, với sheet hiện thời là sheet1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range, i As Long, k As Long
Set rng = Sheet1.Range("A1:B" & Sheet1.Range("B65500").End(xlUp).Row)
For i = 1 To rng.Rows.Count
If rng(i, 2) <> "" Then
k = k + 1
rng(i, 1) = k
End If
Next i
End Sub

 

[giaiphap]

Anh, chị cho em xin code tự động đánh số thứ tự bắt đầu từ cột A1, với điều kiện là khi cột B tương ứng có dữ liệu.

Tại ô A1 bạn đặt công thức như sau:

=IF(B1<>"",1,"")

Tại ô A2 bạn đặt công thức như sau:

=IF(B2<>"",A1+1,"")

sau đó copy ô A2 xuống những ô phía dưới

 

[dtuntanh]

Bạn thử code này xem, với sheet hiện thời là sheet1

Cảm ơn bạn, bạn cho mình thêm đoạn code nếu mình xoá dòng thì tự động đánh lại số thứ tự.

 

[phulien1902]

Cảm ơn bạn, bạn cho mình thêm đoạn code nếu mình xoá dòng thì tự động đánh lại số thứ tự.

Bạn thêm dòng này:

Else
            rng(i, 1) = ""

 

[pinklove]

Cảm ơn bạn, bạn cho mình thêm đoạn code nếu mình xoá dòng thì tự động đánh lại số thứ tự.

Với code đó khi bạn xóa dòng thì chỉ cần click vào ô bất kỳ trên sheet số TT cũng tự động đánh lại mà

 

[dtuntanh]

Bạn thêm dòng này:

Else
            rng(i, 1) = ""

Cảm ơn bạn nhiều, nhưng làm thế nào để mình ấn ghi trên form thì số tự động chạy, code trên cứ phải mở vào sheets đó xg ấn chuột thì số thứ tự mới chạy.

 

[phulien1902]

Cảm ơn bạn nhiều, nhưng làm thế nào để mình ấn ghi trên form thì số tự động chạy, code trên cứ phải mở vào sheets đó xg ấn chuột thì số thứ tự mới chạy.

Nếu bạn muốn số thứ tự tự động nhẩy khi nhập DL vào cột B, thì chép cái này vào Sheet1:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range, i As Long, k As Long
Set rng = Sheet1.Range("A1:B" & Sheet1.Range("B65500").End(xlUp).Row)
For i = 1 To rng.Rows.Count
If rng(i, 2) <> "" Then
k = k + 1
rng(i, 1) = k
Else
            rng(i, 1) = ""
End If
Next i
End Sub

Còn nếu bạn muốn dùng nút bấm thì chép cái sau vào Module1:

Sub STT()
    Dim rng As Range, i As Long, k As Long
    Set rng = Sheet1.Range("A1:B" & Sheet1.Range("B65500").End(xlUp).Row)
    For i = 1 To rng.Rows.Count
        If rng(i, 2) <> "" Then
            k = k + 1
            rng(i, 1) = k
        Else
            rng(i, 1) = ""
        End If
    Next i
End Sub

 

[dtuntanh]

Cảm ơn bạn nhiều, nhưng làm thế nào để mình ấn ghi trên form thì số tự động chạy, code trên cứ phải mở vào sheets đó xg ấn chuột thì số thứ tự mới chạy.

- Bạn cho minh xin code xóa dòng có điều kiện với.
VD: Nếu cột A1 sheets1 có số thứ tự là "4" thì sẽ xóa hết những dòng tại sheets2 cột A1:A2000 nếu có số thứ tự trùng với số "4" và khi xóa xong thi dữ liệu tự sắp xếp lại không bị cách nhau và số thứ tự cũng tự động chạy lại. Xin cảm ơn bạn nhiều!