Định dạng Cell

[langthangmang]

Chào các bạn !
Nhờ các bạn giúp dùm đoạn Code để định dạng cell như file đính kèm
Xin cảm ơn các bạn

 

[salam]

Bạn chọn cột C, vào format cells... chọn thẻ Alignment, chọn Wrap text, Chọn OK.

 

[langthangmang]

Chào bạn Salam
Cám ơn bạn nhưng khi dữ liệu ngắn lại thì row Heigth không trở về như ban đầu -bạn xem và giúp dùm nhé như yêu cầu trong file.
Thân

 

[hoangdanh282vn]

Chào bạn Salam
Cám ơn bạn nhưng khi dữ liệu ngắn lại thì row Heigth không trở về như ban đầu -bạn xem và giúp dùm nhé như yêu cầu trong file.
Thân

Chọn sheet cần thao tác, bấm Alt+F11 để vàn màn hình soạn thảo code, paste đoạn code này vào. Giả sử cột 3 là cột cần thao tác.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 3 Then
    Target.EntireColumn.WrapText = True
    Target.EntireRow.AutoFit
End If
End Sub

 

[langthangmang]

Rất cảm ơn bạn, bạn giải quyết đúng vấn đề của mình . Nếu có thể bạn giúp mình thêm là thay sự kiện ngoài SelectionChange để khi Sheet("MAC")select thì sẽ thay đổi định dạng ngay mà không cần phải active vào đó ?
Thân

 

[hoangdanh282vn]

Rất cảm ơn bạn, bạn giải quyết đúng vấn đề của mình . Nếu có thể bạn giúp mình thêm là thay sự kiện ngoài SelectionChange để khi Sheet("MAC")select thì sẽ thay đổi định dạng ngay mà không cần phải active vào đó ?
Thân

Thế thì thêm sự kiện Worksheet_Active nữa nha.

Private Sub Worksheet_Activate()
Columns(3).WrapText = True
Rows.AutoFit
End Sub