Всем привет! Подскажите пожалуйства, как расширять динамический массив по мере появления новых данных, при их сборе циклом? Второй день ковыряюсь, ошибку все найти не могу))) Статей много прочёл, но с места сдвинуться не могу))
Код
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
Всем привет! Имеется файл объем разбросан в ручную на каждую единицу изменения. Подскажите как в Power Query сложить два столбца, в исходных столбцах часто встречается различный текст, который и мешает банальному действию сложить. Либо выполнить действие, также как делает функция просмотр в excel т.е. выводит результат из вектора результатов на основании подходящих значений просматриваемого вектора.
Добрый день Всем! Как в power query выполнить действие (в моем случае - деление) со значением отмеченных тройным восклицанием. И полученный результат поместить в изначальную ячейку, откуда были извлечены для обработки без восклицательных знаков. Нужно именно в power query. Спасибо большое за внимание!
Стресовая ситуация на работе сложилась, времени не дает руководство совсем на раздумья нужно сопоставить две таблицы каждая по 45 тыс. строк. ( количество строк в таблицах отличается)
Как формулами или макросами подсказать excel'ю что если уже такая строка была, то брать следующее точно подходящее значение. бывает в одной титулованной позции может быть по 5 или 6 одинково именнованые строки. Желательно без формул массива, так как не думаю что компьютер потянет такие вычесления))) Спасибо Всем за участие!
Добрый день всем! данная таблица делается в 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
как склеить формулу из диапазонов, которые определяются заранее кодом в VBA Они определяются правильно (перепроверял много раз) и объявлены в начале кода переменными as Range Последняя формула осталась, и код готов.
Диапазоны rng1 И rng2 находятся в той же книге, но на другом листе
Должна в ячейке получиться такая =INDEX(P!R1C3:R3C8;2;MATCH(R4C2;P!R1C4:R1C8;1))
Добрый день! Подскажите как поменять в расширенном редакторе код для захвата однотипных данных с разными именами файлов, имеющими разные имена листов. Тобишь, объединить данные примера 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()
Всем Добрый день! третий час бьюс над мелочью. помогите доработать макрос по расстановке сумм по каждой позции.
Скрытый текст
Sub PasteSums()
'ScreenUpdating = False
For i = 1 To 25 k = i If Cells(i, 5).Value <> "" And Cells(i, 8 ) .Value <> "" Then Do k = k + 1 If k > 25 Then GoTo finish Loop Until Cells(k, 5).Value <> "" Cells(i, 15).FormulaR1C1 = "=SUM(R[1]C[3]:R[" & k - i - 1 & "]C[3])" i = k - 1 End If Next i
finish:
ScreenUpdating = True
End Sub
Приложил файл с тремя вкладками указал стрелками где происходит заплет, в остальных случаях код работает хорошо. Когда позиции идут сплошняком без состаляющих файл почти на 7 тыс позиций и на 220 тыс. заполненных строк спасибо за участие.
находят только самые крайние даты, Самую раннюю и самую позднюю. А как найти разрывы в датах которые могут быть посередине? Разбивать на месяца тоже не вариант. Так как человек может уехать в начале месяца и приехать к концу месяца, то формулы отразят что он целый месяц работал. А по факту только два, например 1 и 31 числа. Руками перебирать тоже - не вариант список почти на 4 500 имен. Спасибо за участие всем.
Добрый день форумчане! Дайте подсказку по доработке макроса для раскрытия строк по условию. Раскрываться должны строки которые не содержат пустые или нулевые значения в столбце "F"+ раскрыться должны наименования под раздела и раздела к которым относится эта строка.
Например. в графе F поз. 1.3.1.1 имеется значение оно раскрывается + также макрос должен раскрыть позиции 1.3.1, .1.3 и 1
Скрытый текст
Пример моего кода Sub HideRows() ScreenUpdating = False Dim qUant&, NumPos$, e, n& e = ActiveSheet.PageSetup.PrintTitleRows n = Range(e).Row + Range(e).Rows.Count e = Range(e).Rows.Count qUant = Cells(n, 3).End(xlDown).Row Range(Cells(n, 3), Cells(qUant - 1, 3)).EntireRow.Hidden = True For i = qUant To n Step -1 If Cells(i, 6).Value <> Empty _ Then NumPos = Cells(i, 2).Value If NumPos <> Empty Then Rows(i).EntireRow.Hidden = False Do a = WorksheetFunction.Substitute(NumPos, ".", "") b = Len(a) c = Len(NumPos) d = c - b f = WorksheetFunction.Substitute(NumPos, ".", "/", d) g = WorksheetFunction.Find("/", f) h = Left(NumPos, g - 1) ' h = Left(NumPos, WorksheetFunction.Find("/", WorksheetFunction.Substitute(NumPos, ".", "/", Len(NumPos) - Len(WorksheetFunction.Substitute(NumPos, ".", "")))) - 1) NumPos = h Columns("B:B").Find(What:=h, SearchOrder:=xlByRows, SearchDirection:=xlNext).EntireRow.Hidden = False Loop While Len(h) > 2
Сложность в том что в файле могут быть спрятанные строки как до разрыва страницы так и после. В файле есть наброски кода, он определяет номер каждой стоки с верху потом командой Resize он смещается на одну вверх, то есть попадает на нижнюю строку предыдущей страницы, если пустые строки отсутвуют. Но если там есть много скрытых строк, создается скрытая строка внутри спрятанного диапазона. Буду признателен за помощь.
Лист КС-2 отмасштабирован и в ручную разбит на печатаемые листы,Также вручную в конце каждой печатаемой страницы (Кроме последней) есть строка "Итого без ндс" с суммой соотвествующих столбцов именно текущей страницы где просматривается строка. В перспективе в новый такой файл нужен будет макрос что бы строку "итого без НДС" вставлялась автоматом после каждой разбивки на страницы и масштабирования. Но и что бы эти строки написанные макросом двигались вместе с разбивками и пересчитывала суммы текущей страницы и что бы сумма этих макросных строк "Итого без НДС" была равна сумме на самой последей странице Файл может быть бесконечным по количеству строк, а столбцы не изменны .
В связи со сказанным выше прошу помочь в подсказках по написанию макроса т.к в VBA я всего 2-ю неделю, а именно: 1) Как привязаться кодом VBA к разбиению т.е. к синей полужирной полосе при разметке каждой страницы 2) Как кодом привязаться к номерам уже разбитых страниц, что бы указать где применять данный код именно везде кроме первой и последней странице
Добрый день форумчане! Наконец-то с понедельника в отпуск. Напоследок озадачили огромным отчетом по материалам к счастью в excele)))) Из огромной формулы остался последний фрагмент почти самый пустяковый до которого додуматься не могу. Нужна формула что бы она согласно выбора нужного ПГ из 1-го столбца ведергивала обозначение соответсвующего СМ из первой строки Например строке ПГ-2 соответствует СМ-3, а ПГ-3 соответует СМ-2 потому что стоят значения на их перекрестиии И если можно дайте обратную формулу что бы при выборе нужно СМ из первой строки выдавался нужный ПГ-1 из первого столбца Позже, не без вашей помощи ))))) я применю это к остальным отдельным буквенным обозначениям такие как Д, П и пр. Спасибо заранее всем за участие!
Всем добрый день! Есть график производства работ по строительству. Искомые данные.xlsx(18.11 КБ) Не хочется ручками напротив каждой позиции писать с такого числа по такое данная строчка выполняется. согласно выделенным ячейкам Можно ли как-то сделать что бы он на ходил первую дату потом к этому прибавить количество дней, высчитанная командой СЧЁТЗ и получиться с такое число по такое. Или сразу что бы находила крайние единицы даты производства и выписывала со строки 3 что бы получилось следующее: 1) Допуск на участок капитального ремонта, инструктаж персонала с 1.06.17 по 06.06.17
Добрый день! Прошу помочь с разноской дат в закулисье исходя от отмеченного цвета. Например строчка Допуск на участок капитального ремонта, инструктаж персонала по цветам видно с 01.06.17 по 06.06.17 Вот надо что бы даты разбросались на следующие строки, куда будет протянута формула . Таких строк более 3000 поэтому ручками даты писать не вариант. Спасибо за внимание.
Ребята подскажите как сложить две и более ячейки имеющие результаты в двух единицах измерения записанные через дробь (в моём примере масса трубы и её длина) в такой же формат масса/длина Файл прилагается.
Можно отдельно ниже или в сторонке все отдельно подсчитать и потом использовать функцию сцепить, но приложенный файл это только фрагмент таблицы и она уже на все четыре разошлась, через полгода будет вообще не неимоверных размеров, где каждая новая строка или столбец будет лишний раз с толку сбивать Вот поэтому интересует формула что бы все в одной ячейке посчиталось при выделении который Excel показывал бы откуда и что берет для расчетов. Спасибо за помощь