Tự động thay đổi độ rộng cột (4 người xem)

[legiangnt]

Cho em hỏi, làm cách nào để khi đánh dữ liệu vào thì độ rộng cột tự điều chỉnh cho vừa (tất nhiên là không phải đánh xong lại phải vào lệnh fomat/rows/...)Trang của em phải khóa lại, cột đó chắc chắn là không khóa rồi. Các bác chỉ cho em với !

 

[cadafi]

Cho em hỏi, làm cách nào để khi đánh dữ liệu vào thì độ rộng cột tự điều chỉnh cho vừa (tất nhiên là không phải đánh xong lại phải vào lệnh fomat/rows/...)Trang của em phải khóa lại, cột đó chắc chắn là không khóa rồi. Các bác chỉ cho em với !

Tại ô vừa gõ đó, bạn ấn Alt+O,C,A (nghĩa là Alt+O sau đó ấn C rồi ấn tiếp phím A)

 

[legiangnt]

Em chưa hiểu ý bác vì em làm theo không được. Có cách nào tự động không bác !

 

[Po_Pikachu]

Bạn bấm phải chuột vào tên sheet đó, rồi chọn View Code. Sau khi 1 cửa sổ mới hiện ra, bạn nhập toàn bộ code dưới đây vào.

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Columns(Target.Column).Columns.AutoFit End Sub

Vậy sẽ tự động canh chỉnh độ rộng cột cho bạn! Thân.

 

[chibi]

Hãy dùng sự kiện Worksheet_Change

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    Columns(Target.Column).Columns.AutoFit
End Sub

 

[legiangnt]

Cho em hỏi thêm, có cách nào chỉ áp dụng với 1 số cột nào đó hoặc 1 số dòng nào đó không ?(Có thể liền nhau, không liền nhau). Chờ tin các bác

 

[hoangdanh282vn]

Cho em hỏi thêm, có cách nào chỉ áp dụng với 1 số cột nào đó hoặc 1 số dòng nào đó không ?(Có thể liền nhau, không liền nhau). Chờ tin các bác

Thì bạn thêm If vào :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
    If .Column = 1 Or .Row = 1 or ... Then
        Columns(.Column).Columns.AutoFit
    End If
End With
End Sub