Помогнете

1 отговора 193 прегледа
#1

Помогнете

Даскала ми иска да разпечатам една страница на EXEL,която е 200 реда и 5 колони,но като използвам VBA.Проблема ми е ,че не трябва да печатам всички
200 реда,а до първия празен ред.

for i = 1 to 200

if sheet1.cells(,[1]) = "" трябва да печата до ред i-1

Kак да посоча колона Е до кой ред да печати а да не е 200,

Sheet1.Activate
Sheet1.PageSetup.PrintArea = "$a$1:$е$200"
ActiveSheet.PrintOut



Отговор
в отговор на Пeтъp #2

Re: Помогнете

демек проблема е как в "$a$1:$е$200" да смениш 200 с някаква променлива?
Ми то това си е стринг, може да правиш квото ти е кеф.


for i = 1 to 200

if sheet1.cells(,[1]) = "" then Exit For

next

Sheet1.Activate
Sheet1.PageSetup.PrintArea = "$a$1:$е$" & trim(str(i))

нещо такова ..

Отговор