Giúp code macro đánh số TT mục lớn là số La Mã (I., II., III.), mục nhỏ là số thường (1., 2., 3.,)

[saugio]

Chào các bạn,
Mình cần giúp mình code đánh số TT tự động các mục lớn là số La Mã: I., II., III., IV....các mục con trong đó đánh số thường: 1., 2., 3....
Điều kiện là chỉ đánh cho các đong đang có trạng thái hiện, các dòng có trạng thái ẩn thì không đánh, số TT của mục ở trang sau sẽ nối tiếp số TT mục cuối cùng của trang trước, nếu mình bung dòng ẩn ra thì STT các mục sẽ thay đổi theo.
Mình đính kèm VD.
Cám ơn các bạn.

 

[hoangkyanh1610]

cũng đang vướng giống bạn

 

[CHAOQUAY]

Chào các bạn,
Mình cần giúp mình code đánh số TT tự động các mục lớn là số La Mã: I., II., III., IV....các mục con trong đó đánh số thường: 1., 2., 3....
Điều kiện là chỉ đánh cho các đong đang có trạng thái hiện, các dòng có trạng thái ẩn thì không đánh, số TT của mục ở trang sau sẽ nối tiếp số TT mục cuối cùng của trang trước, nếu mình bung dòng ẩn ra thì STT các mục sẽ thay đổi theo.
Mình đính kèm VD.
Cám ơn các bạn.

cũng đang vướng giống bạn

Bạn test thử xem sao
Để chạy code này, bạn phải chỉnh lại sheet name trong cửa sổ vbe liên tục bắt đầu từ 1 đến hết theo thứ tự sheet cần đặt ký tự la mã

Sub DanhSoThuTu()
Dim i, j, k
For i = 1 To Worksheets.Count
    Sheets("sheet" & i).Activate
    For j = 4 To Range("b1000000").End(xlUp).Row
        If Range("b" & j).RowHeight <> 0 Then
            If Len(Range("b" & j)) > 2 Then
                k = k + 1
                Range("a" & j) = "=roman(" & k & ")"
            End If
        Else
            Range("a" & j) = ""
        End If
    Next j
Next i
End Sub

 

[HieuCD]

Bạn test thử xem sao
Để chạy code này, bạn phải chỉnh lại sheet name trong cửa sổ vbe liên tục bắt đầu từ 1 đến hết theo thứ tự sheet cần đặt ký tự la mã

Sub DanhSoThuTu()
Dim i, j, k
For i = 1 To Worksheets.Count
    Sheets("sheet" & i).Activate
    For j = 4 To Range("b1000000").End(xlUp).Row
        If Range("b" & j).RowHeight <> 0 Then
            If Len(Range("b" & j)) > 2 Then
                k = k + 1
                Range("a" & j) = "=roman(" & k & ")"
            End If
        Else
            Range("a" & j) = ""
        End If
    Next j
Next i
End Sub

Còn số 1. 2.

 

[CHAOQUAY]

Còn số 1. 2.

Bác nhắc mới nhớ. Một phần cũng là do đọc trong file chỉ nói đến số la mã nên quên hẳn.
Giờ muộn rồi chắc mai code lại gửi thớt vậy

 

[CHAOQUAY]

@saugio , @hoangkyanh1610
Gửi bạn đoạn code đã hiệu chỉnh, yêu cầu đặt tên sheet vẫn như bài trước

Sub DanhSoThuTu_()
Dim i, j, k, x
For i = 1 To Worksheets.Count
    Sheets("sheet" & i).Activate
    For j = 4 To Range("c1000000").End(xlUp).Row
        If Range("a" & j).RowHeight <> 0 Then
            If Range("c" & j) = "" Then
                If Range("b" & j) <> "" Then
                    k = k + 1
                    Range("a" & j) = "=roman(" & k & ")"
                    
                    x = 0
                End If
            Else
                x = x + 1
                Range("b" & j) = x
            End If
        End If
    Next j
Next i
End Sub

 

[HieuCD]

@saugio , @hoangkyanh1610
Gửi bạn đoạn code đã hiệu chỉnh, yêu cầu đặt tên sheet vẫn như bài trước

Sub DanhSoThuTu_()
Dim i, j, k, x
For i = 1 To Worksheets.Count
    Sheets("sheet" & i).Activate
    For j = 4 To Range("c1000000").End(xlUp).Row
        If Range("a" & j).RowHeight <> 0 Then
            If Range("c" & j) = "" Then
                If Range("b" & j) <> "" Then
                    k = k + 1
                    Range("a" & j) = "=roman(" & k & ")"
                   
                    x = 0
                End If
            Else
                x = x + 1
                Range("b" & j) = x
            End If
        End If
    Next j
Next i
End Sub

Dữ liệu chưa nhập đầy đủ, nếu các dòng trống nhập liệu vào cột C sẽ khó xử lý

 

[CHAOQUAY]

Dữ liệu chưa nhập đầy đủ, nếu các dòng trống nhập liệu vào cột C sẽ khó xử lý

Không hiểu rõ ý bác lắm.
Trong file mẫu thì thấy cột C, dòng nào có dữ liệu thì điền số 123..., rỗng thì xét cột B nếu <> rỗng thì điền I, II, III... nên mới code vậy bác.

 

[HieuCD]

Không hiểu rõ ý bác lắm.
Trong file mẫu thì thấy cột C, dòng nào có dữ liệu thì điền số 123..., rỗng thì xét cột B nếu <> rỗng thì điền I, II, III... nên mới code vậy bác.

Thông thường văn bản được trình bày như trong file

 

[CHAOQUAY]

Thông thường văn bản được trình bày như trong file

Việc này có lẽ chờ xem thớt phân hạng mục theo cách nào mới chốt được bác ah.
Nếu không có quy ước gì thì có lẽ số thứ tự sẽ đánh lộn bậy mất.

 

[saugio]

Cám ơn các bạn đã xem giúp.
Đánh số thứ tự theo nguyên tắc: mỗi 1 cấp thụt vô 1 cột rồi mới đánh số (file đính kèm).

 

[CHAOQUAY]

Cám ơn các bạn đã xem giúp.
Đánh số thứ tự theo nguyên tắc: mỗi 1 cấp thụt vô 1 cột rồi mới đánh số (file đính kèm).

Thế à bạn