- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
- 67
- 68
- 69
- 70
- 71
- 72
- 73
- 74
For t = 3 To u
If Cells(t, 204).Text = " " Or Cells(t, 204).Text = "" Then
If Cells(t + 1, 204).Text = " " Or Cells(t + 1, 204).Text = "" Then
If Cells(t + 2, 204).Text = " " Or Cells(t + 2, 204).Text = "" Then
If Cells(t + 3, 204).Text = " " Or Cells(t + 3, 204).Text = "" Then
If Cells(t + 4, 204).Text = " " Or Cells(t + 4, 204).Text = "" Then
If Cells(t + 5, 204).Text = " " Or Cells(t + 5, 204).Text = "" Then
If Cells(t + 6, 204).Text = " " Or Cells(t + 6, 204).Text = "" Then
If Cells(t + 7, 204).Text = " " Or Cells(t + 7, 204).Text = "" Then
If Cells(t + 8, 204).Text = " " Or Cells(t + 8, 204).Text = "" Then
If Cells(t + 9, 204).Text = " " Or Cells(t + 9, 204).Text = "" Then
If Cells(t + 10, 204).Text = " " Or Cells(t + 10, 204).Text = "" Then
If Cells(t + 11, 204).Text = " " Or Cells(t + 11, 204).Text = "" Then
If Cells(t + 12, 204).Text = " " Or Cells(t + 12, 204).Text = "" Then
If Cells(t + 13, 204).Text = " " Or Cells(t + 13, 204).Text = "" Then
If Cells(t + 14, 204).Text = " " Or Cells(t + 14, 204).Text = "" Then
If Cells(t + 15, 204).Text = " " Or Cells(t + 15, 204).Text = "" Then
If Cells(t + 16, 204).Text = " " Or Cells(t + 16, 204).Text = "" Then
If Cells(t + 17, 204).Text = " " Or Cells(t + 17, 204).Text = "" Then
If Cells(t + 18, 204).Text = " " Or Cells(t + 18, 204).Text = "" Then
If Cells(t + 19, 204).Text = " " Or Cells(t + 19, 204).Text = "" Then
If Cells(t + 20, 204).Text = " " Or Cells(t + 20, 204).Text = "" Then
If Cells(t + 21, 204).Text = " " Or Cells(t + 21, 204).Text = "" Then
If Cells(t + 22, 204).Text = " " Or Cells(t + 22, 204).Text = "" Then
If Cells(t + 23, 204).Text = " " Or Cells(t + 23, 204).Text = "" Then
If Cells(t + 24, 204).Text = " " Or Cells(t + 24, 204).Text = "" Then
If Cells(t + 25, 204).Text = " " Or Cells(t + 25, 204).Text = "" Then
If Cells(t + 26, 204).Text = " " Or Cells(t + 26, 204).Text = "" Then
If Cells(t + 27, 204).Text = " " Or Cells(t + 27, 204).Text = "" Then
If Cells(t + 28, 204).Text = " " Or Cells(t + 28, 204).Text = "" Then
If Cells(t + 29, 204).Text = " " Or Cells(t + 29, 204).Text = "" Then
If Cells(t + 30, 204).Text = " " Or Cells(t + 30, 204).Text = "" Then
If Cells(t + 31, 204).Text = " " Or Cells(t + 31, 204).Text = "" Then
If Cells(t + 32, 204).Text = " " Or Cells(t + 32, 204).Text = "" Then
If Cells(t + 33, 204).Text = " " Or Cells(t + 33, 204).Text = "" Then
If Cells(t + 34, 204).Text = " " Or Cells(t + 34, 204).Text = "" Then
GoTo zan4:
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
Next t
zan4:
Кусок реально используемого "проэкта", используется у нас на призводстве.
И вот-такого штук 10 в коде.
ноу коментс.
kipar 21.05.2012 14:57 # 0
Правда непонятно зачем там For t = 3 To u - можно же было тоже копипастой сделать.
adli__82 21.05.2012 15:04 # 0
SwinX 21.05.2012 15:03 # +1
adli__82 21.05.2012 15:13 # +2
TarasB 21.05.2012 15:04 # 0
adli__82 21.05.2012 15:11 # +2
в начале кода стоит инициализация u:
u = 2000
а хвост кода выглядел так:
Next t
zan4:
v = t - 1
Так вот v-это и есть последняя строка с данными на странице.
inkanus-gray 21.05.2012 15:14 # 0
Кстати, чему равно t, если цикл отработал до конца?
adli__82 21.05.2012 15:21 # 0
inkanus-gray 21.05.2012 16:47 # 0
Но автор эту возможность не предусмотрел? То есть u просто заведомо больше количества полезных строк?
guest 11.09.2012 18:58 # 0
TarasB 21.05.2012 15:22 # 0
inkanus-gray 21.05.2012 15:26 # 0
В Турбо-Паскале, кстати, так же можно сделать, только без меток, для чего создатели заботливо заготовили break. И переменные в нём нельзя объявлять внутри цикла... Не ради ли подобных штуковин?
TarasB 21.05.2012 19:25 # +2
Я знаю, что в Аде, например, счётчик цикла всегда объявляется в заголовке цикла и живёт только внутри цикла.
psina-from-ua 21.05.2012 15:11 # −1
adli__82 21.05.2012 15:14 # 0
Lure Of Chaos 21.05.2012 22:39 # 0
scriptin 22.05.2012 01:06 # +2
adli__82 22.05.2012 08:04 # +2
Или просто Ctrl+C, Ctrl+V,
Или просто Ctrl+C, Ctrl+V,
Или просто Ctrl+C, Ctrl+V,
Или просто Ctrl+C, Ctrl+V,
guest 22.05.2012 09:23 # +1
BioMan 26.05.2012 14:35 # 0
guest 22.06.2012 11:13 # −4
guest 13.07.2012 09:27 # 0
З.Ы. CCCV = Ctrl+C, Ctrl+V,
guest 13.07.2012 23:41 # 0
guest 11.09.2012 19:01 # 0
bormand 11.09.2012 19:05 # +4
kegdan 05.03.2013 04:07 # 0
guest 29.03.2014 00:08 # 0