Nhờ Anh chị em Test Code: Tự động tinh chỉnh chiều cao dòng so với Text trong Ô

[hieuxd]

Mình có sử dụng Code sau để điều chỉnh chiều rộng của dòng nhưng Code chạy chậm quá rất mong mọi người Test và chỉnh lại Code giúp mình cho chạy nhanh hơn:
Sub RoswHeight()
Dim i As Long
Sheets("Chinh04").Select
Range("A16:A345").Select
With Selection
.WrapText = True
End With
Selection.Rows.AutoFit
For i = 16 To 345

Sheets("In 04 A").Rows(i).RowHeight = Sheets("Chinh04").Rows(i).RowHeight + 2
Next
Sheets("In 04 A").Select
Range("B18").Select
End Sub

File Đính kèm:
http://www.mediafire.com/?844zjx363ca3ss9

 

[nhapmon]

thêm 2 dòng lệnh này coi nó có khá hơn ko?

Sub RoswHeight()
Application.ScreenUpdating = False
'---------------------------
cod cua bạn
Application.ScreenUpdating = True
End Sub

đọc thêm các tuyệt chiêu của các sư phụ ở đậy
http://www.giaiphapexcel.com/forum/showthread.php?21361-Tăng-tốc-cho-code-VBA-của-bạn

 

[hieuxd]

Cảm ơn bạn mình thử thêm 2 dòng lệnh của bạn thấy Code chạy vẫn chậm lắm. Rất mong các sư phụ sư huynh ra tay.
Đề tài này không phải là đề tài mới. Đọc trên diễn đàn thấy chưa được giải quyết vấn đề điều chỉnh chiều rộng của dòng theo Autofit với dòng chữ. Mình vẫn phải sử dụng đoạn code trên để làm công việc hàng ngày. Mình Áp vào biểu mẫu trên để dùng cho nhiều đợt thanh toán khối lượng lần sau. Mỗi khi mình chạy Code trên thì mất 25 s đủ để mình ra pha một ấm trà mời mọi người uống

 

[Hai Lúa Miền Tây]

Cảm ơn bạn mình thử thêm 2 dòng lệnh của bạn thấy Code chạy vẫn chậm lắm. Rất mong các sư phụ sư huynh ra tay.
Đề tài này không phải là đề tài mới. Đọc trên diễn đàn thấy chưa được giải quyết vấn đề điều chỉnh chiều rộng của dòng theo Autofit với dòng chữ. Mình vẫn phải sử dụng đoạn code trên để làm công việc hàng ngày. Mình Áp vào biểu mẫu trên để dùng cho nhiều đợt thanh toán khối lượng lần sau. Mỗi khi mình chạy Code trên thì mất 25 s đủ để mình ra pha một ấm trà mời mọi người uống

AutoFit là được rồi, đâu cần dùng vòng lặp duyệt qua các dòng, mà chiều cao các dòng của sheet này phải giống sheet kia sao bạn không copy cho nó nhanh.
Tôi chỉnh code của bạn về autofit dòng

Sub Autofit_Row()
 With Sheets("Chinh04").Range("A16:A345")
     .WrapText = True
     .Rows.AutoFit
End With
End Sub

 

[hieuxd]

AutoFit là được rồi, đâu cần dùng vòng lặp duyệt qua các dòng, mà chiều cao các dòng của sheet này phải giống sheet kia sao bạn không copy cho nó nhanh.
Tôi chỉnh code của bạn về autofit dòng

Sub Autofit_Row()
 With Sheets("Chinh04").Range("A16:A345")
     .WrapText = True
     .Rows.AutoFit
End With
End Sub

Cảm ơn Anh nhiều. Ý tưởng của em hơi kỳ quặc một chút. Em còn ứng dụng Code trên để định dạng Autofit cho dòng Merge cells (gộp nhiều ô cells vào một dòng. Khi dùng Autofit cho dòng có Merge cells thì không có tác dụng
Do Anh chưa hiểu ý đồ của em thôi 2 Sheet trên giống nhau về nội dung của một cột thôi. Khi Dùng Autofit thì nét kẻ trên và dưới sát với dòng chữ quá. chiều cao các dòng của sheet này khác sheet kia anh ạ. chiều cao các dòng của sheet này bằng sheet kia + 2.

 

[nhapmon]

file của bạn có quá trời define name, bạn xem cái nào ko xài thì xóa đi cho nhẹ file

 

[hieuxd]

file của bạn có quá trời define name, bạn xem cái nào ko xài thì xóa đi cho nhẹ file

Mình đã xoa hết define name nhưng vẫn chạy rất chậm, Mình nghĩ chạy chậm là do vòng lặp nhiều quá,
Tiện đây Gửi luôn File Autofit cho dòng có có Merge cells ô (gộp ô). để mọi người tham khảo. nếu không autofit cho dữ liệu text biến đổi có thể khi in ra không đọc được hết nội dung trong ô đó. Khi in Trộn tài liệu thường không kiểm soát trước khi in
File đính kèm:
http://www.mediafire.com/?22q9pqyo8o6u8za