Cần giúp đỡ viết code VBA ẩn dòng trống ko có dữ liệu và co dòng vừa trong trang >>

Cần giúp đỡ viết code VBA ẩn dòng trống ko có dữ liệu và co dòng vừa trong trang theo khống chế chiều cao dòng min và theo Range vùng điều kiện.. có file kèm theo bên dưới

– Nếu từ cột Range("B13:G107") dữ liệu trống sẽ tự động ẩn
– Và khóa phần Range("B108:G116") sẽ dồn vừa đủ trong trang >> có thể co dòng Range("B13:G107") chiều cao tối thiểu của dòng là 14. Nếu Range("B13:G107") đã co chiều cao dòng 14 mà Range("B13:G107") không nằm trong trang thì Vùng Range("B13:G107") chiều cao dòng sẽ dãn ra và thò sang trang mới tối thiểu Range("B108:G116") + thêm 4 dòng sát bên trên sẽ chuyển sang trang mới

Mong các đại ka giúp đỡ!

bạn thử xem, tôi cũng chỉ dzọc thử thôi, đại khái là dồn nó dzô một trang, ko dồn được thì dồn 2, 3 trang

Sub pagsetup()
Dim i, lr
Range([b13], [b107]).EntireRow.Hidden = False

lr = Application.Match(1000, Range("A13:a107"))
If TypeName(lr) <> "Error" Then
    If lr < 107 Then Range("b" & lr - 1, "b107").EntireRow.Hidden = True
End If
    With ActiveSheet.PageSetup
        Do While .Zoom < 90
            i = i + 1
            .PrintArea = "b1:g116"
            .Zoom = False
            .FitToPagesWide = 1
            .FitToPagesTall = i
            ExecuteExcel4Macro ("PAGE.SETUP(,,,,,,,,,,,,{#N/A,#N/A})")
        Loop
    End With
End Sub

Anh ơi! ở trường hợp khi ô I7 kích lên số 1009 thì nó ẩn cả dòng có dữ liệu, kích lên 1010 thì nó ẩn lại không hết.. a sửa lại dùm với.
Ô I7 kích lên 1011 thừa hẳn 1 trang mà nó ko dồn lại anh à
help me! đại ka sửa lại dùm code với! code vẫn bị ẩn dòng có dữ liệu, nó chỉ ẩn mạc định theo code từ dòng 94:107, nếu dòng 93 << ko có giữ liệu nó cũng không ẩn , và nếu dòng 94 >> có giữ liệu thì nó cũng ẩn luôn! mong giúp đỡ..

cái này chỉ ẩn dòng thôi, còn định dạng trang ko chơi….hihiih

Sub pagsetup()
Dim i, lr
Range([b13], [b107]).EntireRow.Hidden = False

lr = Application.Match(1000, Range("b13:b107"))
If TypeName(lr) <> "Error" Then
    If lr < 107 Then Range("b" & lr + 12, "b107").EntireRow.Hidden = True
End If

End Sub

www.giaiphapexcel.com/diendan/threads/c%E1%BA%A7n-gi%C3%BAp-%C4%91%E1%BB%A1-vi%E1%BA%BFt-code-vba-%E1%BA%A9n-d%C3%B2ng-tr%E1%BB%91ng-ko-c%C3%B3-d%E1%BB%AF-li%E1%BB%87u-v%C3%A0-co-d%C3%B2ng-v%E1%BB%ABa-trong-trang.106101/

Khóa học SprinGO phù hợp

Khóa học Power PI – Ứng dung trong Nhân sự

TỔNG QUAN KHÓA HỌC: POWER BI CHO NGÀNH NHÂN SỰ Khóa học Power BI cho Nhân sự được thiết kế dành riêng cho các...

Xem khóa học