Re: Program do rysowania przekrojów

Jacek wrote:
> Najprosciej napisac makro.
> Na przyklad:
>
> Sub Wysokosc()
> For x = 1 to 50
> Cells(x,1).Select
> Selection.RowHeight = 20
> Next x
> End Sub

Jeśli ma pobierać wysokości wierszy z pliku,
to lepiej wpisać je w drugim arkuszu:

> Sub Wysokosc()
> For x = 1 to 50
> Cells(x,1).Select
    Selection.RowHeight = Arkusz2.Cells(x, 1).Value
> Next x
> End Sub

M.
Received on Tue Nov 4 19:10:03 2008