[VBA Excel] Nhờ viết code VBA đánh số thứ tự bỏ qua vùng ẩn

vantuan18nd · Đăng lúc 13/11/2015 23:17

Hãy đăng nhập để có nhiều chức năng hữu dụng hơn và xem ảnh rõ hơn!

Bạn phải đăng nhập để xem được nội dung, nếu bạn chưa có tài khoản? hãy Đăng ký mới

x

Nhờ Anh/chị viết giúp em cái code như tiêu đề đã nêu:
Đánh số thứ tự trong một cột từ 1 đến n (bắt đầu đánh từ ô đang trỏ chuột) với điều kiện bỏ qua các dòng bị ẩn đi
Trân trọng cảm ơn !
File đính kèm:

Danh STT qua vung van.xlsm (8.65 KB, Lượt tải về: 1272)

fubi · Đăng lúc 14/11/2015 08:04

Nguyên tắc của lập code VBA:
- Hãy tận dụng tối đa khả năng mạnh mẽ có sẵn của Excel trước khi nghĩ đến lập code.
- Và đây là cái đã có sẵn trong excel để giải quyết vấn đề của bạn: dùng hàm Subtotal

Bạn Xem đính kèm hiểu ngay:

fubi · Đăng lúc 14/11/2015 08:17

fubi gửi lúc 14/11/2015 08:04
Nguyên tắc của lập code VBA:
- Hãy tận dụng tối đa khả năng mạnh mẽ có sẵn của Excel ...

Còn nếu muốn code VBA thì nó đây bạn ơi:

[Visual Basic] 纯文本查看 复制代码

Public Sub STT()
    Dim intSott As Integer
    Dim rngOcell As Range
    For Each rngOcell In Range("B3:B20") ' thay doi vung o nay theo y muon cua ban cho phu hop
        If rngOcell.EntireRow.Hidden = False Then
            intSott = intSott + 1
            rngOcell.Value = intSott
        End If
    Next
End Sub

nguyenduong109 · Đăng lúc 29/4/2019 17:20

Ad muốn bản code. Mọi người cứ úp file dùng hàm thông thường

mingde2k · Đăng lúc 7/4/2020 22:02

fubi gửi lúc 14/11/2015 08:17
Còn nếu muốn code VBA thì nó đây bạn ơi:

[mw_shl_code=vb,true]Public Sub STT()

Bác cho em hỏi nếu muốn viết cho cột G để đếm dữ liệu ở cột H thì sao ạ
đề như trên luôn ạ
em cảm ơn

Tài khoản		Ghi nhớ?	Quên mật khẩu
Mật khẩu			Đăng ký mới

[VBA Excel] Nhờ viết code VBA đánh số thứ tự bỏ qua vùng ẩn

Hãy đăng nhập để có nhiều chức năng hữu dụng hơn và xem ảnh rõ hơn!

Đánh giá

Đánh giá

[VBA Excel] Nhờ viết code VBA đánh số thứ tự bỏ qua vùng ẩn

Hãy đăng nhập để có nhiều chức năng hữu dụng hơn và xem ảnh rõ hơn!

Đánh giá

Đánh giá

Cảm ơn!

Cảm ơn!