Excel: cách tự động sửa cột khi khởi động?

Question

Có cách nào để tự động điền tất cả các cột trong trang tính mở có chứa dữ liệu không? Tôi đang tìm một giải pháp mà không phụ thuộc vào sửa đổi trên một tập tin excel nhất định nhưng mà hoạt động trên mọi tập tin excel và chạy trên khởi động excel.

Answer 1

Bạn có thể sử dụng mô-đun đối tượng sẽ nhận được Sự kiện ứng dụng (xem thêm thông tin về Chip Pearson's website).

Đây là mã bạn phải sao chép-dán vào module ThisWorkbook của tập tin PERSONAL.XLSB:

Option Explicit 

Private WithEvents App As Application 

Private Sub Workbook_Open() 
    Set App = Application 
End Sub 

Private Sub App_WorkbookOpen(ByVal Wb As Workbook) 
    'Statement to show that it works 
    MsgBox "Opened Workbook: " & Wb.Name 
    'Statement to autofit columns 
    ActiveSheet.UsedRange.Columns.AutoFit 
End Sub 

Bạn cũng có thể thêm một vòng trên khắp các phiến workbook.