Nếu bạn làm việc với các sổ làm việc do đồng nghiệp của bạn làm việc lần đầu, bạn có thể bực bội vì hệ số thu phóng được những người khác áp dụng cho các sổ làm việc đó. Ví dụ, nếu đồng nghiệp của bạn (Wanda) có một màn hình lớn, sẽ không có gì lạ khi cô ấy giảm hệ số thu phóng trên Excel xuống 75% hoặc thậm chí 60%. Tất nhiên, mục đích là vì vậy cô ấy không bị khuất phục bởi những thứ trông rất lớn ở hệ số thu phóng đầy đủ.

Vấn đề là hệ số thu phóng được lưu với sổ làm việc. Do đó, khi Wanda lưu sổ làm việc và giao nó cho bạn, khi bạn mở nó, sổ làm việc vẫn được hiển thị ở bất kỳ hệ số thu phóng nào mà Wanda sử dụng lần cuối.

Nếu bạn không có màn hình cùng kích thước như Wanda, thì sổ làm việc có thể gần như không đọc được trên hệ thống của bạn.

Chỉ có hai giải pháp khả thi cho vấn đề này. Trước tiên, bạn có thể chỉ cần điều chỉnh hệ số thu phóng khi bạn mở sổ làm việc. Có vô số cách để thực hiện việc này, nhưng cách dễ nhất là cài đặt Thu phóng trên thanh công cụ Định dạng hoặc sử dụng con lăn trên chuột của bạn. (Trên một số hệ thống, bạn có thể cần phải giữ phím Ctrl để con lăn điều chỉnh hệ số thu phóng.)

Cách giải quyết thứ hai là tạo macro được lưu với sổ làm việc. Macro có thể chạy mỗi khi mở sổ làm việc, và do đó đặt hệ số thu phóng. (Macro này nên được thêm vào cửa sổ mã This Workbook trong trình soạn thảo VBA.)

Private Sub Workbook_Open()

ActiveWindow.Zoom = 100 End Sub

Tất nhiên, vấn đề duy nhất với một macro như thế này là bất cứ khi nào Wanda (đồng nghiệp của bạn) mở sổ làm việc trên hệ thống của cô ấy, hệ số thu phóng cũng được đặt và cô ấy sẽ thất vọng với bạn giống như bạn đã làm với cô ấy.

Có lẽ giải pháp là tạo một macro liên quan hơn — một macro kiểm tra độ phân giải màn hình hiện tại và sau đó đặt hệ số thu phóng cho phù hợp.

Ví dụ: macro sau có thể được sử dụng để thực hiện các điều chỉnh dựa trên độ phân giải:

Declare Function GetSystemMetrics32 Lib "user32" _     Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

Public Sub ScreenRes()

Dim lResWidth As Long     Dim lResHeight As Long     Dim sRes As String

lResWidth = GetSystemMetrics32(0)

lResHeight = GetSystemMetrics32(1)

sRes = lResWidth & "x" & lResHeight     Select Case sRes         Case Is = "800x600"

ActiveWindow.Zoom = 75         Case Is = "1024x768"

ActiveWindow.Zoom = 125         Case Else             ActiveWindow.Zoom = 100     End Select End Sub

Quy trình này sẽ kiểm tra độ phân giải màn hình và điều chỉnh cửa sổ cho phù hợp. Các độ phân giải và phóng to khác có thể được thêm vào dễ dàng. Để làm cho quy trình chạy tự động, chỉ cần sử dụng trình xử lý sự kiện Workbook_Open trong cửa sổ mã This Workbook để kích hoạt macro:

Private Sub Workbook_Open()

ScreenRes End Sub

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

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

Mẹo này (2668) áp dụng cho Microsoft Excel 97, 2000, 2002 và 2003. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện ribbon của Excel (Excel 2007 trở lên) tại đây: