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

Вход

Регистрация

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

 

= Мир MS Excel/Генератор всевозможных сочетаний из слов в нескольких столбц - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Генератор всевозможных сочетаний из слов в нескольких столбц (Макросы/Sub)
Генератор всевозможных сочетаний из слов в нескольких столбц
comandor Дата: Среда, 15.07.2015, 17:03 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый день, уважаемое сообщество.
Благодаря http://www.excelworld.ru/forum/10-17995-1 этой теме нашел весьма интересный инструмент, который уже полностью написан, но в нем есть ряд ограничений.
Все дело в том, что в ячейке стоит значение =МАКС(СЧЁТЗ(G3:G13)+$L2*G1;1), где G13 - конечная ячейка в столбце. В том случае, если мне нужно увеличить это значение, к примеру до G50, то я получаю ошибку

Runtime error 9
Subscript out of range

Собственно я никогда не сталкивался с VBA и мне слегка непонятно откуда что берется.
Если есть возможность помочь, буду невероятно признателен.

В аттаче 2 файла
1. офис 2013
2. офис 2003
К сообщению приложен файл: KeyGen1.xlsm (22.7 Kb) · KeyGen2003.xls (50.5 Kb)


Сообщение отредактировал Manyasha - Среда, 15.07.2015, 17:29
 
Ответить
СообщениеДобрый день, уважаемое сообщество.
Благодаря http://www.excelworld.ru/forum/10-17995-1 этой теме нашел весьма интересный инструмент, который уже полностью написан, но в нем есть ряд ограничений.
Все дело в том, что в ячейке стоит значение =МАКС(СЧЁТЗ(G3:G13)+$L2*G1;1), где G13 - конечная ячейка в столбце. В том случае, если мне нужно увеличить это значение, к примеру до G50, то я получаю ошибку

Runtime error 9
Subscript out of range

Собственно я никогда не сталкивался с VBA и мне слегка непонятно откуда что берется.
Если есть возможность помочь, буду невероятно признателен.

В аттаче 2 файла
1. офис 2013
2. офис 2003
Автор - comandor
Дата добавления - 15.07.2015 в 17:03
Manyasha Дата: Среда, 15.07.2015, 17:32 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
comandor, в формулах можно заранее диапазон с запасом поставить:
Код
=МАКС(СЧЁТЗ(A3:A100)+$L2*A1;1)

А в коде просто нужно размерность для массивов поменять:[vba]
Код
    Const n& = 10 'количество столбцов
     Dim m&: m& = WorksheetFunction.Max(Range(Cells(2, 1), Cells(2, n))) 'количество строк
[/vba]
К сообщению приложен файл: KeyGen-1.xlsm (21.4 Kb)

ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщениеcomandor, в формулах можно заранее диапазон с запасом поставить:
Код
=МАКС(СЧЁТЗ(A3:A100)+$L2*A1;1)

А в коде просто нужно размерность для массивов поменять:[vba]
Код
    Const n& = 10 'количество столбцов
     Dim m&: m& = WorksheetFunction.Max(Range(Cells(2, 1), Cells(2, n))) 'количество строк
[/vba]
Автор - Manyasha
Дата добавления - 15.07.2015 в 17:32
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Генератор всевозможных сочетаний из слов в нескольких столбц (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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