Макрос не видит значение в массиве

@module · Регистрация: 09.06.2014

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

Доброго времени суток!!
Дошли руки до оптимизации одного из отчётов, который считается почти 15 минут, решил разобраться первым делом с массивами. И наткнулся на ошибку, не понимаю, в чём проблема? Считываю диапазон в массив, с помощью условия перебираю элементы, но программа не видит очевидного совпадения значений.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub fill_reven()
 
Dim tek()
tek() = Worksheets("PL_текущий").Range("A1:BL1810").Value
      
x = 0
For k = 50 To 100
If tek(34, k) = "Общий результат" Then
            x = k
            k = x
            End If
        Next k
 End Sub

Причём в отладчике, если смотреть то tek(34, 64) принимает значение "Общий результат", но условие не отрабатывает и на 65 выдаёт ошибку "Subscript out of range". Условие работает, если перебирать данные на странице.
Буду благодарен любой помощи!

@module · 24.07.2014, 08:50 **[ТС]**

ага, мне как-то раз не хватило количество строк)))
Всем спасибо за советы, сейчас опробую))

@parnisha25 · 30.07.2014, 17:47

мне тоже надо что то подобное

shanemac51 · 30.07.2014, 19:25

переставьте строки

Visual Basic
1
2
3
4
5
   Dim tek, k As Long, x As Integer, y As Integer
Sub fill_reven()
 k=0
x=0
y=0

@module · 01.08.2014, 12:55 **[ТС]**

shanemac51, Спасибо огромное! Не ожидал такого эффекта от переставления одной строки грубо говоря) Раньше страница считалась за полторы минуты, сейчас - секунд 5

shanemac51 · 01.08.2014, 14:04

естественно надо убрать в функциях строки, перенеся и Dim sopost() в голову

у вас на каждом вызове функций считывались данные дух листов

Visual Basic
1
2
3
4
5
6
7
Dim tek()
tek() = ws3.Range("A1:BW2000").Value
 
...................
 
Dim sopost()
sopost() = ws2.Range("A1:BW2000").Value

@module · 01.08.2014, 14:07 **[ТС]**

да, я понял. Просто не знал как это сделать, теперь вот подгоняю. Спасибо

@Hugo121 · 01.08.2014, 14:37

Я ведь об этом уже говорил - и про публичные массивы, и что незачем их 100 раз заполнять, и что незачем брать миллион ячеек, когда нужны всего 75...
И что вообще вероятно тут нужен словарь.
Только это было в другой теме

Добавлено через 2 минуты
Вот тут:
Оптимизировать (ускорить) программу, работающую с массивами

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .

@module 0 / 0 / 0 Регистрация: 09.06.2014 Сообщений: 21
	24.07.2014, 08:50 [ТС]
	ага, мне как-то раз не хватило количество строк))) Всем спасибо за советы, сейчас опробую)) 0

@parnisha25 0 / 0 / 0 Регистрация: 30.07.2014 Сообщений: 19
	30.07.2014, 17:47
	мне тоже надо что то подобное 0

@module 0 / 0 / 0 Регистрация: 09.06.2014 Сообщений: 21
	01.08.2014, 12:55 [ТС]
	shanemac51, Спасибо огромное! Не ожидал такого эффекта от переставления одной строки грубо говоря) Раньше страница считалась за полторы минуты, сейчас - секунд 5 0

@module 0 / 0 / 0 Регистрация: 09.06.2014 Сообщений: 21
	01.08.2014, 14:07 [ТС]
	да, я понял. Просто не знал как это сделать, теперь вот подгоняю. Спасибо 0

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	01.08.2014, 14:37
	Я ведь об этом уже говорил - и про публичные массивы, и что незачем их 100 раз заполнять, и что незачем брать миллион ячеек, когда нужны всего 75... И что вообще вероятно тут нужен словарь. Только это было в другой теме Добавлено через 2 минуты Вот тут: Оптимизировать (ускорить) программу, работающую с массивами 1

Макрос не видит значение в массиве

Решение