Nhờ giúp đỡ cách lập trình tự co dãn khoảng cách trong excel

[phamvienthong]

Em chào mọi người!

Em có một file excel trong đó có nhiều sheet, nhưng các sheet này chứa các cột dữ liệu trong bảng cả theo chiều ngang lần chiều dọc, có nhiều ô, cột, hàng, khoảng cách bị thu hẹp, dẫn tới, bị mất chữ, bị che mất chữ, mà bây giờ em phải xử lý hàng trăm trăm sheet, nếu phải ngồi rồi làm thủ công bằng cách click đúp vào đường biên để excel tự điều chỉnh khoảng cách cho phù hợp, tức là căn vừa đủ để thấy hết dữ liệu, thì rất mất thời gian,

liệu có cách nào để lập trình một nút macro hay module gì đó, kiểu như mình đặt tên cho nó là nút "co dãn" hay gì đó đại loại, mà mình chỉ cần click vào một cái là tất cả các cột, dòng, ô trong tất cả các sheet của file excel sẽ tự động co dãn cho vừa khoảng cách không ạ?

Em mong được mọi người giúp đỡ, em cảm ơn!

 

[phulien1902]

Em chào mọi người!

Em có một file excel trong đó có nhiều sheet, nhưng các sheet này chứa các cột dữ liệu trong bảng cả theo chiều ngang lần chiều dọc, có nhiều ô, cột, hàng, khoảng cách bị thu hẹp, dẫn tới, bị mất chữ, bị che mất chữ, mà bây giờ em phải xử lý hàng trăm trăm sheet, nếu phải ngồi rồi làm thủ công bằng cách click đúp vào đường biên để excel tự điều chỉnh khoảng cách cho phù hợp, tức là căn vừa đủ để thấy hết dữ liệu, thì rất mất thời gian,

liệu có cách nào để lập trình một nút macro hay module gì đó, kiểu như mình đặt tên cho nó là nút "co dãn" hay gì đó đại loại, mà mình chỉ cần click vào một cái là tất cả các cột, dòng, ô trong tất cả các sheet của file excel sẽ tự động co dãn cho vừa khoảng cách không ạ?

Em mong được mọi người giúp đỡ, em cảm ơn!

Điều bạn hỏi liên quan tới AutoFit.
Bạn thử với:

Sub Autofit_abc()
    Dim Ws As Worksheet
    For Each Ws In Worksheets
        With Ws.UsedRange
            .EntireColumn.AutoFit
            .EntireRow.AutoFit
        End With
    Next Ws
End Sub

 

[huuthang_bd]

Em chào mọi người!

Em có một file excel trong đó có nhiều sheet, nhưng các sheet này chứa các cột dữ liệu trong bảng cả theo chiều ngang lần chiều dọc, có nhiều ô, cột, hàng, khoảng cách bị thu hẹp, dẫn tới, bị mất chữ, bị che mất chữ, mà bây giờ em phải xử lý hàng trăm trăm sheet, nếu phải ngồi rồi làm thủ công bằng cách click đúp vào đường biên để excel tự điều chỉnh khoảng cách cho phù hợp, tức là căn vừa đủ để thấy hết dữ liệu, thì rất mất thời gian,

liệu có cách nào để lập trình một nút macro hay module gì đó, kiểu như mình đặt tên cho nó là nút "co dãn" hay gì đó đại loại, mà mình chỉ cần click vào một cái là tất cả các cột, dòng, ô trong tất cả các sheet của file excel sẽ tự động co dãn cho vừa khoảng cách không ạ?

Em mong được mọi người giúp đỡ, em cảm ơn!

Tại bạn làm từng dòng/cột nên mới mất thời gian. Làm cho cả file thì vài giây là xong rồi. Cách làm như sau:

Chọn tất cả các sheet
Chọn cả bảng tính
Click đúp vào 1 vị trí giữa 2 chỉ số dòng để canh chỉnh chiều cao dòng.
Click đúp vào 1 vị trí giữa 2 chỉ số cột để canh chỉnh độ rộng cột.
Xong.

Tôi làm chưa tới 30s.

 

[phamvienthong]

Tại bạn làm từng dòng/cột nên mới mất thời gian. Làm cho cả file thì vài giây là xong rồi. Cách làm như sau:

Chọn tất cả các sheet
Chọn cả bảng tính
Click đúp vào 1 vị trí giữa 2 chỉ số dòng để canh chỉnh chiều cao dòng.
Click đúp vào 1 vị trí giữa 2 chỉ số cột để canh chỉnh độ rộng cột.
Xong.

Tôi làm chưa tới 30s.

Dạ, em cảm ơn ạ!

Nhưng em không hiểu thao tác mình làm như thế nào để: Chọn tất cả các sheet và Chọn cả bảng tính

 

[huuthang_bd]

Dạ, em cảm ơn ạ!

Nhưng em không hiểu thao tác mình làm như thế nào để: Chọn tất cả các sheet và Chọn cả bảng tính

Chọn tất cả các sheet

Chọn cả bảng tính

 

[phamvienthong]

Chọn tất cả các sheet
View attachment 181260
Chọn cả bảng tính
View attachment 181261

Dạ, em làm được rồi ạ, em cảm ơn rất nhiều ạ!