Excel -tabel som firkantet papir - VBA -makro

Indholdsfortegnelse

Opret en ny tabel ved hjælp af en makro, hvor alle celler formateres som små firkanter og dermed resulterer i firkantet papir

Kassepapir er praktisk. Ikke kun kan du bruge det i matematiske beregninger, men du kan også bruge det til andre opgaver.

På grund af cellestrukturen er et Excel -regneark grundlæggende velegnet til at tage udseendet af firkantet papir.

Du kan foretage den relevante formatering manuelt. Det er lettere med en makro. Følgende VBA -makro opretter en ny projektmappe og formaterer det første regneark i denne projektmappe med små firkanter:

Sub CreateCatchedPaper ()
Dim hjørne Som heltal
Med Workbooks.Add.Worksheets (1) .Celler
.RowHeight = 12
.ColumnWidth = 1.5
Til hjørne = 7 til 12
Med .Kanter (hjørne)
.Vægt = xlHårlinje
.ColorIndex = xlAutomatisk
.LineStyle = xlContinuous
Afslut med
Næste hjørne
Afslut med
Afslut Sub

Følgende figur viser, hvordan den matchende Excel -tabel ser ud. Det ligner en side med kasser som dem, der bruges i matematiktimer.

For at komme ind i makroen skal du trykke på ALT F11 i Excel for at åbne VBA -editoren. Vælg kommandoen INSERT - MODULE i VBA -editoren, og indtast makroen. For at starte makroen skal du aktivere tastekombinationen ALT F8 i Excel. De to tastaturgenveje fungerer i alle versioner af Excel.

Du vil bidrage til udviklingen af ​​hjemmesiden, at dele siden med dine venner

wave wave wave wave wave