Excel tabula kā kvadrātveida papīrs - VBA makro

Satura rādītājs

Izveidojiet jaunu tabulu, izmantojot makro, kurā visas šūnas tiek formatētas kā mazi kvadrāti un tādējādi tiek iegūts papīrs kvadrātā

Kastes papīrs ir noderīgs. Jūs to varat izmantot ne tikai matemātiskos aprēķinos, bet arī citiem uzdevumiem.

Šūnu struktūras dēļ Excel izklājlapa būtībā ir piemērota kvadrātveida papīra izskatam.

Atbilstošu formatējumu var veikt manuāli. Ar makro ir vieglāk. Šis VBA makro izveido jaunu darbgrāmatu un formatē pirmo darblapu šajā darbgrāmatā ar maziem kvadrātiem:

Sub CreateCatchedPaper ()
Blīvs stūris Kā vesels skaitlis
Ar darbgrāmatām. Pievienot. Darblapas (1). Šūnas
.RowHeight = 12
. Kolonnas platums = 1,5
Stūram = 7 līdz 12
Ar .Borders (stūris)
.Svars = xlMaisu līnija
.ColorIndex = xlAutomatic
.LineStyle = xlContinuous
Beigt ar
Nākamais stūris
Beigt ar
Beigt apakš

Nākamajā attēlā parādīta atbilstošās Excel tabulas izskats. Tas izskatās kā lapa ar tādām kastītēm kā matemātikas stundās.

Lai ievadītu makro, programmā Excel nospiediet ALT F11, lai atvērtu VBA redaktoru. VBA redaktorā atlasiet komandu INSERT - MODULE un ievadiet makro. Lai sāktu makro, programmā Excel aktivizējiet taustiņu kombināciju ALT F8. Abi īsinājumtaustiņi darbojas visās Excel versijās.

Jums palīdzēs attīstību vietā, daloties lapu ar draugiem

wave wave wave wave wave