Jak automatycznie zmienić rozmiar w arkuszu kalkulacyjnym Excel

Możesz użyć Visual Basic for Applications (VBA) do automatyzacji procesów w Excelu.

Krok 1

Kliknij zakładkę "Programista" i kliknij "Visual Basic", aby otworzyć okno edytora VB. Kliknij menu "Wstaw" i kliknij "Moduł", aby dodać nowy moduł kodu.

Krok 2

Utwórz nową procedurę podrzędną:

Private Sub resizeSheet ()

Krok 3

Zdefiniuj położenie głównego okna programu Excel, używając właściwości Lewo i Góra obiektu aplikacji:

Application.Left = 133, 75 Application.Top = 7, 75

Krok 4

Definiuje szerokość i wysokość głównego okna Excela:

Application.Width = 1173, 75 Application.Height = 884, 25

Krok 5

Dodaj następujący kod, aby określić położenie arkusza kalkulacyjnego programu Excel, używając właściwości Góra i Lewa obiektu aplikacji:

ActiveWindow.WindowState = xlNormal z ActiveWindow .Top = 111, 25 .Left = 19, 75 Koniec z

Krok 6

Określ rozmiar okna arkusza kalkulacyjnego Excel za pomocą właściwości "Szerokość" i "Wysokość":

Z ActiveWindow .Width = 1010.25 .Height = 590.25 Koniec z

Krok 7

Zakończ procedurę za pomocą "End Sub". Naciśnij "F5", aby wykonać procedurę.