Bryan có một sổ làm việc Excel được dùng chung trong văn phòng của anh ấy. Anh ấy đã tạo sổ làm việc và đặt phông chữ mặc định, nhưng ai đó đang thay đổi phông chữ.

Bryan tự hỏi liệu anh ta có thể buộc phông chữ thành phông chữ mong muốn khi đóng sổ làm việc.

Một cách dễ dàng để thực hiện việc này là sử dụng trình xử lý sự kiện BeforeClose cho sổ làm việc. Bạn có thể có trình xử lý bước qua từng trang tính và đặt phông chữ cho tất cả các ô theo cách sau:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim s As Worksheet

For Each s In ActiveWorkbook.Sheets         s.Cells.Font.Name = "Calibri"

Next End Sub

Thao tác này sẽ đặt phông chữ thành Calibri, nhưng bạn có thể thay đổi tên phông chữ nếu cần. Nếu bạn cần thay đổi các đặc điểm phông chữ khác, bạn có thể sửa đổi trình xử lý sự kiện để làm như vậy:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim s As Worksheet

For Each s In ActiveWorkbook.Sheets         With s.Cells.Font             .Name = "Calibri"

.Size = 10         End With     Next End Sub

Tuy nhiên, bạn sẽ cần phải cẩn thận, thay đổi quá nhiều đặc điểm phông chữ, vì bạn có thể sẽ loại bỏ một số chữ bạn muốn giữ lại, chẳng hạn như in đậm hoặc nghiêng.

Hãy nhớ rằng các macro này phải được thêm vào đối tượng ThisWorkbook trong Visual Basic Editor.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (4801) áp dụng cho Microsoft Excel 2007, 2010, 2013 và 2016.