Giúp đỡ Autofit merged cell row height

[duckhongtrung]

Các bác cho e hỏi, e có file như bên dưới,
Giờ làm sao để mỗi lần chuyển giá trị ở ô F6 thì ô B33 đã hòa ô tự autofit dòng theo ạ.
Cảm ơn các pờ rô!

 

[be_09]

Các bác cho e hỏi, e có file như bên dưới,
Giờ làm sao để mỗi lần chuyển giá trị ở ô F6 thì ô B33 đã hòa ô tự autofit dòng theo ạ.
Cảm ơn các pờ rô!

Tham khảo bài viết ở các Link sau:
https://www.giaiphapexcel.com/diendan/threads/tặng-các-bạn-code-autofit-row-với-merge-cells-nhiều-hàng-nhiều-cột.105954/

https://www.giaiphapexcel.com/diendan/threads/tự-động-điều-chỉnh-độ-cao-của-dòng.6773/

https://www.giaiphapexcel.com/diendan/threads/giúp-code-chỉnh-độ-rộng-dòng-theo-ký-tự-trong-ô.124610/

https://www.giaiphapexcel.com/diendan/threads/cần-giúp-đỡ-về-vba-để-tự-động-co-giãn-dòng-trong-biên-bản-nghiệm-thu-xây-dựng.113611/

 

[CHAOQUAY]

Các bác cho e hỏi, e có file như bên dưới,
Giờ làm sao để mỗi lần chuyển giá trị ở ô F6 thì ô B33 đã hòa ô tự autofit dòng theo ạ.
Cảm ơn các pờ rô!

Bạn làm thử thế này xem sao
Di chuột vào tab sheet, nhấn chuột phải, chon view code, chép đoạn code dưới đây vào.
Nhấn alt + Q, rồi thử thay đổi giá trị ô F6 trong phạm vi 1 : 8

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$6" Then
    Dim i, j
    i = Range("g1").ColumnWidth
    Range("g" & 8 + Range("f6") - 1).Columns.AutoFit
    j = Range("g1").ColumnWidth
    Range("b3:d3").ColumnWidth = j \ 3
    Range("g1").ColumnWidth = i
End If
End Sub