Tự động tăng độ cao của hàng khi wrap text (1 người xem)

[minhtungph]

- Mình có 1 dòng lấy dữ liệu từ sheet khác, mình muốn khi dữ liệu hết hàng thì độ rộng của hàng rộng ra, mình đã tìm nhiều topic nhưng hầu như không có cách giải quyết triệt để, mình cũng dùng thuộc tính: rows[14].autofit; tuy nhiên nó chỉ co lại
- Cái thứ 2 nữa là phần canh đều trong excel, mình đã fomart cell -> alignment ->trong herizontal mình chọn justify, tuy nhiên ô A25 lại bị lỗi so với các ô khác.
- mong các bạn và các anh chị giúp đỡ, mình rất biết ơn

 

[minhtungph]

hy vọng là có người giúp được

 

[mickeybh]

Tính năng này excel có sẵn nhưng nó lại trơ ra khi các ô có Merge.

 

[minhtungph]

mong có cao nhân giúp

 

[thaytu]

Của bạn đây, mình dùng thêm 1 cột phụ có độ rộng bằng tổng các cột sau đó dùng VBA xử lý autofix độ rộng dòng đó

 

[minhtungph]

Của bạn đây, mình dùng thêm 1 cột phụ có độ rộng bằng tổng các cột sau đó dùng VBA xử lý autofix độ rộng dòng đó

cảm ơn bạn đã giúp mình nhưng sao mình thấy nó vẫn vậy mà bạn, không có tăng độ cao của ô khi dữ liệu dài ra, hình như bạn chưa save lại code vba vì nó vẫn là file .xlsx

 

[viehoai]

Của bạn đây, mình dùng thêm 1 cột phụ có độ rộng bằng tổng các cột sau đó dùng VBA xử lý autofix độ rộng dòng đó

Bạn tải file nhầm không? hoặc khi dùng VBA bạn save không để ý nên xóa mất macro rồi?
Chứ có dừng VBA vì đuôi file phải là .xlsm hoặc .xlsa .xlsx không có macro

 

[thaytu]

Nhầm mất, mình gửi lại nhé

 

[minhtungph]

cám ơn bạn thaytu rất nhiều ạ, mình vẫn không hiểu vì sao khi để nhiều ô nó không autofit mà chỉ để trong 1 ô nó mới autofit

 

[thaytu]

Cái này mình cũng không rõ lắm, bữa mình cũng vấp phải trường hợp thế này sau hồi tìm kiếm thì mới biết phương pháp này thôi.

 

[vu_tuan_manh_linh]

cám ơn bạn thaytu rất nhiều ạ, mình vẫn không hiểu vì sao khi để nhiều ô nó không autofit mà chỉ để trong 1 ô nó mới autofit

Vấn đề này có lẽ nên đóng góp ý kiến cho bác Bill, chắc bác ấy sẽ giải quyết tận gốc được!

 

[M@trixs]

Có phương pháp sau đây, bạn tham khảo nhé (mình sưu tầm thôi): Chép vào Modul rồi đặt phím tắt, khi nào sử dụng, chọn dòng (hoặc Ctrl+A để chọn tất cả) cần WrapText (Merge) rồi nhấn phím tắt.

[GPECODE=vb]Sub AutoFitMergedCellRowHeight()
Dim CurrentRowHeight As Single, MergedCellRgWidth As Single
Dim CurrCell As Range
Dim ActiveCellWidth As Single, PossNewRowHeight As Single
Dim iX As Integer
ActiveCell.WrapText = True
If ActiveCell.MergeCells Then
With ActiveCell.MergeArea
If .Rows.Count = 1 And .WrapText = True Then
Application.ScreenUpdating = False
CurrentRowHeight = .RowHeight
ActiveCellWidth = ActiveCell.ColumnWidth
For Each CurrCell In Selection
MergedCellRgWidth = CurrCell.ColumnWidth + _
MergedCellRgWidth
iX = iX + 1
Next
MergedCellRgWidth = MergedCellRgWidth + (iX - 1) * 0.71
.MergeCells = False
.Cells(1).ColumnWidth = MergedCellRgWidth
.EntireRow.AutoFit
PossNewRowHeight = .RowHeight
.Cells(1).ColumnWidth = ActiveCellWidth
.MergeCells = True
.RowHeight = IIf(CurrentRowHeight > PossNewRowHeight, _
CurrentRowHeight, PossNewRowHeight)
End If
End With
End If
End Sub[/GPECODE]

 

[jack nt]

Tính năng này excel có sẵn nhưng nó lại trơ ra khi các ô có Merge.

thì bỏ merge đi, điều chỉnh xong merge lại như cũ (tất nhiên là dùng VBA)

 

[hieuxd]

thì bỏ merge đi, điều chỉnh xong merge lại như cũ (tất nhiên là dùng VBA)

Làm thế này thì hơi tốn công, Không nên định dạng văn bản bên cell. Muốn trình bày đẹp thì qua bên Word
Phải biết kết hợp cell và Word