Xem file tôi không thể hiểu được quy tắc đánh số thứ tự. Dường như nó không theo một quy luật nào cả.
Không nói đến số La Mã. Số thứ tự chi tiết bạn tự đánh trong file đính kèm cũng không có quy tắc cụ thể.
Theo cách hiểu của tôi thì là thế này, tuy nhiên trong file dữ liệu có vẻ chưa chuẩn, còn nếu đúng dữ liệu là như vậy thì e rằng không có quy luật nào cả.
=IF(AND(C3<>"",D3=""),ROMAN(COUNTIF($D$3:D3,"")),IF(C3<>"",IF(ISNUMBER(B2),B2+1,1),B2))
Sub Macro1()
Dim eRw As Long, LaMa As Byte, MLon As Long
Dim WF, Cls As Range, Rng As Range
Dim sLama As String
eRw = [C65500].End(xlUp).Row: Set WF = Application.WorksheetFunction
Set Rng = Range([A5], Cells(eRw, "A")): Rng.Value = ""
For Each Cls In Rng
If Left(Cls.Offset(, 1).Value, 2) <> "K" & ChrW(7871) Then
LaMa = LaMa + 1: sLama = WF.Roman(LaMa)
Cls.Value = sLama: MLon = 0
Else
MLon = 1 + MLon
Cls.Value = MLon
End If
Next Cls
End SubBạn giải thích giùm tại sao tại ô A76 không được đánh số thứ tự? Nếu do bạn sơ suất và ô A76 đáng lẽ là số 2 thì bạn dùng Code sau:
Private Sub Worksheet_Activate()
Application.Calculation = xlCalculationManual
Dim Cap1 As Long, Cap2 As Long, Cap3 As Long, Cll As Range, Rng As Range
Set Rng = Range([B10], [B65536].End(xlUp))
Rng.Offset(, -1).ClearContents
For Each Cll In Rng
Select Case Cll.IndentLevel
Case 1
Cap1 = Cap1 + 1
Cap2 = 0
Cll.Offset(, -1).Value = Application.WorksheetFunction.Roman(Cap1)
Case 2
Cap2 = Cap2 + 1
Cap3 = 0
Cll.Offset(, -1).Value = Application.WorksheetFunction.Roman(Cap1) & "." & Cap2
Case 3
Cap3 = Cap3 + 1
Cll.Offset(, -1).Value = Cap3
End Select
Next
Application.Calculation = xlCalculationAutomatic
End Sub
Trường hợp gặp dữ liệu phải đánh số thứ tự là số La Mã xong thì ta đánh tiếp tục hay đánh lại từ 1 vậy bạn ???
Xin chào Bạn !
Chào bạn concogia !
Set Vung = Range([b12], [b10000].End(xlUp)).SpecialCells(12)For I = 1 To Vung.Rows.Count For Each Cls In VungCls.Offset(0, -1) = SLama
...
Cls.Offset(0, -1) = K +1Hihi, Thầy ptm nói đúng "zồi"
