Поиск
Автор: Владислав Дорошенко. Всем привет!
Пишу макрос в Excel для выборки данных с одной таблицы одного листа и последующей вставке в другую таблицу на другой лист, с удалением дубликатов.
Логика программы:
1) Под определенным условием, программа выбирает данные из нужных мне ячеек первого листа и заносит её в коллекцию.
2) Аналогично первому пункту, программа проделывает те же действия, но только со второй таблицей на втором листе.
3) Используя "цикл в цикле" программа сравнивает ...
Изменен: 22.06.2021
Читать сообщение на форуме или сайте.Автор: aimv. Доброе утро!
Ребят маленькая просьба помочь!
Есть файл с 2-я листами - Sheet1 и Sheet2
Sheet2 содержит в колонке А название поля (дублируется на Sheet1) и в колонке В условие 1-0
Так вот вопрос - как организовать кнопку (где угодно) при нажатии которой она будет смотреть в колонку В Sheet2 и если 0 то искать значение напротив (колонка А, Sheet2), а затем находить его на Sheet1 и прятать эту колонку?
Буду очень благодарен
Изменен: 15.06.2018
Читать сообщение на форуме или сайте.Автор: Fuad1992. Доброго всем времени суток уважаемые форумчане!
Существует ли альтернатива Power Query макросами или же формулами? Что было до Power Query?)
Power Query очень хорош и удобен, однако кушает много памяти. Компьютер дико зависает при большом количестве таких таблиц. К примеру в одном файле имеется более чем 30 страниц, в каждом из которых имеется Query таблица. Все берется с одной громоздской таблицы из 26 столбцов и более чем 4 тыс. строк. Там все примитивно, действует пару ...
Изменен: 11.06.2018
Читать сообщение на форуме или сайте.Автор: SanShiney. Здравствуйте!
Есть мысль. Но не знаю, на сколько она реализуема.
Когда пишу макросы, часто приходится вновь и вновь писать код для создания коллекции и накопления в неё информации.
Так, вот, возможно ли написать sub, который бы это делал без лишнего гемора?
К примеру:
CollectionCreate(TESTCOLLECTION) - создать коллекцию с имененм "TESTCOLLECTION"
CollectionAdd(TESTCOLLECTION, 100) - добавляет 100 в коллекцию "TESTCOLLECTION"
...
Изменен: 23.06.2016
Читать сообщение на форуме или сайте.Автор: 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 ...
Изменен: 08.09.2014
Читать сообщение на форуме или сайте.