Làm sao ẩn dòng không có dữ liệu trong excel (1 người xem)

[cuongxmen]

Mình đang làm soft quản lý điểm học sinh bằng excel. Mình làm có rất nhiều sheet trong đó có sheet Thi lại. Sau khi nhập xong điểm vào các sheet nếu mà học sinh nào không đủ điều kiện thì phải thi lại. Nhưng những học sinh thi lại Không liền kề nhau. Mình muốn làm code ẩn đi những học sinh không thi lại. chỉ để lại những học sinh thi lại thôi.
Mọi người giúp em nhé. thank all.

 

[dhn46]

Bạn có thee dùng code sau cho 1 button.

Sub Button1_Click()
Dim cls As Range
For Each cls In [b1:b100]    
     If cls = "" Then        
            cls.EntireRow.Hidden = True    
    End If
Next
End Sub

 

[concogia]

Mình đang làm soft quản lý điểm học sinh bằng excel. Mình làm có rất nhiều sheet trong đó có sheet Thi lại. Sau khi nhập xong điểm vào các sheet nếu mà học sinh nào không đủ điều kiện thì phải thi lại. Nhưng những học sinh thi lại Không liền kề nhau. Mình muốn làm code ẩn đi những học sinh không thi lại. chỉ để lại những học sinh thi lại thôi.
Mọi người giúp em nhé. thank all.

Có nhiều Sheet, trong đó có sheet "Thi Lai". Vậy, khi khi lọc danh sách học sinh thi lại ( bằng công thức hoặc code) thì danh sách ấy là liên tục chứ sao lại cách khoảng trống ==> đâu cần viết code để ẩn những dòng này
Bạn có thể đưa file lên, anh em sẽ giúp bạn lọc danh sách học sinh thi lại mà không có khoảng trống đâu
Thân

 

[cuongxmen]

em gửi file excel lên cho các anh, em xem thử xem cách ẩn dòng không có dữ liệu nhé

em gửi một file có dữ liệu, nếu dùng lệnh lọc filter thì đơn giản, làm thủ công nó qua mấy bước cung lâu. em cần là khi nhập dữ liệu vào nếu học sinh ko đủ điều kiện thi lại. thì sheet thi lại sẽ hiện thị học sinh đó và tự động ẩn đi những dòng ko có dữ liệu.
pass: 369

 

[Luc Van]

em gửi một file có dữ liệu, nếu dùng lệnh lọc filter thì đơn giản, làm thủ công nó qua mấy bước cung lâu. em cần là khi nhập dữ liệu vào nếu học sinh ko đủ điều kiện thi lại. thì sheet thi lại sẽ hiện thị học sinh đó và tự động ẩn đi những dòng ko có dữ liệu.
pass: 369

Em cũng định ngó 1 tí, nhưng có pass mà chẳng thấy file gì cả...Chán...

 

[newpalm]

Bạn có thee dùng code sau cho 1 button.

Sub Button1_Click()
Dim cls As Range
For Each cls In [b1:b100]    
     If cls = "" Then        
            cls.EntireRow.Hidden = True    
    End If
Next
End Sub

Hi ban,
Trường hợp mình muốn tạo nút như bạn nhưng muốn bổ sung thêm là khi kich vao lần tiếp theo thì lại hiện trở lại các dòng đã ẩn thì ghép 2 câu lệnh như thế nào? ban làm giúp mình câu lệnh đó được không vì mình không phải dân IT nên không ghép được ma cứ để 2 nú một ẩn một hiên thì hoi khó coi. Thanks

 

[dhn46]

Bạn chọn cả khối dữ liệu rồi unhide là xong chứ code làm gì
Nếu muốn thì bạn tham khảo code

cls.EntireRow.Hidden = false

 

[0167767]

Gộp 2 nút Option lại thành 1

Cho hỏi gộp lại 2 nút như yêu cầu trong file. Cảm ơn

 

[Ba Tê]

Cho hỏi gộp lại 2 nút như yêu cầu trong file. Cảm ơn

Chuyển 2 cái nút Option của bạn thành Command Button cho dễ nhìn nhé.

 

[0167767]

Chuyển 2 cái nút Option của bạn thành Command Button cho dễ nhìn nhé.

Cảm ơn anh nhiều, làm sao Hide thành chữ Ẩn Dòng (hiển thị tiếng việt) và Unhide thành Mở Dòng (hiển thị tiếng việt)