Xin giúp đỡ về hàm Số thứ tự (tự động cập nhật sau khi thay đổi số đầu tiên)

[atdng]

Public Function STT() As Long
Dim I As Long


    For I = ActiveCell.Row - 1 To 1 Step -1
        If Not ActiveSheet.Rows(I & ":" & I).Hidden Then Exit For
    Next
    STT = Val(Cells(I, ActiveCell.Column).Value) + 1
End Function

Mình viết CODE trên nhằm có được kết quả là Số thứ tự, chức năng của có sẽ tăng 1 giá trị đối với dòng tiếp theo và bỏ qua dòng ẩn.

CODE trên khi thực hiện đã OK nhưng khi ta ẩn 1 số dòng ở giữa dãy số thứ tự, đáng lẽ số thứ tự sẽ được thay đổi lại nhưng những ô công thức dưới không được thực hiện lại nên không thay đổi. Mình đã bật chức năng Auto Calc nhưng cũng không được.

Xin được sự giúp đỡ từ các Bạn: làm sao để các ô công thức tự động tính toán lại khi ẩn 1 số dòng ở giữa.

 

[ndu96081631]

Public Function STT() As Long
Dim I As Long


    For I = ActiveCell.Row - 1 To 1 Step -1
        If Not ActiveSheet.Rows(I & ":" & I).Hidden Then Exit For
    Next
    STT = Val(Cells(I, ActiveCell.Column).Value) + 1
End Function

Mình viết CODE trên nhằm có được kết quả là Số thứ tự, chức năng của có sẽ tăng 1 giá trị đối với dòng tiếp theo và bỏ qua dòng ẩn.

CODE trên khi thực hiện đã OK nhưng khi ta ẩn 1 số dòng ở giữa dãy số thứ tự, đáng lẽ số thứ tự sẽ được thay đổi lại nhưng những ô công thức dưới không được thực hiện lại nên không thay đổi. Mình đã bật chức năng Auto Calc nhưng cũng không được.

Xin được sự giúp đỡ từ các Bạn: làm sao để các ô công thức tự động tính toán lại khi ẩn 1 số dòng ở giữa.

Thế sao bạn không dùng hàm SUBTOTAL mà lại đi viết hàm tự tạo chi cho mệt vậy?
Chỉ tiết thế nào bạn phải cho file lên đây à nha

 

[atdng]

Mình gởi file đơn giản đây. Xin các Bạn hiểu ý của mình.
Trong file có 12 dòng: STT từ 1 - 12
Mình muốn ẩn từ dòng 5 đến dòng 10, mình muốn các công thức đó được tính toán lại, như vậy số thứ tự sẽ tự động thay đổi và tăng liên tục không ngắt quảng.

Xin nhờ các Bạn giúp đỡ sao cho STT tự động thay đổi lại khi ẩn / hiện một số dòng.

 

[zztantaibazz]

Mình gởi file đơn giản đây. Xin các Bạn hiểu ý của mình.
Trong file có 12 dòng: STT từ 1 - 12
Mình muốn ẩn từ dòng 5 đến dòng 10, mình muốn các công thức đó được tính toán lại, như vậy số thứ tự sẽ tự động thay đổi và tăng liên tục không ngắt quảng.

Xin nhờ các Bạn giúp đỡ sao cho STT tự động thay đổi lại khi ẩn / hiện một số dòng.

Mình hiểu theo ý bạn như vậy. Xem file nhé.

 

[atdng]

Oh, đơn giản vậy mà mình ko biết, cám ơn Bạn đã chia xẻ.