Script inkorten

[Verwijderd]

Ik heb een script gemaakt, echt ben ik er van overtuigd dat dit korter kan dan hoe het er nu uit ziet.
Mischien dat het dan ook wel sneller gaat.

EDIT: Het gaat om excel 2010 VBA

In indergeval bedankt voor de moeite,
Timo

code:

    Rows("1:1").RowHeight = 15
    Rows("2:2").RowHeight = 15
    Rows("3:3").RowHeight = 15
    Rows("4:4").RowHeight = 15
    Rows("5:5").RowHeight = 15
    Rows("6:6").RowHeight = 15
    Rows("7:7").RowHeight = 15
    Rows("8:8").RowHeight = 15
    Rows("9:9").RowHeight = 15
    Rows("10:10").RowHeight = 15
    Rows("11:11").RowHeight = 15
    Rows("12:12").RowHeight = 15
    Rows("13:13").RowHeight = 15
    Rows("14:14").RowHeight = 15
    Rows("15:15").RowHeight = 15
    Rows("16:16").RowHeight = 15
    Rows("17:17").RowHeight = 15
    Rows("18:18").RowHeight = 15
    Rows("19:19").RowHeight = 15
    Rows("20:20").RowHeight = 15
    Rows("21:21").RowHeight = 15
    Rows("22:22").RowHeight = 15
    Rows("23:23").RowHeight = 15
    Rows("24:24").RowHeight = 15
    Rows("25:25").RowHeight = 15
    Rows("26:26").RowHeight = 15
    Rows("27:27").RowHeight = 15
    Rows("28:28").RowHeight = 15

[defusion]

Nu ben ik niet zo geweldig met VBS, maar hier zou ik een loopje voor schrijven die de waarde in Rows steeds aanpast. de 15 lijkt iig altijd hetzelfde, en de rest loopt gewoon op.

code:

For i = 1 To 28
   Rows(i:i).RowHeight = 15;
Next

moet je alleen even kijken hoe je dat i:i netjes tot een string krijgt in vbs

[ Voor 29% gewijzigd door defusion op 04-04-2012 10:54 ]

[Verwijderd]

ik zat al ongeveer in de richting van een loop, ik ga er even mee stoeien laat je straks weten wat er wel en niet is gelukt.

In iedergeval bedankt voor de snelle reactie

[Zeebonk]

Gewoon een range gebruiken zoals ze bedoeld zijn:

code:

Rows("1:28").RowHeight = 15

Zie ook: http://msdn.microsoft.com...a215513(v=office.11).aspx

[ Voor 32% gewijzigd door Zeebonk op 04-04-2012 11:05 . Reden: Link toegevoegd ]

[Verwijderd]

Hah, dat werkt mooi, gaat een stuk sneller, normaal zag ik altijd regel voor regel inkorten

Erg bedankt allebij voor de snelle reactie, Ik heb trouwens de regel van Zeebonk gebruikt.

Werkt perfect!

Timo