GoldenLine
Zaloguj się
Michal Żołyniak

Michal Żołyniak Implementer

Temat: Zmiana wyskości wiersza pętlą

Witam,

Chcę stworzyć pętle która bedzie sprawdzać po kolei wiersze od 2 wiersza do 2000 i w każdym wierszu w którym RowHeight < 62.25 ustawiało tą wysokośc wiersza. Próbowałem coś stworzyć ale operowanie na wierszach mi nie wychodzi narazie:)
Ma ktoś pomysł jak przekształcić moją pętle aby działa 



Range("A1").Select



Do

If ActiveCell.Row.Height > 62.25 Then

ActiveRow.RowHeight = 62.25

ActiveCell.Offset(1, 0).Select

Else

ActiveCell.Offset(1, 0).Select

If ActiveCell.Interior.Color = 65535 Or ActiveCell.Row = 2000 Then Exit Do

End If

Loop
Link do wypowiedziLink

konto usunięte

Temat: Zmiana wyskości wiersza pętlą

Witam spróbuj odpalić takie makro:


Sub Wys()

Dim i&



For i = 2 To 2000

  Cells(i, 1).RowHeight = 62.25

Next i

End Sub

Pozdrawiam.
Link do wypowiedziLink
Mariusz Jankowski

Mariusz Jankowski Programista
Excel/VBA

Temat: Zmiana wyskości wiersza pętlą

Hejka,

Ale po co w ogóle stosować pętlę? Nie może być?

Arkusz1.Range("A2:A2000").EntireRow.RowHeight = 62.25
Link do wypowiedziLink
Michal Żołyniak

Michal Żołyniak Implementer

Temat: Zmiana wyskości wiersza pętlą

Witam,

No własnie nie za bardzo

W skrócie chodzi o to, że mam makro które ustawia mi
dla wierszy po każdej aktualizacji pliku optymalną wysokość

Rows("2:2001").EntireRow.AutoFit

ale chcę aby minimlna wysokośc jaka się ustawi to właśnie = 62.25 (aby na wydruku było czytelnie)
Jeżeli użyjemy Arkusz1.Range("A2:A2000").EntireRow.RowHeight = 62.25 to komórki które mają
wyższą wyskość bedą miały znów 62.25 i nie będzie widoczne całe pole komórki dlatego pomyślałem o pętli która po ustawieniu optymalnej wyskosci wyrówna wiersze które mają niższą niż 62.25 wysokość

Dodam tylko że mój plik ma dużo kolumn i aby wydruk był czytelny ustawienie optymalne kolumn nie wchodzi w grę

Pozdrawiam
Link do wypowiedziLink

konto usunięte

Temat: Zmiana wyskości wiersza pętlą

Więc spróbuj może tak ?


Sub Wys()

Dim i&



For i = 2 To 2000

  If Cells(i, 1).RowHeight < 62.25 Then Cells(i, 1).RowHeight = 62.25

Next i

End Sub

Pozdarwiam.
Link do wypowiedziLink
Michal Żołyniak

Michal Żołyniak Implementer

Temat: Zmiana wyskości wiersza pętlą

Darek J.:
Więc spróbuj może tak ?


Sub Wys()

Dim i&



For i = 2 To 2000

  If Cells(i, 1).RowHeight < 62.25 Then Cells(i, 1).RowHeight = 	[/quote]> 62.25[quote]Next i

End Sub

Pozdarwiam.


Dokładnie o coś takie mi chodziło dziękuję serdecznie za pomoc:)
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy


Następna dyskusja:

Zmiana nazwy kolumny




Wyślij zaproszenie do
Anuluj