Xử lý dòng trong bảng excel

Liên hệ QC

ducvietgdtc

Thành viên chính thức
Tham gia
20/12/15
Bài viết
52
Được thích
0
Tôi có bảng danh sách theo dõi các lớp
lớp 6 có 46 học sinh
lớp 7 có ít hơn 46
Hỏi : Anh (chị) có giải pháp nào để ẩn số dòng trống khi không có dữ liệu và hiện dòng khi có dữ liệu
ví dụ : sổ list lớp 6 thì có 46 dòng cho 46 học sinh
lớp 7 thì chỉ có 28 dòng cho 28 học sinh còn ẩn những dòng ở dưới
Xin cảm ơn.
 

File đính kèm

  • DANH SÁCH THEO DÕI THU CÁC KHOẢN QUỸ.xlsm
    30.5 KB · Đọc: 8
Tôi có bảng danh sách theo dõi các lớp
lớp 6 có 46 học sinh
lớp 7 có ít hơn 46
Hỏi : Anh (chị) có giải pháp nào để ẩn số dòng trống khi không có dữ liệu và hiện dòng khi có dữ liệu
ví dụ : sổ list lớp 6 thì có 46 dòng cho 46 học sinh
lớp 7 thì chỉ có 28 dòng cho 28 học sinh còn ẩn những dòng ở dưới
Xin cảm ơn.
Bạn dùng bộ lọc Filter (icon hình cái Phễu trong menu Data) cho vùng dữ liệu A8 : P54, sau đó kết hợp một code tạo sự kiện khi thay đổi giá trị tại ô G4 thì sẽ tự động filter (Nonblank ẩn các dòng không có dữ liệu tại cột B). Hàng tổng cộng nên dùng Subtotal (với đối số 3 là counta, 9 là sum)
 

File đính kèm

  • Test DANH SÁCH THEO DÕI THU CÁC KHOẢN QUỸ.xlsm
    39.4 KB · Đọc: 5
Tôi có bảng danh sách theo dõi các lớp
lớp 6 có 46 học sinh
lớp 7 có ít hơn 46
Hỏi : Anh (chị) có giải pháp nào để ẩn số dòng trống khi không có dữ liệu và hiện dòng khi có dữ liệu
ví dụ : sổ list lớp 6 thì có 46 dòng cho 46 học sinh
lớp 7 thì chỉ có 28 dòng cho 28 học sinh còn ẩn những dòng ở dưới
Xin cảm ơn.
Chép code này vào nhé. Thay đổi tại G4 dòng tự ẩn các dòng trống. @befaint @VetMini

Mã:
Private Sub Worksheet_Change(ByVal Target As Range)
  On Error Resume Next
    If Not Intersect(Target, Range("G4")) Is Nothing Then
      Application.ScreenUpdating = False
         Dim i As Long
           i = 46 - Application.CountIf(Range("b9:b54"), "") + 9
            Rows("9:54").EntireRow.Hidden = False
              If Range("B54").Value = "" Then
                Rows(i & ":54").Hidden = True
                  End If
                     Application.ScreenUpdating = True
                        End If
                           End Sub
 

File đính kèm

  • Mazda 6.xlsm
    37 KB · Đọc: 5
Bạn dùng bộ lọc Filter (icon hình cái Phễu trong menu Data) cho vùng dữ liệu A8 : P54, sau đó kết hợp một code tạo sự kiện khi thay đổi giá trị tại ô G4 thì sẽ tự động filter (Nonblank ẩn các dòng không có dữ liệu tại cột B). Hàng tổng cộng nên dùng Subtotal (với đối số 3 là counta, 9 là sum)
Cảm ơn những chia sẻ hữu ích của bạn.
 
Hỏi: sau khi ẩn dòng rồi thì làm cách nào cho nó có dữ liệu để hiện dòng trở lại?
Check vào Select all trong filter là hiện lại tất cả dòng. Cái auto filter này thấy đơn giản dễ dùng theo ý của câu hỏi nè anh Vetmini
 
Thêm 1 file tham khảo lọc danh sách từng lớp-
 

File đính kèm

  • GPE.rar
    40.5 KB · Đọc: 9
Web KT
Back
Top Bottom