Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 

Страницы: 1
Поиск
Макрос для коллекций и сбора инфы в коллекции, возможность создать функцию CollectionCreate(ColName as String, DataAdd as Range)
Автор: SanShiney. Здравствуйте! Есть мысль. Но не знаю, на сколько она реализуема. Когда пишу макросы, часто приходится вновь и вновь писать код для создания коллекции и накопления в неё информации. Так, вот, возможно ли написать sub, который бы это делал без лишнего гемора? К примеру: CollectionCreate(TESTCOLLECTION) - создать коллекцию с имененм "TESTCOLLECTION" CollectionAdd(TESTCOLLECTION, 100) - добавляет 100 в коллекцию  "TESTCOLLECTION" CollectionWrite(TESTCOLLECTION...
Теги: macro, Collections, VBA
Изменен: 23 Июн 2016
Читать сообщение на форуме или сайте.
Collections и Error handling, На одном компе данный код работает, а на другом выдает ошибку
Автор: SanShiney. Вчера написал код. Ниже привожу выдержку по коду, которая даёт проблему. ' Раздаю определенения Dim arr1 As New Collection, a1 Dim aFirstArray1() As Variant Dim i1 As Long ' Присваиваю значения переменным. Т.к. данные на другой странице, использую WTIH With Sheets("PROJECT DETAILS") LastRow1 = .Cells.Find("*", .Range("A1"), , , xlByRows, xlPrevious).Row PROJECTSLIST1 = .Range(.Cells(2, 1), .Cells(LastRow1, 1)).Value End...
Изменен: 8 Сен 2014
Читать сообщение на форуме или сайте.
Страницы: 1
Наверх