Ошибка: Нельзя установить свойство ScrollRow класса Window

@dimeonik · Регистрация: 29.05.2014

Студворк — интернет-сервис помощи студентам

Добрый день.

Для повседневной обработки большого объема данных применяется простой макрос. Макрос отлично работает, но посередине процесса выскакивает ошибка Run-time error 1004: Нельзя установить свойство ScrollRow класса Window.

Помогите, пожалуйста, понять в чем дело, и как устранить эту ошибку.

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
 Columns("G:H").Select
    Range("H1").Activate
    Selection.ClearContents
    Range("F3").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=6, Criteria1:="="
    Selection.AutoFilter Field:=5, Criteria1:="<>"
    Range("E1").Select
    Selection.AutoFilter Field:=5, Criteria1:="="
    Range("A2").Select
    ActiveWindow.ScrollRow = 126
    ActiveWindow.ScrollRow = 251
    ActiveWindow.ScrollRow = 377
    ActiveWindow.ScrollRow = 502
    ActiveWindow.ScrollRow = 627
    ActiveWindow.ScrollRow = 878
    ActiveWindow.ScrollRow = 1253
    ActiveWindow.ScrollRow = 1504
    ActiveWindow.ScrollRow = 1754
    ActiveWindow.ScrollRow = 2130
    ActiveWindow.ScrollRow = 2631
    ActiveWindow.ScrollRow = 3383
    ActiveWindow.ScrollRow = 4635
    ActiveWindow.ScrollRow = 5637
    ActiveWindow.ScrollRow = 6764
    ActiveWindow.ScrollRow = 7641
    ActiveWindow.ScrollRow = 9019
    ActiveWindow.ScrollRow = 10146
    ActiveWindow.ScrollRow = 11148
    ActiveWindow.ScrollRow = 12275
    ActiveWindow.ScrollRow = 13152
    ActiveWindow.ScrollRow = 14154
    ActiveWindow.ScrollRow = 15030
    ActiveWindow.ScrollRow = 16032
    ActiveWindow.ScrollRow = 17160
    ActiveWindow.ScrollRow = 18036
    ActiveWindow.ScrollRow = 18913
    ActiveWindow.ScrollRow = 20040
    ActiveWindow.ScrollRow = 21167
    ActiveWindow.ScrollRow = 22169
    ActiveWindow.ScrollRow = 23171
    ActiveWindow.ScrollRow = 23923
    ActiveWindow.ScrollRow = 24925
    ActiveWindow.ScrollRow = 25551
    ActiveWindow.ScrollRow = 26302
    ActiveWindow.ScrollRow = 27054
    ActiveWindow.ScrollRow = 27555
    ActiveWindow.ScrollRow = 28432
    ActiveWindow.ScrollRow = 28933
    ActiveWindow.ScrollRow = 29434
    ActiveWindow.ScrollRow = 30185
    ActiveWindow.ScrollRow = 30811
    ActiveWindow.ScrollRow = 31437
    ActiveWindow.ScrollRow = 32064
    ActiveWindow.ScrollRow = -32470
    ActiveWindow.ScrollRow = -31719
    ActiveWindow.ScrollRow = -31093
    ActiveWindow.ScrollRow = -30216
    ActiveWindow.ScrollRow = -29465
    ActiveWindow.ScrollRow = -28838
    ActiveWindow.ScrollRow = -28087
    ActiveWindow.ScrollRow = -27711
    ActiveWindow.ScrollRow = -27210
    ActiveWindow.ScrollRow = -26459
    ActiveWindow.ScrollRow = -26083
    ActiveWindow.ScrollRow = -25582
    ActiveWindow.ScrollRow = -25206
    ActiveWindow.ScrollRow = -24705
    ActiveWindow.ScrollRow = -24329
    ActiveWindow.ScrollRow = -23829
    ActiveWindow.ScrollRow = -23578
    ActiveWindow.ScrollRow = -22701
    ActiveWindow.ScrollRow = -22200
    ActiveWindow.ScrollRow = -21699
    ActiveWindow.ScrollRow = -21324
    ActiveWindow.ScrollRow = -20948
    ActiveWindow.ScrollRow = -20447
    ActiveWindow.ScrollRow = -19821
    ActiveWindow.ScrollRow = -19320
    ActiveWindow.ScrollRow = -18819
    ActiveWindow.ScrollRow = -18443
    ActiveWindow.ScrollRow = -17942
    ActiveWindow.ScrollRow = -17316
    ActiveWindow.ScrollRow = -16940
    ActiveWindow.ScrollRow = -16439
    ActiveWindow.ScrollRow = -15813
    ActiveWindow.ScrollRow = -15312
    ActiveWindow.ScrollRow = -14811
    ActiveWindow.ScrollRow = -14310
    ActiveWindow.ScrollRow = -13934
    ActiveWindow.ScrollRow = -13558
    ActiveWindow.ScrollRow = -13057
    ActiveWindow.ScrollRow = -12682
    ActiveWindow.ScrollRow = -12055
    ActiveWindow.ScrollRow = -11680
    ActiveWindow.ScrollRow = -11304
    ActiveWindow.ScrollRow = -11054
    ActiveWindow.ScrollRow = -10678
    ActiveWindow.ScrollRow = -10427
    ActiveWindow.ScrollRow = -10177
    ActiveWindow.ScrollRow = -9801
    ActiveWindow.ScrollRow = -9425
    ActiveWindow.ScrollRow = -9050
    ActiveWindow.ScrollRow = -8799
    ActiveWindow.ScrollRow = -8549
    ActiveWindow.ScrollRow = -8298
    ActiveWindow.ScrollRow = -8048
    ActiveWindow.ScrollRow = -7797
    ActiveWindow.ScrollRow = -7672
    ActiveWindow.ScrollRow = -7547
    ActiveWindow.ScrollRow = -7296
    ActiveWindow.ScrollRow = -7171
    ActiveWindow.ScrollRow = -7046
    ActiveWindow.ScrollRow = -6920
    ActiveWindow.ScrollRow = -6545
    ActiveWindow.ScrollRow = -6294
    ActiveWindow.ScrollRow = -6169
    ActiveWindow.ScrollRow = -5919
    ActiveWindow.ScrollRow = -5793
    ActiveWindow.ScrollRow = -5543
    ActiveWindow.ScrollRow = -5292
    ActiveWindow.ScrollRow = -5042
    ActiveWindow.ScrollRow = -4666
    ActiveWindow.ScrollRow = -4416
    ActiveWindow.ScrollRow = -4165
    ActiveWindow.ScrollRow = -4040
    ActiveWindow.ScrollRow = -3915
    ActiveWindow.ScrollRow = -3664
    ActiveWindow.ScrollRow = -3539
    ActiveWindow.ScrollRow = -3288
    ActiveWindow.ScrollRow = -3163
    ActiveWindow.ScrollRow = -2913
    ActiveWindow.ScrollRow = -2787
    ActiveWindow.ScrollRow = -2662
    ActiveWindow.ScrollRow = -2286
    ActiveWindow.ScrollRow = -2161
    ActiveWindow.ScrollRow = -2036
    ActiveWindow.ScrollRow = -1911
    ActiveWindow.ScrollRow = -1660
    ActiveWindow.ScrollRow = -1535
    ActiveWindow.ScrollRow = -1410
    ActiveWindow.ScrollRow = -1284
    ActiveWindow.ScrollRow = -1159
    ActiveWindow.ScrollRow = -1034
    ActiveWindow.ScrollRow = -783
    ActiveWindow.ScrollRow = -658
    ActiveWindow.ScrollRow = -408
    ActiveWindow.ScrollRow = -282
    ActiveWindow.ScrollRow = -32
    Range("A2:F65536").Select
    Selection.ClearContents
    Selection.AutoFilter Field:=6, Criteria1:="<>"
    ActiveWindow.ScrollRow = 365
    ActiveWindow.ScrollRow = 487
    ActiveWindow.ScrollRow = 730
    ActiveWindow.ScrollRow = 973
    ActiveWindow.ScrollRow = 1337
    ActiveWindow.ScrollRow = 1701
    ActiveWindow.ScrollRow = 1944
    ActiveWindow.ScrollRow = 2187
    ActiveWindow.ScrollRow = 2309
    ActiveWindow.ScrollRow = 2430
    ActiveWindow.ScrollRow = 2552
    ActiveWindow.ScrollRow = 2673
    ActiveWindow.ScrollRow = 2794
    ActiveWindow.ScrollRow = 2916
    ActiveWindow.ScrollRow = 3037
    ActiveWindow.ScrollRow = 3159
    ActiveWindow.ScrollRow = 3280
    ActiveWindow.ScrollRow = 3402
    ActiveWindow.ScrollRow = 3523
    ActiveWindow.ScrollRow = 3645
    ActiveWindow.ScrollRow = 3402
    ActiveWindow.ScrollRow = 3280
    ActiveWindow.ScrollRow = 3159
    ActiveWindow.ScrollRow = 2916
    ActiveWindow.ScrollRow = 2794
    ActiveWindow.ScrollRow = 2673
    ActiveWindow.ScrollRow = 2552
    ActiveWindow.ScrollRow = 2673
    ActiveWindow.ScrollRow = 2916
    ActiveWindow.ScrollRow = 3159
    ActiveWindow.ScrollRow = 3402
    ActiveWindow.ScrollRow = 3645
    ActiveWindow.ScrollRow = 3888
    ActiveWindow.ScrollRow = 4009
    ActiveWindow.ScrollRow = 4252
    ActiveWindow.ScrollRow = 4616
    ActiveWindow.ScrollRow = 4981
    ActiveWindow.ScrollRow = 5588
    ActiveWindow.ScrollRow = 6438
    ActiveWindow.ScrollRow = 7410
    ActiveWindow.ScrollRow = 8624
    ActiveWindow.ScrollRow = 10932
    ActiveWindow.ScrollRow = 12389
    ActiveWindow.ScrollRow = 13968
    ActiveWindow.ScrollRow = 15426
    ActiveWindow.ScrollRow = 16883
    ActiveWindow.ScrollRow = 18219
    ActiveWindow.ScrollRow = 19555
    ActiveWindow.ScrollRow = 20891
    ActiveWindow.ScrollRow = 22349
    ActiveWindow.ScrollRow = 24170
    ActiveWindow.ScrollRow = 25628
    ActiveWindow.ScrollRow = 26964
    ActiveWindow.ScrollRow = 28421
    ActiveWindow.ScrollRow = 30122
    ActiveWindow.ScrollRow = 31822
    ActiveWindow.ScrollRow = -32378
    ActiveWindow.ScrollRow = -31042
    ActiveWindow.ScrollRow = -28734
    ActiveWindow.ScrollRow = -27520
    ActiveWindow.ScrollRow = -25577
    ActiveWindow.ScrollRow = -24726
    ActiveWindow.ScrollRow = -22905
    ActiveWindow.ScrollRow = -21933
    ActiveWindow.ScrollRow = -19990
    ActiveWindow.ScrollRow = -18532
    ActiveWindow.ScrollRow = -17925
    ActiveWindow.ScrollRow = -15982
    ActiveWindow.ScrollRow = -15860
    ActiveWindow.ScrollRow = -15739
    ActiveWindow.ScrollRow = -14889
    ActiveWindow.ScrollRow = -14646
    ActiveWindow.ScrollRow = -13674
    ActiveWindow.ScrollRow = -13431
    ActiveWindow.ScrollRow = -12459
    ActiveWindow.ScrollRow = -11852
    ActiveWindow.ScrollRow = -11488
    ActiveWindow.ScrollRow = -11245
    ActiveWindow.ScrollRow = -11002
    ActiveWindow.ScrollRow = -10638
    ActiveWindow.ScrollRow = -9909
    ActiveWindow.ScrollRow = -9180
    ActiveWindow.ScrollRow = -7237
    ActiveWindow.ScrollRow = -6994
    ActiveWindow.ScrollRow = -6022
    ActiveWindow.ScrollRow = -4808
    ActiveWindow.ScrollRow = -4565
    ActiveWindow.ScrollRow = -4201
    ActiveWindow.ScrollRow = -3229
    ActiveWindow.ScrollRow = -2986
    ActiveWindow.ScrollRow = -5294
    ActiveWindow.ScrollRow = -8330
    ActiveWindow.ScrollRow = -11609
    ActiveWindow.ScrollRow = -14889
    ActiveWindow.ScrollRow = -17196
    ActiveWindow.ScrollRow = -20597
    ActiveWindow.ScrollRow = -24483
    ActiveWindow.ScrollRow = -26791
    ActiveWindow.ScrollRow = -28491
    ActiveWindow.ScrollRow = -31892
    ActiveWindow.ScrollRow = 31822
    ActiveWindow.ScrollRow = 30243
    ActiveWindow.ScrollRow = 28907
    ActiveWindow.ScrollRow = 27571
    ActiveWindow.ScrollRow = 26235
    ActiveWindow.ScrollRow = 24899
    ActiveWindow.ScrollRow = 23563
    ActiveWindow.ScrollRow = 22470
    ActiveWindow.ScrollRow = 21134
    ActiveWindow.ScrollRow = 20041
    ActiveWindow.ScrollRow = 18341
    ActiveWindow.ScrollRow = 17248
    ActiveWindow.ScrollRow = 15669
    ActiveWindow.ScrollRow = 14697
    ActiveWindow.ScrollRow = 13604
    ActiveWindow.ScrollRow = 12389
    ActiveWindow.ScrollRow = 11418
    ActiveWindow.ScrollRow = 10446
    ActiveWindow.ScrollRow = 9839
    ActiveWindow.ScrollRow = 9232
    ActiveWindow.ScrollRow = 8503
    ActiveWindow.ScrollRow = 8138
    ActiveWindow.ScrollRow = 7410
    ActiveWindow.ScrollRow = 6317
    ActiveWindow.ScrollRow = 5588
    ActiveWindow.ScrollRow = 5224
    ActiveWindow.ScrollRow = 4859
    ActiveWindow.ScrollRow = 4495
    ActiveWindow.ScrollRow = 4373
    ActiveWindow.ScrollRow = 4252
    ActiveWindow.ScrollRow = 3888
    ActiveWindow.ScrollRow = 3645
    ActiveWindow.ScrollRow = 3402
    ActiveWindow.ScrollRow = 3280
    ActiveWindow.ScrollRow = 3159
    ActiveWindow.ScrollRow = 2916
    ActiveWindow.ScrollRow = 2794
    ActiveWindow.ScrollRow = 2673
    ActiveWindow.ScrollRow = 2430
    ActiveWindow.ScrollRow = 2066
    ActiveWindow.ScrollRow = 1701
    ActiveWindow.ScrollRow = 1580
    ActiveWindow.ScrollRow = 1094
    ActiveWindow.ScrollRow = 730
    ActiveWindow.ScrollRow = 365
    ActiveWindow.ScrollRow = 122
    ActiveWindow.ScrollRow = 1
    Selection.AutoFilter Field:=5, Criteria1:="Екатеринбург"
    Selection.ClearContents
    Selection.AutoFilter Field:=5, Criteria1:="<>"
    Range("G9").Select
    Selection.AutoFilter Field:=6, Criteria1:="<>"
    Range("B1").Select
    Selection.AutoFilter
    Columns("B:F").Select
    Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Columns("A:A").Select
    Selection.ClearContents
End Sub

@Казанский · 05.05.2015, 20:44

Уберите вообще строки "ActiveWindow.ScrollRow = ...". Это запись ручной прокрутки листа, к обработке данных не имеет отношения.
И вообще объясните словами, что Вы хотите сделать с данными, а то после

Visual Basic
1
2
Range("A2:F65536").Select
Selection.ClearContents

большого объема данных не останется

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .