Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Изменение размерности двумерного массива
 
Всем привет!
Подскажите пожалуйства, как расширять динамический массив по мере появления новых данных, при их сборе циклом?
Второй день ковыряюсь, ошибку все найти не могу)))  Статей много прочёл, но с места сдвинуться не могу))
Код
Sub test()
LastRow = 2
Dim arr() As Variant
ReDim arr(1 To 1, 1 To 4)
Dim i%, k%

For i = 1 To LastRow
        k = k + 1
        ReDim Preserve arr(1 To UBound(arr, 1) + 1, 1 To 4) 'вылетает ошибка subscrpt out of range
        arr(k, 1) = "Привет"
        arr(k, 2) = "Пусто"
        arr(k, 3) = "Пусто"
        arr(k, 4) = "и снова здравствуйте"
Next i

Range("A1:D2") = arr
End Sub
Изменено: Юрий М - 29.04.2022 11:48:35
Сложение столбцов в power query, игнорируя текстовые ячейки
 
Всем привет!
Имеется файл объем разбросан в ручную на каждую единицу изменения.
Подскажите как в Power Query сложить два столбца, в исходных столбцах часто встречается различный текст, который и мешает банальному действию сложить.
Либо выполнить действие, также как делает функция просмотр в excel т.е. выводит результат из вектора результатов на основании подходящих значений просматриваемого вектора.
PQ, арифметические действия с элементами строки между разделителями
 
Добрый день Всем!
Как в power query выполнить действие (в моем случае - деление) со значением отмеченных тройным восклицанием. И полученный результат поместить в изначальную ячейку, откуда были извлечены для обработки без восклицательных знаков.
Нужно именно в power query.
Спасибо большое за внимание!
следующее значение ВПР при повторе
 
Добрый день всем!

Стресовая ситуация на работе сложилась, времени не дает руководство совсем на раздумья
нужно сопоставить две таблицы каждая по 45 тыс. строк. ( количество строк в таблицах отличается)

Как формулами или макросами подсказать excel'ю что если уже такая строка была, то брать следующее точно подходящее значение.
бывает в одной титулованной позции может быть по 5 или 6 одинково именнованые строки.
Желательно без формул массива, так как не думаю что компьютер потянет такие вычесления)))
Спасибо Всем за участие!
Сортировка списка с подпунктами в Power Query
 
Добрый день всем!
данная таблица делается в power query каждый день.
как дать команду PQ  что бы он рассортировал список в предпросмотре, после со списком будет производиться дальнейшая работа в PQ по вычеленению данных

он сортирует                    Должно быть
Том 1 книга 1                   Том 1 книга 1
том 10 книга 1                 Том 2 книга 1
том 100 книга 1               Том 3 книга 1
Том 2 книга 1                   .........
Том 3 книга 1                   Том 10 книга 1
                                        ...............
                                        Том 100 книга 1
Спасибо за участие
Склеивание формулы в VBA из адресов RANGE
 
Добрый день всем!
Извините за английскую версию, но так удобней писать, код в VBA

как склеить формулу из диапазонов, которые определяются заранее кодом в VBA
Они определяются правильно (перепроверял много раз) и объявлены в начале кода переменными as Range
Последняя формула осталась, и  код готов.

Диапазоны rng1 И rng2 находятся в той же книге, но на другом листе

Должна в ячейке получиться такая
=INDEX(P!R1C3:R3C8;2;MATCH(R4C2;P!R1C4:R1C8;1))
Код
ActiveCell.FormulaR1C1 = "=INDEX("Другой лист" & rng1,2,MATCH("Искомый текст","Другой лист"& rng2,1))"
Всем спасибо заранее!
PQ Сбор однородной таблицы из разных книг с разными именами
 
Добрый день!
Подскажите как поменять в расширенном редакторе код для захвата однотипных данных с разными именами файлов, имеющими разные имена листов.
Тобишь, объединить данные примера 1 с данными примера 2,
Код
let
    Source = Excel.Workbook(Parameter1, null, true),
    #"-_Sheet" = Source{[Item="-",Kind="Sheet"]}[Data],
    #"Promoted Headers" = Table.PromoteHeaders(#"-_Sheet", [PromoteAllScalars=true])
in
    #"Promoted Headers"

#"-_Sheet" = Source{[Item="-",Kind="Sheet"]}[Data], -проблема в помеченном красном, в макросе подсавил бы звездочку. Но в query не канает.
Пусть хватает хоть все пустые листы главное, собирать с разными именами листов.

Игнорирование команды по удалению листов в книге
 
Подскажите готовый макрос по перехвату команды по удалении листа из книги, Что бы определенные листы было не возможно удалить из книги.
с параметром Private Sub Worksheet_BeforeDelete()
Расстановка итогов по каждой позиции разного размера (VBA), Простановка итоговой суммы по каждой позиции в одном столбце
 
Всем Добрый день!
третий час бьюс над мелочью.
помогите доработать макрос по расстановке сумм по каждой позции.
Скрытый текст
Приложил файл с тремя вкладками указал стрелками где происходит заплет, в остальных случаях код работает хорошо.
Когда позиции идут сплошняком без состаляющих
файл почти на 7 тыс позиций и на 220 тыс. заполненных строк
спасибо за участие.
Поиск нескольких непрерывных диапазонов данных
 
Добрый день всем!
Задачка у меня следующая.
Есть табель за весь текущий год. Задача стоит найти с какие по какие даты был человек.
формулы
Код
=ЕСЛИОШИБКА(ИНДЕКС(B$1:KS$1;;АГРЕГАТ(15;6;СТОЛБЕЦ($B:$KS)/($B14:$KS14<>"");1));"")
=ЕСЛИОШИБКА(ИНДЕКС(B$1:KS$1;;АГРЕГАТ(14;6;СТОЛБЕЦ($B:$KS)/($B14:$KS14<>"");1))-1;"")

находят только самые крайние даты, Самую раннюю и самую позднюю.
А как найти разрывы в датах которые могут быть посередине?
Разбивать на месяца тоже не вариант. Так как человек может уехать в начале  месяца и приехать к концу месяца, то формулы отразят что он целый месяц работал. А по факту только два, например 1 и 31 числа.
Руками перебирать тоже - не вариант список почти на 4 500 имен.
Спасибо за участие всем.
Показать строки по условию
 
Добрый день форумчане!
Дайте подсказку по доработке макроса для раскрытия строк по условию.
Раскрываться должны строки которые не содержат пустые или нулевые значения в столбце "F"+ раскрыться должны наименования под раздела и раздела к которым относится эта строка.

Например.
в графе F поз. 1.3.1.1 имеется значение оно раскрывается + также макрос должен раскрыть позиции 1.3.1, .1.3 и 1
Скрытый текст
Вставка пустой последней строки на каждой странице.
 
Сложность в том что в файле могут быть спрятанные строки как до разрыва страницы так и после.
В файле есть наброски кода, он определяет номер каждой стоки с верху потом командой Resize он смещается на одну вверх, то есть попадает на нижнюю строку предыдущей страницы, если пустые строки отсутвуют.
Но если там есть много скрытых строк, создается скрытая строка внутри спрятанного диапазона.
Буду признателен за помощь.
Изменено: Kazanildarik - 20.09.2018 09:54:59
Автоматичкская вставка промежуточных итогов в конце каждой страницы одного листа после разбивки
 
Лист КС-2  отмасштабирован и в ручную разбит на печатаемые листы,Также вручную в конце каждой печатаемой страницы (Кроме последней) есть строка "Итого без ндс" с суммой соотвествующих столбцов именно текущей страницы где просматривается строка.
В перспективе в новый такой файл нужен будет макрос что бы строку "итого без НДС" вставлялась автоматом после каждой разбивки на страницы и масштабирования. Но и что бы эти строки написанные макросом двигались вместе с разбивками и пересчитывала суммы текущей страницы и что бы сумма этих макросных строк "Итого без НДС" была равна сумме на самой последей странице Файл может быть бесконечным по количеству строк, а столбцы не изменны .

В связи со сказанным выше прошу помочь в подсказках по написанию макроса т.к в VBA я всего 2-ю неделю, а именно:
1) Как привязаться кодом VBA  к разбиению т.е. к синей полужирной полосе при разметке каждой страницы
2) Как кодом привязаться к номерам уже разбитых страниц, что бы указать где применять данный код именно везде кроме первой и последней странице

Спасибо всем огромное за участие.
Изменено: Kazanildarik - 27.09.2017 20:04:27
Поиск и подстановка нужного массива с нужным количеством столбцов по условию
 
Поиск и подстановка нужного массива по условию с нужным количеством столбцов
Извлечение значения из шапки или название строки выбранного массива
 
Добрый день форумчане!
Наконец-то с понедельника в отпуск. Напоследок озадачили огромным отчетом по материалам к счастью в excele))))
Из огромной формулы остался последний фрагмент почти самый пустяковый до которого додуматься не могу.
Нужна  формула что бы она согласно выбора нужного ПГ из 1-го столбца  ведергивала обозначение соответсвующего СМ из первой строки
Например строке ПГ-2 соответствует СМ-3, а ПГ-3 соответует  СМ-2 потому что стоят значения на их перекрестиии
И если можно дайте обратную формулу что бы при выборе нужно СМ из первой строки выдавался нужный ПГ-1 из первого столбца
Позже, не без вашей помощи ))))) я применю это к остальным отдельным буквенным обозначениям такие как Д, П и пр.
Спасибо заранее всем за участие!
Изменено: Kazanildarik - 28.07.2017 09:13:50
Поиск крайних дат и расстановка их в один столбец напротив позиций
 
Всем добрый день!
Есть график производства работ по строительству.
Искомые данные.xlsx (18.11 КБ)
Не хочется ручками напротив каждой позиции писать с такого числа по такое данная строчка выполняется. согласно выделенным ячейкам
Можно ли как-то сделать что бы он на ходил первую дату потом к этому прибавить количество дней, высчитанная командой СЧЁТЗ и получиться с такое число по такое.
Или сразу что бы находила крайние единицы даты производства и выписывала со строки 3 что бы получилось следующее:
1) Допуск на участок капитального ремонта, инструктаж персонала с 1.06.17 по 06.06.17
Поиск соответствующего значение исходя от цвета ячейки
 
Добрый день!
Прошу помочь с разноской дат в закулисье исходя от отмеченного цвета.
Например строчка  Допуск на участок капитального ремонта, инструктаж персонала по цветам видно с 01.06.17 по 06.06.17
Вот надо что бы даты разбросались на следующие строки, куда будет протянута формула . Таких строк более 3000 поэтому ручками даты писать не вариант.
Спасибо за внимание.
Изменено: Kazanildarik - 14.06.2017 16:50:14
Сумма двух результатов одной ячейки
 
Ребята подскажите как сложить две и более ячейки имеющие результаты в двух единицах измерения записанные через дробь (в моём примере масса трубы и её длина) в такой же формат масса/длина
Файл прилагается.

Можно отдельно ниже или в сторонке все отдельно подсчитать и потом использовать функцию сцепить, но приложенный файл это только фрагмент таблицы и она уже на все четыре разошлась, через полгода будет вообще не неимоверных размеров, где каждая новая строка или столбец будет лишний раз с толку сбивать
Вот поэтому интересует формула что бы все в одной ячейке посчиталось при выделении который Excel показывал бы откуда и что берет для расчетов.
Спасибо за помощь
Изменено: Kazanildarik - 07.04.2017 03:54:19
Страницы: 1
Наверх