Tự Động Vừa Khít Độ Rộng Của Cột Sau Khi Nhập Dữ Liệu

[ThanhQuang1510]

Mình không biết là trong toppic này đã có bài này chưa.
nếu chưa thì mình chia sẻ
nếu có rồi thì mình post lên xem như là refresh lại bài.

đây là đoạn code đơn giản, giúp rút ngắn các thao tác trong excel.\
copy vào Sheet cần làm
Tự Động Vừa Khít Độ Rộng Của Cột Sau Khi Nhập Dữ Liệu

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

 

[bvtvba]

Cái này là Autofit.
1. Thao tác bằng tay chính là chúng ta click đúp vào cột.
Để chọn toàn vùng dữ liệu trên sheet, bạn click vào góc trên của cells. Sau đó click đúp vào mép cột bất kỳ.

Bạn cần đăng nhập để thấy hình ảnh

Khi đó các bạn sẽ co được các cột có độ rộng vừa với độ dài văn bản có trong các cột.
2. Có thể record macro để tạo ra code.
Kết quả ra được code như sau:

Sub Macro1()
'
' Macro1 Macro
    Cells.EntireColumn.AutoFit
End Sub

Như vậy code ta quan tâm là: Cells.EntireColumn.AutoFit
Bây giờ, các bạn muốn mỗi lần nhập dữ liệu thì chạy autofit như trên, thì bạn tạo thủ tục trên sheet. Chọn sự kiện select change.

Bạn cần đăng nhập để thấy hình ảnh