Cần tự động ẩn hàng với điều kiện dữ liệu trống

[goodwin999]

Hi các bác,
Mình có file excel đính kèm. Mình đang làm việc ở sheet "NGHIEM THU". Khi mình ấn "Spin button" thì dữ liệu tự động cập nhật theo data ở sheet "Danh muc".
1. Vấn đề thứ nhất (ưu tiên), ở đây, khi mình ấn chạy "Spin button" thì mình đang cần tự động ẩn các hàng (B78:I84) nếu hàng đó có dữ liệu trống.



2. Vấn đề thứ hai, khi mình ấn chạy "Spin button" thì mình đang cần tự động giãn (Auto Fit) các dòng B54, B74 và B78:B84 cho phù hợp với dữ liệu.
Nhờ các bác giúp đỡ. Trân trọng!

 

[bebo021999]

1) Alt-F11 mở cửa số VBA, chọn sheet "NGHIEM THU", dán code ở dưới vào.
2) Bạn click chuột phải vào cái Spin Button, assign macro và chọn cái macro này nhé

Option Explicit
Sub spinButton()
Dim cell As Range
Rows("54,74").AutoFit
Rows("78:84").AutoFit
For Each cell In Range("B78:B84")
    With cell.EntireRow
        If cell.Value = "" Then
            .Hidden = True
        Else
            .Hidden = False
        End If
    End With
Next
End Sub

 

[goodwin999]

1) Alt-F11 mở cửa số VBA, chọn sheet "NGHIEM THU", dán code ở dưới vào.
2) Bạn click chuột phải vào cái Spin Button, assign macro và chọn cái macro này nhé

Option Explicit
Sub spinButton()
Dim cell As Range
Rows("54,74").AutoFit
Rows("78:84").AutoFit
For Each cell In Range("B78:B84")
    With cell.EntireRow
        If cell.Value = "" Then
            .Hidden = True
        Else
            .Hidden = False
        End If
    End With
Next
End Sub

Cám ơn bạn nhiều lắm. Vấn đề thứ 1, ẩn hàng rất Oke rồi bạn nhé.
Còn vấn đề thứ 2, chỗ AutoFit thì thấy ko chạy theo dữ liệu thay đổi bạn à.


Chỗ hàng 83 ấy, ô C83: bị thiếu chiều cao hàng nên không hiển thị hết dữ liệu.

Phải như này mới đúng:

 

[bebo021999]

Vì ô cột C,D,E bị merge đồng thời dùng Wrap Text nên nếu dùng Autofit sẽ không có hiệu quả
Với file cụ thể này thì cần lách 1 chút: Vì 2 cột Nội dung (C) và Phương pháp (F) khống chế mức ký tự tối đa là khoảng 19 (len cell = 19), nếu vượt thì xuống dòng, và set độ cao là 51. Nếu ký tự vượt qúa mức mà đòi hỏi set thêm độ cao thì chỉnh 51 thành 70 nhé (Thấy diễn giải của bạn cũng không dài nên mình tạm để mức 51)

 If Len(cell) > 19 Or Len(cell.Offset(0, 3)) > 19 Then .RowHeight = 51

Dù sao thì cách này chưa phải là tối ưu, vì nó chưa autofit ô bị merge, nhưng tạm chấp nhận trong file của bạn.

Option Explicit
Sub spinButton()
Dim cell As Range
Rows("54,74").EntireRow.AutoFit
Rows("78:84").EntireRow.AutoFit
For Each cell In Range("C78:C84")
    With cell
        If cell.Value = "" Then
            .EntireRow.Hidden = True
        Else
            .EntireRow.Hidden = False
            If Len(cell) > 19 Or Len(cell.Offset(0, 3)) > 19 Then .RowHeight = 51
        End If
    End With
Next
End Sub

 

[goodwin999]

Vì ô cột C,D,E bị merge đồng thời dùng Wrap Text nên nếu dùng Autofit sẽ không có hiệu quả
Với file cụ thể này thì cần lách 1 chút: Vì 2 cột Nội dung (C) và Phương pháp (F) khống chế mức ký tự tối đa là khoảng 19 (len cell = 19), nếu vượt thì xuống dòng, và set độ cao là 51. Nếu ký tự vượt qúa mức mà đòi hỏi set thêm độ cao thì chỉnh 51 thành 70 nhé (Thấy diễn giải của bạn cũng không dài nên mình tạm để mức 51)

 If Len(cell) > 19 Or Len(cell.Offset(0, 3)) > 19 Then .RowHeight = 51

Dù sao thì cách này chưa phải là tối ưu, vì nó chưa autofit ô bị merge, nhưng tạm chấp nhận trong file của bạn.

Option Explicit
Sub spinButton()
Dim cell As Range
Rows("54,74").EntireRow.AutoFit
Rows("78:84").EntireRow.AutoFit
For Each cell In Range("C78:C84")
    With cell
        If cell.Value = "" Then
            .EntireRow.Hidden = True
        Else
            .EntireRow.Hidden = False
            If Len(cell) > 19 Or Len(cell.Offset(0, 3)) > 19 Then .RowHeight = 51
        End If
    End With
Next
End Sub

Cám ơn bạn nhiều!
À chỗ AutoFit còn cần ở hàng 54 và 74 nữa. Nên nhờ bạn giúp mình chỉnh code lại tối ưu nhé.

(Hàng 74 không hiển thị hết dữ liệu)

 

[huuthang_bd]

Hi các bác,
Mình có file excel đính kèm. Mình đang làm việc ở sheet "NGHIEM THU". Khi mình ấn "Spin button" View attachment 291420thì dữ liệu tự động cập nhật theo data ở sheet "Danh muc".
1. Vấn đề thứ nhất (ưu tiên), ở đây, khi mình ấn chạy "Spin button" thì mình đang cần tự động ẩn các hàng (B78:I84) nếu hàng đó có dữ liệu trống.

View attachment 291419

2. Vấn đề thứ hai, khi mình ấn chạy "Spin button" thì mình đang cần tự động giãn (Auto Fit) các dòng B54, B74 và B78:B84 cho phù hợp với dữ liệu.
Nhờ các bác giúp đỡ. Trân trọng!

1. Auto filter
2. Cột phụ
Đơn giản mà hiệu quả.

 

[goodwin999]

1. Auto filter
2. Cột phụ
Đơn giản mà hiệu quả.

Thanks bạn! Chỗ cột phụ bạn nói rõ hơn được ko?

 

[cantl]

Tập viết và nghịch code bác bebo tí trong lúc chờ phương án hay hơn nhé, đây là phương án cực nông dân:
thay:
If Len(cell) > 19 Or Len(cell.Offset(0, 3)) > 19 Then .RowHeight = 51

bằng:
Select Case Application.Max(Len(cell), Len(cell.Offset(0, 3)))
' Case Is > 150'so luong ky tu trong ô
' .RowHeight = 140'chieu cao ô, ô càng nhiêu ký tu thi càng cao.
Case Is > 80
.RowHeight = 120
Case Is > 19
.RowHeight = 51
Case Else
.EntireRow.AutoFit
End Select

và tự sửa nếu có thêm kiểu khác (màu đỏ phải giảm dần từ trên xuống) trong lúc chờ đợi.

hết

 

[Maika8008]

Việc tự động điều chỉnh chiều cao dòng thì trong GPE có code rồi, nhưng nếu nhiều dòng thì chạy khá lâu. Cách nhanh nhất là dùng 1 cột phụ có chiều rộng bằng tổng các cột gộp kia rồi dùng code Autofit các dòng.

 

[goodwin999]

1. Auto filter
2. Cột phụ
Đơn giản mà hiệu quả.

Thanks bạn! Bạn nói rõ hơn về 2 ý trên được không?

 

[Maika8008]

Thanks bạn! Bạn nói rõ hơn về 2 ý trên được không?

Trả lời giùm:
Ghi macro
1. AutoFilter ẩn các ô blank
2. Dùng cột phụ như tôi nói ở trên

 

[bebo021999]

Tham khảo thêm code để autofit merged rows của GPE trước đây

Tặng các bạn code AutoFit Row với Merge Cells (nhiều hàng, nhiều cột).

Các bài mà trước đây mà nhiều người viết trong đó có tôi đều cho ra kết quả, nhưng thật sự nó vẫn chưa fit hoàn toàn, có khi dư chiều cao hàng (Height) rất nhiều. Sau khi ngồi tính toán lại tôi viết thủ tục dưới đây, nhằm fit lại những cái chênh lệch đó, đồng thời chúng ta có thể Fit cho các...

www.giaiphapexcel.com

 

[huuthang_bd]

Thanks bạn! Bạn nói rõ hơn về 2 ý trên được không?

Bạn xem trong file nhé.

 

[goodwin999]

Cám ơn tất cả các bác đã giúp đỡ.
Tuy nhiên, vì "1 số lý do" nên mình không thể dùng "Spin button" trong File được nữa. Mình phải nhập tay số data vào ô H1.
Vậy giờ vẫn với 2 vấn đề mỗi lần mình nhập số thay đổi ở H1 thì cần tự động ẩn hàng trống ở những ô (B78:I84) và AutoFit (dùng cột phụ) thì cần chỉnh Code lại như thế nào vậy các bác.
Mình gửi lại File đã xóa Spin button.

 

[goodwin999]

Mình xử lý được vấn đề rồi. Cám ơn tất cả các bác đã nhiệt tình giúp đỡ. Trân trọng!

 

[cantl]

Đang định chỉ thì xong rồi, mỗi tội máy chạy lâu quá.
Chia sẻ anh em cách làm với nào.

Mình xử lý được vấn đề rồi. Cám ơn tất cả các bác đã nhiệt tình giúp đỡ. Trân trọng!

 

[bebo021999]

Chắc là dùng sự kiện Worksheet_Change cho ô H1 thôi

 

[goodwin999]

Đang định chỉ thì xong rồi, mỗi tội máy chạy lâu quá.
Chia sẻ anh em cách làm với nào.

À mình gửi lại File mình đã sửa lại, sử dụng Code của bác Bebo + Cột phụ + Code này

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$H$1" Then
        Call ANDONG
    End If
End Sub

Vừa có Spin Button vừa có thể nhập tay vào ô H1 cũng được. Gửi các bác tham khảo và cho ý kiến. Thanks!