Không cho hiện những dòng trắng ở cuối bảng tổng hợp

[titanic20072007]

Mình có một tình huống này muốn hỏi các bạn.
Giả sử có một bảng tính gồm 2 trang, trang DL đc thiết kế và định dạng để lưu tối đa thông tin 24 người.Còn trang TH là trang lấy dữ liệu từ trang DL. Nhưng nếu chỉ nhập ở trang DL ít hơn 24 người thì bên trang TH các dòng còn lại không có dữ liệu. Nếu mình in ra giấy thì những dòng trống này cũng đc in ra. Vậy hỏi các bạn có cách nào để trang TH tự động chỉ hiển thị những dòng có dữ liệu còn các dòng không có dữ liệu thì bị ẩn đi. Mình thử lọc thì mỗi lần phải chọn lọc như vậy những người không thạo khó làm lắm. Cmar ơn. Tệp mẫu đây các bạn hộ mình với.

 

[concogia]

Mình có một tình huống này muốn hỏi các bạn.
Giả sử có một bảng tính gồm 2 trang, trang DL đc thiết kế và định dạng để lưu tối đa thông tin 24 người.Còn trang TH là trang lấy dữ liệu từ trang DL. Nhưng nếu chỉ nhập ở trang DL ít hơn 24 người thì bên trang TH các dòng còn lại không có dữ liệu. Nếu mình in ra giấy thì những dòng trống này cũng đc in ra. Vậy hỏi các bạn có cách nào để trang TH tự động chỉ hiển thị những dòng có dữ liệu còn các dòng không có dữ liệu thì bị ẩn đi. Mình thử lọc thì mỗi lần phải chọn lọc như vậy những người không thạo khó làm lắm. Cmar ơn. Tệp mẫu đây các bạn hộ mình với.

RightClick vào sheet "TH"==> ViewCode==> chép cái này vào

Private Sub Worksheet_Activate()
 Application.ScreenUpdating = False
    Dim Vung As Range, Ws As Worksheet
        [a2].CurrentRegion.Clear
        Set Ws = Sheets("DL")
        Set Vung = Ws.Range(Ws.[a2], Ws.[e25])
            Ws.Range("c:d").EntireColumn.Hidden = True
                With Vung
                    .AutoFilter 2, "<>"
                    .SpecialCells(12).Copy [a2]
                    .AutoFilter
                End With
            Ws.Cells.EntireColumn.Hidden = False
  Application.ScreenUpdating = True
End Sub

Cứ nhập bên sheet "DL" xong sang sheet "TH" xem kết quả

 

[titanic20072007]

Cảm ơn bạn. Bạn có thể giải thích các lệnh đó được không. Mình không hiểu về VB lắm. Mình định vận dụng cho nhiều cột trong TH thì làm thế nào?

 

[concogia]

Cảm ơn bạn. Bạn có thể giải thích các lệnh đó được không. Mình không hiểu về VB lắm. Mình định vận dụng cho nhiều cột trong TH thì làm thế nào?

Ở Sheet "TH" mình sử dụng sự kiện Worksheet Activate ==> tức là mình ra lệnh cho nó làm công việc này:
chọn những hàng nào có dữ liệu trong vùng A2:E25 của sheet "DL" đem sang sheet"TH"
mỗi khi mình chọn vào sheet "TH"
Hy vọng bạn hiểu
Thân

 

[titanic20072007]

Ở Sheet "TH" mình sử dụng sự kiện Worksheet Activate ==> tức là mình ra lệnh cho nó làm công việc này:
chọn những hàng nào có dữ liệu trong vùng A2:E25 của sheet "DL" đem sang sheet"TH"
mỗi khi mình chọn vào sheet "TH"
Hy vọng bạn hiểu
Thân

Cảm ơn concogia mình đã áp dụng được cho nhiều dòng và nhiều cột rồi.
Nhưng nếu mình muốn ở trang TH nó tự động cộng tổng các cột nào đó theo những dòng vừa đưa sang thì làm thế nào?

 

[NguyenNghiQNI]

Trong Excell , ngoài vùng có số liệu (A1: G1) tôi muốn các vùng còn lại đều không được nhìn thấy (con trỏ không di dời ra khỏi vùng A1: G1) thì làm như thế nào. Ai biêt chỉ giùm tôi với, cám ơn nhiều
NguyenNghiQNI@gmail.com

 

[concogia]

Trong Excell , ngoài vùng có số liệu (A1: G1) tôi muốn các vùng còn lại đều không được nhìn thấy (con trỏ không di dời ra khỏi vùng A1: G1) thì làm như thế nào. Ai biêt chỉ giùm tôi với, cám ơn nhiều
NguyenNghiQNI@gmail.com

Right Click vào sheet muốn làm chuyện đó==> View Code ==> chép cái này vào thử xem

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Union(Range("a2:iv1000"), Range("h1:iv1"))) Is Nothing Then
    [a1].Select
    End If
End Sub

Anh Tý chỉ chơi vòng vòng từ A1 đến G1 thôi
Nhưng mà làm cái này để chi "zị"?
Chẳng lẽ lúc cần sử dụng cả bảng tính lại xóa code đi à
Híc