Hỏi về thuộc tính Autofit của colum

[chipvang]

Hi

Mình đang muốn tìm cách là cho độ rộng cột tự rộng ra khi dữ liệu thay đổi mà không phải bấm kép vào tiêu đề cột

Không biết có các macro nào tự làm việc này khi dữ liệu trong cột thay đổi không nhỉ? Mong cả nhà giúp đỡ

Thanks,

 

[huuthang_bd]

Hi

Mình đang muốn tìm cách là cho độ rộng cột tự rộng ra khi dữ liệu thay đổi mà không phải bấm kép vào tiêu đề cột

Không biết có các macro nào tự làm việc này khi dữ liệu trong cột thay đổi không nhỉ? Mong cả nhà giúp đỡ

Thanks,

Có thể dùng code này:

Private Sub Worksheet_Change(ByVal Target As Range)
Target.EntireColumn.AutoFit
End Sub

 

[chipvang]

Xin hỏi là sự kiện này nó xẩy ra khi dữ liệu trong cột thay đổi?
Ví dụ một hàm khác rải số liệu vào một cột, làm sao biết cột đó có đủ rộng để chứa không vì số liệu là kết quả do công thức tính ra?

Mà mình còn muốn phức tạp hơn chút là chỉ có nở ra thôi chứ không có co lại, nghĩa là nếu dữ liệu lớn thì tự nới rộng ra còn nhỏ hơn mức min nào đó thì không làm gì cả?

Không biết có được kông nhỉ?

 

[huuthang_bd]

Xin hỏi là sự kiện này nó xẩy ra khi dữ liệu trong cột thay đổi?
Ví dụ một hàm khác rải số liệu vào một cột, làm sao biết cột đó có đủ rộng để chứa không vì số liệu là kết quả do công thức tính ra?

Mà mình còn muốn phức tạp hơn chút là chỉ có nở ra thôi chứ không có co lại, nghĩa là nếu dữ liệu lớn thì tự nới rộng ra còn nhỏ hơn mức min nào đó thì không làm gì cả?

Không biết có được kông nhỉ?

Nếu bạn chỉ cần Auto ở một cột thì có thể làm như thế này:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rong As Double
Rong = Columns(2).ColumnWidth
Columns(2).AutoFit
If Rong > Columns(2).ColumnWidth Then Columns(2).ColumnWidth = Rong
End Sub

Cột B sẽ tự thay đổi độ rộng.

 

[chipvang]

Có vẻ ổn, để mình thử rồi báo lại nhé.

Thanks,

 

[chipvang]

Cám ơn Hữu Thắng nhé, mình làm được rồi, chạy tốt và đúng ý.

Thanks