Nếu Steven có một sổ làm việc đang mở và tối đa hóa, và sau đó anh ta mở một hoặc nhiều sổ làm việc bổ sung, các sổ làm việc bổ sung này trông có vẻ được tối đa hóa nhưng không thực sự như vậy. Các cạnh bên trái, dưới cùng và bên phải của các sổ làm việc bổ sung này nằm ở các cạnh của màn hình, nhưng các phần trên xếp xuống dưới, giống như các thẻ chỉ mục được bù trừ với nhau. Đối với Steve, sẽ tốt hơn nhiều nếu các sổ làm việc bổ sung được mở dưới dạng một phần nhỏ hơn của cửa sổ hoặc được tối đa hóa tối đa để sau đó anh ta có thể “khôi phục” các cửa sổ về kích thước nhỏ hơn. Anh ấy tự hỏi liệu có một số cài đặt kiểm soát kích thước cửa sổ cho các sổ làm việc bổ sung này khi chúng được mở hay không.

Bạn có thể dễ dàng ảnh hưởng đến những gì xảy ra với cửa sổ sổ làm việc thông qua việc sử dụng macro. Nơi thông thường để thực hiện việc này là trong macro Workbook_Open, là một trình xử lý sự kiện trong đối tượng ThisWorkbook. Đây là một phiên bản rất đơn giản sẽ đảm bảo rằng cửa sổ được tối đa hóa:

Public Sub WorkBook_Open()

Application.WindowState = xlMaximized End Sub

Sau đó, nếu bạn muốn, bạn có thể điều chỉnh kích thước của cửa sổ được phóng to theo cách thủ công.

Tất nhiên, bạn cũng có thể “xây dựng” macro để nó điều khiển cửa sổ theo những cách khác. Ví dụ: sau đây là macro sẽ xác định kích thước màn hình tối đa của màn hình mà sổ làm việc đang mở, sau đó nó điều chỉnh kích thước cửa sổ để chiếm 72% chiều rộng màn hình và 96% chiều cao màn hình.

Public Sub WorkBook_Open()

Dim iMaxWidth As Integer    'Screen width (pixels)

Dim iMaxHeight As Integer   'Screen height (pixels)

Dim sngStartX As Single     'Upper-left corner of desired window     Dim sngStartY As Single     'Upper-left corner of desired window     Dim sngWidth As Single      'Width of desired window     Dim sngHeight As Single     'Height of desired window

'Specifications for final window size     sngStartX = 0.14   'Fraction of screen width from left edge     sngStartY = 0.02   'Fraction of screen height from top     sngWidth = 0.72    'Fraction of screen width desired     sngHeight = 0.96   'Fraction of screen height desired

With Application         'Maximize screen in order to grab maximum width and height         .WindowState = xlMaximized         iMaxWidth = .Width         iMaxHeight = .Height         .WindowState = xlNormal

'Set final window position and size         .Top = iMaxHeight  sngStartY         .Left = iMaxWidth  sngStartX         .Width = sngWidth  iMaxWidth         .Height = sngHeight  iMaxHeight     End With End Sub

Tất nhiên, bạn có thể điều chỉnh cài đặt trong hai biến (sngWidth và sngHeight) để chọn kích thước màn hình cuối cùng khác nhau. Bạn cũng có thể điều chỉnh cài đặt trong biến sngStartX và sngStartY để chỉ định vị trí cho góc trên bên trái của cửa sổ cuối cùng.

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

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