Tự động đánh số thứ tự lại khi xóa số thứ tự nào đó đi (1 người xem)

[chothadiem]

Chào các bạn trên GPE!
Tôi có vấn đề sau về đánh số thứ tự xin nhờ các bạn giúp tôi:
Khi xóa số thứ tự nào đó ở cột B đi thì tự động thay đổi lại số thứ tự
Ví dụ:
Ban đầu số thứ tự được đánh từ ô B3 đến Ô B10 theo số từ 1 đến 8
Nếu xóa số thứ tự ở ô B nào đó thì thứ tự tự động được đánh lại, cụ thể như sau:
+ Ở hàng số 7 xóa số thứ tự ở ô B5 đi thì tự động đánh số thứ tự lại (như hình 2)
+ Ở hàng số 3 xóa số thứ tứ 1 đi thì tự động đánh số thứ tự (như hình 3)
+ Ở hàng số 10 xóa số thứ tự 8 đi thì tự động đánh số thứ tự (như hình 4)

 

[leonguyenz]

Chào các bạn trên GPE!
Tôi có vấn đề sau về đánh số thứ tự xin nhờ các bạn giúp tôi:
Khi xóa số thứ tự nào đó ở cột B đi thì tự động thay đổi lại số thứ tự
Ví dụ:
Ban đầu số thứ tự được đánh từ ô B3 đến Ô B10 theo số từ 1 đến 8
Nếu xóa số thứ tự ở ô B nào đó thì thứ tự tự động được đánh lại, cụ thể như sau:
+ Ở hàng số 7 xóa số thứ tự ở ô B5 đi thì tự động đánh số thứ tự lại (như hình 2)
+ Ở hàng số 3 xóa số thứ tứ 1 đi thì tự động đánh số thứ tự (như hình 3)
+ Ở hàng số 10 xóa số thứ tự 8 đi thì tự động đánh số thứ tự (như hình 4)
View attachment 228173
View attachment 228174
View attachment 228175
View attachment 228176

Tại ô B3, thử gõ công thức sau:

=MAX($B$2:B2)+1

 

[chothadiem]

Tại ô B3, thử gõ công thức sau:

=MAX($B$2:B2)+1

Đúng ý tui! xin cám ơn bạn!

 

[phulien1902]

Chào các bạn trên GPE!
Tôi có vấn đề sau về đánh số thứ tự xin nhờ các bạn giúp tôi:
Khi xóa số thứ tự nào đó ở cột B đi thì tự động thay đổi lại số thứ tự
Ví dụ:
Ban đầu số thứ tự được đánh từ ô B3 đến Ô B10 theo số từ 1 đến 8
Nếu xóa số thứ tự ở ô B nào đó thì thứ tự tự động được đánh lại, cụ thể như sau:
+ Ở hàng số 7 xóa số thứ tự ở ô B5 đi thì tự động đánh số thứ tự lại (như hình 2)
+ Ở hàng số 3 xóa số thứ tứ 1 đi thì tự động đánh số thứ tự (như hình 3)
+ Ở hàng số 10 xóa số thứ tự 8 đi thì tự động đánh số thứ tự (như hình 4)
View attachment 228173
View attachment 228174
View attachment 228175
View attachment 228176

Bạn thử:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim a, i&, k%
    With Sheet1
        Set a = .Range("B3:C" & .Range("C10000").End(3).Row)
    End With
    For i = 1 To a.Rows.Count
        If a(i, 1) <> Empty Then
            k = k + 1
            a(i, 1) = k
        Else
            a(i, 1) = Empty
        End If
    Next
End Sub

 

[chothadiem]

Bạn thử:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim a, i&, k%
    With Sheet1
        Set a = .Range("B3:C" & .Range("C10000").End(3).Row)
    End With
    For i = 1 To a.Rows.Count
        If a(i, 1) <> Empty Then
            k = k + 1
            a(i, 1) = k
        Else
            a(i, 1) = Empty
        End If
    Next
End Sub

Trân trọng cảm ơn anh nhiều!

Bài đã được tự động gộp: 12/11/19

Trân trọng cảm ơn anh nhiều!

Đây là hàm à anh? sử dụng thế nào vậy ạ?