Làm cách nào để đặt chiều rộng cột bảng tính Excel với VBA?

Cập nhật: Tháng 8 năm 2021; Hoạt động trên Excel 365, 2019, 2016.

Trong hướng dẫn tự động hóa Excel hôm nay, chúng ta sẽ tìm hiểu cách thay đổi nhanh độ rộng của cột trang tính khi cần - nhưng theo cách lập trình bằng VBA (Visual Basic for Applications).

Điều kiện tiên quyết

Để viết mã VBA, trước hết bạn cần đảm bảo rằng tab nhà phát triển của bạn đã được bật. Nếu bạn không chắc chắn về thủ tục, hãy đảm bảo xem xét thủ tục chi tiết của chúng tôi .

• Trong máy tính Windows của bạn, hãy mở Microsoft Excel .
• Trên thanh Ribbon chính, nhấn Nhà phát triển .
• Nhấn lệnh Visual Basic . Thao tác này sẽ mở VBA Editor .
• Trong trình khám phá dự án bên tay trái, hãy đánh dấu một trang cụ thể mà bạn sẽ chèn mã của mình vào đó. Ngoài ra, bạn có thể chèn một mô-đun mới hoặc thêm mã của chúng tôi vào một mô-đun VBA hiện có.

Đặt chiều rộng một cột

Trong ví dụ này, chúng tôi sẽ chọn một cột trong Trang tính đang hoạt động và sửa đổi nó cho phù hợp.

• Sử dụng VBA Editor, Sao chép mã sau vào trang tính hoặc mô-đun của bạn.

Sub Set_Column_Width()

Dim MySheet As Worksheet
Set MySheet = ActiveSheet

' Select one or multiple columns, set your column width as needed

With MySheet.Columns("B")

    .ColumnWidth = 50
End With

End Sub

• Chạy mã của bạn bằng cách nhấn F5 hoặc chọn Run >> Run Sub hoặc Form.
• Lưu công việc của bạn bằng cách nhấn Tệp >> Lưu hoặc biểu tượng Đĩa.

Thay đổi chiều rộng của nhiều dải cột

Trong ví dụ này, chúng tôi chọn một dải cột, sau đó thay đổi chiều rộng.

Bạn có thể áp dụng mã theo cách tương tự như được mô tả trong phần trước.

Sub Set_Column_Range_Width()

Dim MySheet As Worksheet

Set MySheet = ActiveSheet

' Set your column width as needed
With MySheet.Range("A:F")

    .ColumnWidth = .ColumnWidth * 1.5
End With

End Sub

Bước tiếp theo

Bắt đầu với VBA? Đảm bảo xem xét kiến thức cơ bản về VBA cho hướng dẫn Excel .