Подскажите код - Microsoft Office Excel

Romuald · 26.11.2007, 11:05

Do While DB.Cells(i, 1) <> "" Это выполнять до первой пустой
А как чтобы выполнять до третьей пустой ?

Stilet · 26.11.2007, 11:46

Do While (DB.Cells(i, 1) <> "")and(k<3)

В теле :

If DB.Cells(i, 1) = "" then
k=k+1
End if

Romuald · 26.11.2007, 13:53

Спасибо большое !

26.11.2007, 11:05	#1
Romuald Форумчанин Регистрация: 12.11.2007 Сообщений: 209	Подскажите код Do While DB.Cells(i, 1) <> "" Это выполнять до первой пустой А как чтобы выполнять до третьей пустой ?

26.11.2007, 11:46	#2
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	Do While (DB.Cells(i, 1) <> "")and(k<3) В теле : If DB.Cells(i, 1) = "" then k=k+1 End if I'm learning to live...

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Подскажите	Ser	Паскаль, Turbo Pascal, PascalABC.NET	1	15.03.2008 18:32
Подскажите	Yana	Общие вопросы Delphi	2	23.12.2007 00:21
Подскажите что тут не так!?	dcl	Общие вопросы Delphi	5	28.03.2007 08:15

26.11.2007, 13:53	#3
Romuald Форумчанин Регистрация: 12.11.2007 Сообщений: 209	Спасибо большое !