cách tự động điều chỉnh khoảng cách cua các dòng,các cột theo dòng,cột trưước (1 người xem)

[nga xoan]

hello, mọi người giúp nga 1 việc đó là nga muốn điều chỉnh 1 dòng ,cột và các dòng phía dưới tự động thay đổi theo,tks so much

 

[nghiaphuc]

hello, mọi người giúp nga 1 việc đó là nga muốn điều chỉnh 1 dòng ,cột và các dòng phía dưới tự động thay đổi theo,tks so much

Có lẽ cách đơn giản nhất là bạn chọn tất cả các dòng/côt muốn thay đổi kích thước và thay đổi kích thước của một trong những dòng/cột đã chọn.

 

[tvxdgt]

hello, mọi người giúp nga 1 việc đó là nga muốn điều chỉnh 1 dòng ,cột và các dòng phía dưới tự động thay đổi theo,tks so much

Bạn chỉ cần chép đoạn code sau. Tạo module rồi dán vào là xong.

Sub Macro1()
    Cells.Select
    Selection.RowHeight = InputBox("nhap kich thuoc dong")
    Selection.ColumnWidth = InputBox("Nhap kich thuoc cot")
End Sub

 

[nghiaphuc]

Bạn chỉ cần chép đoạn code sau. Tạo module rồi dán vào là xong.

Sub Macro1()
    Cells.Select
    Selection.RowHeight = InputBox("nhap kich thuoc dong")
    Selection.ColumnWidth = InputBox("Nhap kich thuoc cot")
End Sub

Theo mình, việc dùng câu lệnh Cells.Select là không nên, bởi vì ta sẽ định dạng dòng, cột cho cả những vị trí không dùng đến --> thừa.