Tự động giản dòng trong Excel - Giúp đỡ (1 người xem)

[nguyenduong109]

Em có một số file muốn thể hiện như file ví dụ. Một sheep sẽ lấy dữ liệu từ một sheep khác nhưng khi ký tự vượt quá ô thi nó không tự động giản hàng mà phải nhấp chuột chỉnh thủ công. (nghĩa là cứ ký tự vượt quá là bên sheep hiển thị tự giản luôn ạ).
Có cao thủ nào giúp em ! Xin cảm ơn !

 

[VMH0307]

Em có một số file muốn thể hiện như file ví dụ. Một sheep sẽ lấy dữ liệu từ một sheep khác nhưng khi ký tự vượt quá ô thi nó không tự động giản hàng mà phải nhấp chuột chỉnh thủ công. (nghĩa là cứ ký tự vượt quá là bên sheep hiển thị tự giản luôn ạ).
Có cao thủ nào giúp em ! Xin cảm ơn !

Bạn thử record lại Macro việc giãn dòng của bạn rồi copy cái macro đó vào sự kiện Activate của Sheet Ho so X là được thôi.
Ví dụ:
code ghi lại có thể là

Cells.Select
Cells.EntireRow.AutoFit
Cells.EntireColumn.AutoFit

 

[vanle33]

Em có một số file muốn thể hiện như file ví dụ. Một sheep sẽ lấy dữ liệu từ một sheep khác nhưng khi ký tự vượt quá ô thi nó không tự động giản hàng mà phải nhấp chuột chỉnh thủ công. (nghĩa là cứ ký tự vượt quá là bên sheep hiển thị tự giản luôn ạ).
Có cao thủ nào giúp em ! Xin cảm ơn !

Ch­ưa hiểu lắm nhưng thấy trong file của bạn
Chỉ cần đặt Wrap text cho các cell của cột B sheet "HO SO X" thì khi link dữ liệu từ sheet "DATA" sang đều tự động giãn cột và dòng của cell đó để vừa kích thước của dữ liệu cell.

 

[huuthang_bd]

Em có một số file muốn thể hiện như file ví dụ. Một sheep sẽ lấy dữ liệu từ một sheep khác nhưng khi ký tự vượt quá ô thi nó không tự động giản hàng mà phải nhấp chuột chỉnh thủ công. (nghĩa là cứ ký tự vượt quá là bên sheep hiển thị tự giản luôn ạ).
Có cao thủ nào giúp em ! Xin cảm ơn !

Code cho Sheet HO SO X

 Private Sub Worksheet_Activate()
    Rows.AutoFit
End Sub

 

[nguyenduong109]

Ch­ưa hiểu lắm nhưng thấy trong file của bạn
Chỉ cần đặt Wrap text cho các cell của cột B sheet "HO SO X" thì khi link dữ liệu từ sheet "DATA" sang đều tự động giãn cột và dòng của cell đó để vừa kích thước của dữ liệu cell.

Mình đã thử rồi chức năng "Wrap text" chỉ có tác dụng khi ta thao tác tại ô đó và "enter" để thoát khỏi ô thì mới có tác dụng. Còn lấy dữ liệu từ ổ khác thì không có tác dụng gì cả bạn à.
Cách của các bạn khác mình sẽ thử xem sao. Cảm ơn nhiều !

 

[nguyenduong109]

Code cho Sheet HO SO X

 Private Sub Worksheet_Activate()
    Rows.AutoFit
End Sub

Cảm ơn bạn nhé mình thành công rồi. Rất tuyệt.
Các bạn lưu ý phải để chức năng "Wrap text" ở các ô cần giản nhé !

 

[nguyenduong109]

Gửi các bạn file nhé !

Xin lỗi mình up file mà không thạo lắm !!!

 

[vc_đi chơi]

Code cho Sheet HO SO X

 Private Sub Worksheet_Activate()
    Rows.AutoFit
End Sub

Code này có tác dụng trong ô đơn vậy trong ô được gộp thì em thấy không được?

 

[huuthang_bd]

Code này có tác dụng trong ô đơn vậy trong ô được gộp thì em thấy không được?

Không có ô đơn thì hãy tạo ra ô đơn có độ rộng bằng độ rộng các ô được gộp, giá trị bằng giá trị ô được gộp.