Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Run-time error '9' возникла при определении 3 таблицы - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Run-time error '9' возникла при определении 3 таблицы
volk_901 Дата: Вторник, 15.08.2017, 22:33 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Здравствуйте) Возникла проблема, что при определении третьей книги он выдает ошибку Run-time error '9' Subscript out of range. В VBA Excel знаю мало.(
Была поставлена задача. Ее суть в следующем:
Всего в таблице Альфа 200000 строк. Запускается цикл, в котором мы проходим по каждому ряду. В этом цикле за каждую итерацию происходит следующее: из первой таблицы берется значение первого столбца I-того ряда(предположим arg1). Затем запускается еще один цикл, где это значение сравнивается со значением из 2 и 3 столбца I-того ряд из таблицы Бета. В случае совпадения arg1 со значением из 2 или 3 столбца из Бета, мы сохраняем значение из 2 или 3 столбца(предположим arg2) и выходим из цикла . Теперь мы заходим в другой цикл, где полученное arg2 мы сравниваем со значением 1 столбца I-того ряда таблицы Гамма. Когда значения совпадают, в таблице Гамма, в том ряду, где было обнаружено совпадение, в третий столбец записывается значение из таблицы Альфа, из ряда, где находится arg1, из последнего ненулевого столбца. И это все происходит в одну итерацию главного цикла.
Приложенная программа выполняет ту часть кода, которая будет работать в основном цикле, т.е. за одну итерацию. Поэтому она привязана к первой ячейке главной таблицы.
Также приложен архив, с 3 таблицами, для примера.
К сообщению приложен файл: 7171603.txt (1.0 Kb) · Alfa.rar (22.9 Kb)


Gjlgbcm&

Сообщение отредактировал volk_901 - Среда, 16.08.2017, 02:12
 
Ответить
СообщениеЗдравствуйте) Возникла проблема, что при определении третьей книги он выдает ошибку Run-time error '9' Subscript out of range. В VBA Excel знаю мало.(
Была поставлена задача. Ее суть в следующем:
Всего в таблице Альфа 200000 строк. Запускается цикл, в котором мы проходим по каждому ряду. В этом цикле за каждую итерацию происходит следующее: из первой таблицы берется значение первого столбца I-того ряда(предположим arg1). Затем запускается еще один цикл, где это значение сравнивается со значением из 2 и 3 столбца I-того ряд из таблицы Бета. В случае совпадения arg1 со значением из 2 или 3 столбца из Бета, мы сохраняем значение из 2 или 3 столбца(предположим arg2) и выходим из цикла . Теперь мы заходим в другой цикл, где полученное arg2 мы сравниваем со значением 1 столбца I-того ряда таблицы Гамма. Когда значения совпадают, в таблице Гамма, в том ряду, где было обнаружено совпадение, в третий столбец записывается значение из таблицы Альфа, из ряда, где находится arg1, из последнего ненулевого столбца. И это все происходит в одну итерацию главного цикла.
Приложенная программа выполняет ту часть кода, которая будет работать в основном цикле, т.е. за одну итерацию. Поэтому она привязана к первой ячейке главной таблицы.
Также приложен архив, с 3 таблицами, для примера.

Автор - volk_901
Дата добавления - 15.08.2017 в 22:33
AndreTM Дата: Среда, 16.08.2017, 01:35 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1762
Репутация: 501 ±
Замечаний: 0% ±

2003 & 2010
Вы так и не научились правильно оформлять посты :)
Дело в том,что когда вы рассуждаете о "некоей таблице, с которой работает код" - то пример таблицы должен быть приложен.
Нет, конечно, кому-то может и стать интересно "чисто разобрать ваш код абстрактно", но вы-то же хотите конкретного решения для конкретных данных?

Ну и не забываем давать ссылки на эта тема в продолжение той темы.


Skype: andre.tm.007
Donate: Qiwi: 9517375010
 
Ответить
СообщениеВы так и не научились правильно оформлять посты :)
Дело в том,что когда вы рассуждаете о "некоей таблице, с которой работает код" - то пример таблицы должен быть приложен.
Нет, конечно, кому-то может и стать интересно "чисто разобрать ваш код абстрактно", но вы-то же хотите конкретного решения для конкретных данных?

Ну и не забываем давать ссылки на эта тема в продолжение той темы.

Автор - AndreTM
Дата добавления - 16.08.2017 в 01:35
InExSu Дата: Четверг, 17.08.2017, 08:57 | Сообщение № 3
Группа: Друзья
Ранг: Ветеран
Сообщений: 650
Репутация: 96 ±
Замечаний: 0% ±

Excel 2010, 365
[vba]
Код
Dim i As Integer
[/vba]
замените на
[vba]
Код
Dim i As long
[/vba]
Там есть ещё ошибки, но в коде "xlsm", а приложены "xls" ...


Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac
 
Ответить
Сообщение[vba]
Код
Dim i As Integer
[/vba]
замените на
[vba]
Код
Dim i As long
[/vba]
Там есть ещё ошибки, но в коде "xlsm", а приложены "xls" ...

Автор - InExSu
Дата добавления - 17.08.2017 в 08:57
volk_901 Дата: Четверг, 17.08.2017, 14:55 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Понял, сейчас исправлю
К сообщению приложен файл: ___.rar (22.9 Kb)


Gjlgbcm&

Сообщение отредактировал volk_901 - Четверг, 17.08.2017, 15:24
 
Ответить
СообщениеПонял, сейчас исправлю

Автор - volk_901
Дата добавления - 17.08.2017 в 14:55
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2026 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!