Cum se redimensionează automat într-o foaie de calcul Excel

Puteți utiliza Visual Basic for Applications (VBA) pentru automatizarea proceselor în Excel.

Pasul 1

Faceți clic pe fila "Dezvoltator" și faceți clic pe "Visual Basic" pentru a deschide fereastra editorului VB. Faceți clic pe meniul "Inserați" și faceți clic pe "Modul" pentru a adăuga un nou modul de cod.

Pasul 2

Creați o nouă procedură sub:

Suprasimensionare privată ()

Pasul 3

Definiți locația ferestrei principale Excel utilizând proprietățile Stânga și Top ale obiectului aplicației:

Application.Left = 133.75 Application.Top = 7.75

Pasul 4

Definește lățimea și înălțimea ferestrei principale Excel:

Application.Width = 1173.75 Application.Height = 884.25

Pasul 5

Adăugați următorul cod pentru a defini locația foii de calcul Excel, utilizând proprietățile Top și Stânga ale obiectului aplicației:

ActiveWindow.WindowState = xlNormal cu ActiveWindow .Top = 111.25 .Left = 19.75 Sfârșit cu

Pasul 6

Definiți dimensiunea ferestrei foii de calcul Excel utilizând proprietățile "Lățime" și "Înălțime":

Cu ActiveWindow .Width = 1010.25 .Height = 590.25 Sfârșit cu

Pasul 7

Terminați procedura cu "End Sub". Apăsați "F5" pentru a executa procedura.