Nhờ giúp đỡ về AutoFit Row

[thanhdd]

Kính nhờ các anh chị

Mình có tạo 1 file để theo dõi công việc. Trong đó có các Sheet: Báo giá - Báo giá hợp đồng - Hợp đồng - Biên bản nghiệm thu cần tự động chỉnh Row Height, tuy nhiên mình mày mò vẫn chưa ra. Thêm vào đó phần VBA là mình mày mò cóp nhặt trên mạng nên có cái chưa chuẩn. Vậy kính mong anh chị trong diễn dàn giúp đỡ

 

[le_vis]

Kính nhờ các anh chị

Mình có tạo 1 file để theo dõi công việc. Trong đó có các Sheet: Báo giá - Báo giá hợp đồng - Hợp đồng - Biên bản nghiệm thu cần tự động chỉnh Row Height, tuy nhiên mình mày mò vẫn chưa ra. Thêm vào đó phần VBA là mình mày mò cóp nhặt trên mạng nên có cái chưa chuẩn. Vậy kính mong anh chị trong diễn dàn giúp đỡ

Bạn chỉnh lại code trong Sheet Hợp đồng như sau rồi chạy thử, nếu OK theo ý thì sửa các bản khác tương tự

Sub CMD1_Click()
DK = CMD1.Caption = "Khong Loc"
With Range("$D$28:$D$49")
If DK Then .AutoFilter Field:=1, Criteria1:="<>" Else .AutoFilter
End With
CMD1.Caption = IIf(DK, "Loc", "Khong Loc")
End Sub

 

[thanhdd]

Bạn chỉnh lại code trong Sheet Hợp đồng như sau rồi chạy thử, nếu OK theo ý thì sửa các bản khác tương tự

Sub CMD1_Click()
DK = CMD1.Caption = "Khong Loc"
With Range("$D$28:$D$49")
If DK Then .AutoFilter Field:=1, Criteria1:="<>" Else .AutoFilter
End With
CMD1.Caption = IIf(DK, "Loc", "Khong Loc")
End Sub

Việc này chỉ quyết quyết đc việc ẩn các dòng trống trong sheet mà không tự động chỉnh đc độ cao của dòng bác ạ

 

[le_vis]

Việc này chỉ quyết quyết đc việc ẩn các dòng trống trong sheet mà không tự động chỉnh đc độ cao của dòng bác ạ

Bạn Nhận lại file và thử lại trên Sheet hợp đồng xem - Tương tự cho các sheet khác