[Chia sẻ] - Code đánh số thứ tự tự động

[MyVTVforExcel]

Nếu bạn thường xuyên làm việc trên bảng biểu với các dòng dữ liệu ẩn hiện liên tục, việc đánh số thứ tự mất kha khá thời gian thì hãy thử code sau nhé

1. Code 1: Đánh số thứ tự kiểu giá trị
2. Code 2: Đánh số thứ tự kiểu công thức
3. Hướng dẫn đánh số thứ tự tự động bằng video: Đánh số thứ tự tự động trong Excel - YouTube

Sub STTtuDong()

' Danh so thu tu kieu gia tri

  On Error Resume Next

    Dim giatriMsg As Integer

giatriMsg = Application.Assistant.DoAlert("MyVTV for Excel", ("Buoc 1: An cac dong khong can danh STT (neu co)") & vbCrLf & "Buoc 2: Select vung can danh STT sau do chay lenh" & vbCrLf & vbCrLf & ("Ban co muon danh STT tu dong khong? "), 4, 4, 1, 0, 0)

If giatriMsg = 7 Then

GoTo Thoat

End If

    Selection.ClearContents

Dim iSTT

Dim arr1

arr1 = Selection.Value

For i = 1 To Selection.Rows.Count

For j = 1 To Selection.Columns.Count

If Cells(i + Selection.Row - 1, j + Selection.Column - 1).EntireRow.Hidden = False Then

iSTT = iSTT + 1

arr1(i, j) = iSTT

End If

Next j

Next i

Selection.Value = arr1

'-----------

Thoat:

Set arr1 = Nothing

End Sub



Sub DanhSTTBangCongthuc()

  i = Selection.Row

  j = Selection.Rows.Count

giatriMsg1 = Application.Assistant.DoAlert("MyVTV for Excel", ("Selec vung can danh STT sau do chay lenh") & vbCrLf & ("Khi thuc hien loc du lieu hoac an hang, STT se tu dong duoc danh lai") & vbCrLf & vbCrLf & ("Ban muon danh STT tu dong khong? "), 4, 4, 1, 0, 0)

If giatriMsg1 = 7 Then

GoTo Thoat

End If



'-------

Selection.ClearContents

    For k = 1 To j

    Cells(k + i - 1, Selection.Column).FormulaR1C1 = "=AGGREGATE(4,7,R" & i - 1 & "C:R[-1]C)+1"

    Next k

Thoat:

End Sub

 

[befaint]

Mình cho code vào cái thẻ này nhé.