Ẩn dòng khi cell có giá trị bằng 0 (1 người xem)

[anhquanpc]

Thưa các anh chị,

Em gởi theo day file dính kèm để nhờ các anh chị chỉ giáo cho. Khi chọn lựa giá trị nhóm ở cell B2, thì các chức danh trong khối tô vàng sẽ hiện ra. Tuỳ theo giá trị ở nhóm B2 mà số lượng các chức danh trong khối tô vàng sẽ nhiều hay ít. Vậy làm sao để những dòng có giá trị bằng 0 tự động ẩn dòng (cho nó gọn gàng, đẹp đẽ) khi thay đổi giá trị của cell B2? Em cũng không rành về VBA, nên nếu có cách nào mà không dùng đển VBA thì em thích hơn. Nếu không có giải pháp nào ngoài VBA thì cho em xin nội dung câu lệnh để tập tành học theo. Em dang dùng excel 2010

Cám ơn các anh chị

 

[sealand]

Dùng Condition Format cũng được.

 

[anhquanpc]

Cam on anh Sealand. Trong truong hop phia ben duoi khoi tô màu vàng còn có phần thông tin khác nữa, thì khi dùng condition format vẩn sẽ xuất hiện những dòng trống nếu số lượng chức danh ít. Ý của em là làm sao để khi có dòng trống (bằng 0) thì tự động dòng đó bị ẩn đi (như chế độ hide dòng)

 

[hoangexcell]

cái này phải dùng thêm lệnh VBA rồi. Trong diễn đàn này có đó , mình hông nhớ ở đâu.

Nghĩ cách sắp xếp bố trí khác thay vì phải hide dòng!? sau phải hide dòng nhỉ?

 

[sealand]

Cam on anh Sealand. Trong truong hop phia ben duoi khoi tô màu vàng còn có phần thông tin khác nữa, thì khi dùng condition format vẩn sẽ xuất hiện những dòng trống nếu số lượng chức danh ít. Ý của em là làm sao để khi có dòng trống (bằng 0) thì tự động dòng đó bị ẩn đi (như chế độ hide dòng)

Bạn nói thế nào chứ mình nghĩ là được. Bạn thử ví dụ không được xem nào.
Nói chung, nên tận dụng cái sẵn có đã trước khi sử dụng cái phức tạp vì cái gì cũng có giá của nó.
Nếu VBA hide dòng chưa chắc hay bằng chép định dạng.

 

[concogia]

Cam on anh Sealand. Trong truong hop phia ben duoi khoi tô màu vàng còn có phần thông tin khác nữa, thì khi dùng condition format vẩn sẽ xuất hiện những dòng trống nếu số lượng chức danh ít. Ý của em là làm sao để khi có dòng trống (bằng 0) thì tự động dòng đó bị ẩn đi (như chế độ hide dòng)

Tốt nhất là bạn đưa file thật hoặc giả định nhưng cấu trúc phải giống thật
Làm tạm cho bạn cái này bằng VBA
Bạn cứ chọn dữ liệu ở B2 rồi xem kết quả
Thân

 

[anhquanpc]

Cam on anh concogia. File mau cua anh lam giong voi y cua em. Em post thep day file that cua em. Trong phần chọn Select department, co nhung phong ban co den 20 chuc danh, trong khi co nhung phong ban chi co 3 chuc danh. Hoac trong phan select job titles, co nhung job title co den gan 70 ten nhan vien, cung co nhung job titles co it ten nhan vien hon. Anh giúp em làm sao để ẩn những dòng trống này.

 

[sealand]

Đã dùng VBA mà còn dùng ẩn dòng lẫn công thức thì mình cho là hạ sách.
Tại sao không chép paste Transpose rẹt 1 cái là xong. Trong khi công thức bạn lại cố định từng dòng vậy thì có 1000 chức danh bạn phải nhập 1000 công thức
Mình tham gia code sau

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cll As Range, Tmp
        If Target.Address = "$B$2" Then
        If Range("Vt").Row > 4 Then Range([a4], _
        Range("Vt").Offset(-1)).Delete Shift:=xlUp
        Set Cll = Sheet2.Columns("A").Find(Target.Value)
        Tmp = Sheet2.Range(Cll.Offset(, 1), Cll.End(xlToRight))
        [a4].Resize(UBound(Tmp, 2) + 1).Insert Shift:=xlDown
        [a4].Resize(UBound(Tmp, 2)) = WorksheetFunction.Transpose(Tmp)
        [a3].Copy
        [a4].Resize(UBound(Tmp, 2) + 1).PasteSpecial Paste:=xlPasteFormats
        Application.CutCopyMode = False: Target.Select
        End If
End Sub