xin giúp đỡ chỉnh sửa hạn chế của code AutoFitMergedCellRowHeight (1 người xem)

[langtuchungtinh360]

nhờ các cao thủ về code có thể sửa hạn chế của code trong file em gửi được không ạ.
em có tham khảo 1 số code trên diễn đàn. và em chỉ chọn được code này áp dụng cho mục đích của em. nhưng lại có hạn chế.
hạn chế em có nêu trong file
https://www.fshare.vn/file/9IITAN7QSJZ5

 

[dovanhoc84]

Chỉ cần thêm mỗi 1 câu vào sub của bạn là ok ngay mà? k cần on/off gì luôn

Sub AutoFitMergedCellRowHeight()
'fix chieu cao
On Error Resume Next
Application.ScreenUpdating = False
Dim CurrentRowHeight As Single, MergedCellRgWidth As Single
Dim CurrCell As Range
Dim ActiveCellWidth As Single, PossNewRowHeight As Single
Dim iX As Integer
If Selection.MergeCells = False Then Exit Sub ' ####Mình cho vào chỗ này #####

 

[SA_DQ]

File không tải được; Vĩnh biệt!