Tự động giãn dòng khi nội dung thay đổi

[Phạm Hoàng Linh1]

Mình viết code in tự động. Code đã chạy được. Trong sheet "2Tp" và "3TP" mình muốn phần phụ lục khối lượng tự động giãn dòng khi nội dung thay đổi. Ae giúp mình với

 

[Maika8008]

Mình viết code in tự động. Code đã chạy được. Trong sheet "2Tp" và "3TP" mình muốn phần phụ lục khối lượng tự động giãn dòng khi nội dung thay đổi. Ae giúp mình với

Trong code của sheet 2TP bạn thêm sub sau:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("D109:G130")) Is Nothing Then
        MergeCellFit Target
    End If
End Sub

Tương tự, trong code của sheet 3TP:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("D110:G130")) Is Nothing Then
        MergeCellFit Target
    End If
End Sub

 

[Phạm Hoàng Linh1]

Trong code của sheet 2TP bạn thêm sub sau:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("D109:G130")) Is Nothing Then
        MergeCellFit Target
    End If
End Sub

Tương tự, trong code của sheet 3TP:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("D110:G130")) Is Nothing Then
        MergeCellFit Target
    End If
End Sub

mình đã thêm code và kết quả như này. Bạn xem hộ mình còn ở đâu. Thanks bạn

 

[Maika8008]

mình đã thêm code và kết quả như này. Bạn xem hộ mình còn ở đâu. Thanks bạn

Không hiểu hỏi gì? Bạn gửi lại file coi!

 

[Phạm Hoàng Linh1]

Mình gửi lại file. Thanks bạn

 

[Maika8008]

Mình gửi lại file. Thanks bạn

Code chạy tốt trên máy tôi. Bạn xem lại máy bạn, có khi bị vô hiệu hóa sự kiện rồi.
Dán sub này vào và chạy nó:

Sub EnableSK()
Application.EnableEvents = True
End Sub

Sau đó xem lại tự động giãn dòng có tác dụng không?

 

[HeSanbi]

Phạm Hoàng Linh1 Bạn có thể tham khảo code bên bài viết này:​

Siêu hàm Excel - Tự động co giãn dòng tối ưu nhất cho Văn bản và Biên bản

Hôm nay tôi lại chia sẻ cho các bạn một Hàm VBA UDF có chức năng tự động co giãn dòng khi giá trị trong bảng tính thay đổi, thì quá trình co giãn dòng cũng tự động thay đổi theo. Code bên dưới là phiên bản đầu nên có thể gặp một số lỗi nhất định, nên khi tham khảo thì các bạn nên kiểm trước, nếu...

giaiphapexcel.com