Làm sao để giao diện excel không phụ thuộc thông số màn hình

[nhatthai]

Tôi có một vấn đề muốn tham khảo ý kiến của các bạn
Khi tôi thiết kế 1 giao diện trên excel, thông số màn hình của tôi là 1280x800. Khi tôi đưa file này sang máy tính khác có thông số màn hình khác (600x800; 1024x768 ...) thì thường bị hiện tượng giao diện được thiết kế ở file excel này tràn màn hình (phóng to lên và bị che khuất một số phần) hoặc nhỏ lại (khi thông số màn hình lớn hơn 1280x800). Để khắc phục, tôi thường phải chỉnh lại thông số màn hình cho phù hợp, nhiều khi chỉnh lại cũng không được như ý muốn (thông số màn hình của máy xách tay không trùng với nhiều máy để bàn ...).
Các bạn cho tôi hỏi có cách nào khắc phục được nhược điểm trên không

 

[Mr Okebab]

Tôi có một vấn đề muốn tham khảo ý kiến của các bạn
Khi tôi thiết kế 1 giao diện trên excel, thông số màn hình của tôi là 1280x800. Khi tôi đưa file này sang máy tính khác có thông số màn hình khác (600x800; 1024x768 ...) thì thường bị hiện tượng giao diện được thiết kế ở file excel này tràn màn hình (phóng to lên và bị che khuất một số phần) hoặc nhỏ lại (khi thông số màn hình lớn hơn 1280x800). Để khắc phục, tôi thường phải chỉnh lại thông số màn hình cho phù hợp, nhiều khi chỉnh lại cũng không được như ý muốn (thông số màn hình của máy xách tay không trùng với nhiều máy để bàn ...).
Các bạn cho tôi hỏi có cách nào khắc phục được nhược điểm trên không

Đây là UDF xác định độ phân giải của màn hình, qua đó có thể cho zoom của Form vừa với màn hình hiện tại

Option Explicit
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
    'Constants for GetSystemMetrics

Function PhanGiaiMH() As String
    On Error Resume Next
    Const SM_CXSCREEN = 0        ' Width of screen
    Const SM_CYSCREEN = 1        ' Height of screen
    Dim Rong As Long, Dai As Long
    Rong = GetSystemMetrics(SM_CYSCREEN) ' Lay Chieu rong
    Dai = GetSystemMetrics(SM_CXSCREEN) ' ' Lay Chieu rong
    PhanGiaiMH = Dai & "by" & Rong
End Function

Thân!