Phần mềm ôn thi sát hạch chứng chỉ hành nghề xây dựng

Tiêu đề: [VBA Excel] Nhờ viết code VBA đánh số thứ tự bỏ qua vùng ẩn [In trang]

---

Tác giả: vantuan18nd    Thời gian: 13/11/2015 23:17
Tiêu đề: [VBA Excel] Nhờ viết code VBA đánh số thứ tự bỏ qua vùng ẩn
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ề: 1451)

14/11/2015 00:02 Tải lên

Click to download

---

Tác giả: fubi    Thời gian: 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:

DanhSoTHuTu_Autofilter_hideRow.xlsx

14/11/2015 08:04 Tải lên

Click to download

10.79 KB, Lượt tải về: 1609

---

Tác giả: fubi    Thời gian: 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

---

Tác giả: nguyenduong109    Thời gian: 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

---

Tác giả: mingde2k    Thời gian: 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

---

Chào mừng ghé thăm Phần mềm ôn thi sát hạch chứng chỉ hành nghề xây dựng (https://xaydung360.vn/diendan/)

Powered by Discuz! X3.2