Nhờ giúp đỡ về AutoFit Row

thanhdd đã viết:

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 đỡ

Nhấp chuột vào đây để mở rộng...

le_vis đã viết:

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

Nhấp chuột vào đây để mở rộng...

thanhdd đã viết:

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 ạ

Nhấp chuột vào đây để mở rộng...