Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Елена Дроздова
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 3 4 5 След.
Цикл удаления строк умной таблицы по условию
 
#
25.10.2023 13:15:27
Код
arr_mes1 = Workbooks("ËþäèÄåíüãè2023PRO.xlsm").Worksheets("Äëÿ çàïîëíåíèÿ").ListObjects("Çàïîëíåíèå").DataBodyRange.Columns(20).Value
    ReDim arr_mes2(1 To UBound(arr_mes1))
    For i = 1 To UBound(arr_mes1)
        arr_mes2(i) = arr_mes1(i, 1)
    Next
    stroka = WorksheetFunction.Match(mes, arr_mes2, 0) + 1
    arr_mes3 = Filter(arr_mes2, mes)
    For i = stroka To stroka + UBound(arr_mes3)
        Workbooks("ËþäèÄåíüãè2023PRO.xlsm").Worksheets("Äëÿ çàïîëíåíèÿ").ListObjects("Çàïîëíåíèå").ListRows(i).Delete
    Next i

Вот так сработало)) спасибо)
 
Перейти    
Цикл удаления строк умной таблицы по условию
 
#
25.10.2023 12:35:44
Хотела еще так попробовать, но почему-то возникает ошибка несоответствия типов в строке arr_mes3 = Filter(arr_mes2, mes, include, 0):
Код
    arr_mes1 = Workbooks("ËþäèÄåíüãè2023PRO.xlsm").Worksheets("Äëÿ çàïîëíåíèÿ").ListObjects("Çàïîëíåíèå").DataBodyRange.Columns(20).Value
    ReDim arr_mes2(1 To UBound(arr_mes1))
    For i = 1 To UBound(arr_mes1)
        arr_mes2(i) = arr_mes1(i, 1)
    Next
    stroka = WorksheetFunction.Match(mes, arr_mes2, 0) + 1
    arr_mes3 = Filter(arr_mes2, mes, include, 0)
    For i = stroka To stroka + UBound(arr_mes3)
        Workbooks("ËþäèÄåíüãè2023PRO.xlsm").Worksheets("Äëÿ çàïîëíåíèÿ").ListObjects("Çàïîëíåíèå").ListRows(i).Delete
    Next i
Изменено: Елена Дроздова - 25.10.2023 12:42:12
 
Перейти    
Цикл удаления строк умной таблицы по условию
 
#
25.10.2023 12:04:46
Но здесь все строки проверяются на совпадение, а я хотела сократить путь, найдя первую точку входа. Так-то и через for + if можно сделать, я так делала уже, но было долго. Потом пробовала через find первого и последнего попадания, но этот метод мне не понравился.
 
Перейти    
Цикл удаления строк умной таблицы по условию
 
#
25.10.2023 11:56:16
МатросНаЗебре, спасибо!
 
Перейти    
Цикл удаления строк умной таблицы по условию
 
#
25.10.2023 11:36:39
Добрый день!
Прошу помочь решить проблему. Необходимо в отсортированной умной таблице удалить строки, содержащие в столбце введенный параметр (пользователь вносит номер месяца, в 20-ом столбце таблицы содержатся номера месяцев, таблица отсортирована по дате).
Попробовала сделать это следующим образом, но, похоже, где-то идет зацикливание, потому что строки сначала удаляются как надо, а потом все зависает:
Код
    arr_mes1 = Workbooks("ЛюдиДеньги2023PRO.xlsm").Worksheets("Для заполнения").ListObjects("Заполнение").DataBodyRange.Columns(20).Value
    On Error Resume Next
    i = WorksheetFunction.Match(mes, arr_mes1, 0)
    
    Do While Workbooks("ЛюдиДеньги2023PRO.xlsm").Worksheets("Для заполнения").ListObjects("Заполнение").DataBodyRange.Cells(i, 20) = mes
        Workbooks("ЛюдиДеньги2023PRO.xlsm").Worksheets("Для заполнения").ListObjects("Заполнение").ListRows(i).Delete
    Loop
 
Перейти    
Что не так с массивом (vba)?
 
#
23.10.2023 15:26:20
МатросНаЗебре, Jack Famous, спасибо вам большое!
 
Перейти    
Что не так с массивом (vba)?
 
#
23.10.2023 15:25:21
Sanja, рада бы предложить нормальное название темы, но не могу его сформулировать, т.к. не понимаю, в чем вообще проблема)))
 
Перейти    
Что не так с массивом (vba)?
 
#
23.10.2023 15:22:13
Jack Famous, проблем в изучении массивов с нуля или в чем?
Почему даже при явном обращении к элементу массива arr_mes(1) возникает та же ошибка? При том, что нижняя граница 1, а верхняя - 3408?
 
Перейти    
Что не так с массивом (vba)?
 
#
23.10.2023 15:07:17
Код
arr_mes = Workbooks("ËþäèÄåíüãè2023PRO.xlsm").Worksheets("Ó÷åò ðàáî÷åãî âðåìåíè").ListObjects("Ó÷åòÐàáî÷åãîÂðåìåíè").DataBodyRange.Columns(7).Value
stroka1 = LBound(arr_mes)
    stroka2 = UBound(arr_mes)
      
    For i = stroka1 To stroka2
        If arr_mes(i) = mes Then
            k = k + 1
            ReDim arr_tek_mes(1 To k)
            arr_tek_mes(k) = arr_mes
        End If
    Next i

Добрый день!
Помогите, пожалуйста. Записываю в массив значения столбца умной таблицы, затем ищу определенные значения в этом массиве и перезаписываю их в другой массив. Проблема: arr_mes(i) выдает ошибку "Индекс выходит за пределы допустимого диапазона". Как так?
Изменено: Елена Дроздова - 23.10.2023 15:08:08
 
Перейти    
[ Закрыто] Функция Find неверно ищет первое совпадение
 
#
17.10.2023 17:15:52
Цитата
написал:
кто-нибудь, скажите ей
Почувствовала себя прям школьницей...
Пойду искать альтернативные типы поиска и сравнения... Нелегко быть самоучкой(
 
Перейти    
[ Закрыто] Функция Find неверно ищет первое совпадение
 
#
17.10.2023 15:47:55
Цитата
написал:
поиск в массиве гораздо удобнее, однозначнее и более гибкий
С этим я согласна. Но у меня задача провести операции с теми строками, которые попадают под определенное условие: если в столбце есть нужное значение, то делаем, если нет - идем дальше. Сама таблица содержит более 16 тысяч строк, поэтому выполнение цикла по всей таблице придется ждать всю ночь. Поэтому я решила отсортировать таблицу по этому столбцу, найти первое и последнее включение нужного значения и сократить цикл до его выполнения между этими включениями. Так, кажется, быстрее)
 
Перейти    
[ Закрыто] Функция Find неверно ищет первое совпадение
 
#
11.10.2023 16:39:49
Теперь понятно, спасибо большое
 
Перейти    
[ Закрыто] Функция Find неверно ищет первое совпадение
 
#
11.10.2023 16:31:41
Цитата
написал:
Попробуйте так
Спасибо, помогло. Принцип, правда, не очень понятен, но ладно, приму как данность)
 
Перейти    
[ Закрыто] Функция Find неверно ищет первое совпадение
 
#
11.10.2023 16:14:26
Добрый день!
Прошу помочь разобраться. Функция Find правильно ищет последнее совпадение, но неправильно ищет первое: нужное значение находится во 2 строке, а макрос упорно выдает 3-ю.
 
Перейти    
Создание массива vba на основании столбца умной таблицы
 
#
10.10.2023 17:20:39
Ну конечно же... Я сама чищу данные с 15000 строки  :D
Благодарю за помощь!!!
 
Перейти    
Создание массива vba на основании столбца умной таблицы
 
#
10.10.2023 16:37:04
Цитата
написал:
все переносится
Решение гениальное, я не догадалась так просто скопировать... Но с ограничением в 14999 все равно не прокатило(
 
Перейти    
Создание массива vba на основании столбца умной таблицы
 
#
10.10.2023 16:21:57
Попробовала без цикла. Работает быстро, но когда в исходнике 16141 строка, в результате получается только 14999. И каким бы способом я ни пыталась решить эту проблему, ничего не выходит. Упорно 14999. А мне нужно, чтобы все данные из исходника были перенесены в результат. Так что массив не помог((
Изменено: Елена Дроздова - 10.10.2023 16:30:31
 
Перейти    
Создание массива vba на основании столбца умной таблицы
 
#
10.10.2023 15:36:22
Прикладываю пример с попыткой использования массива.
Вроде работает, но на большом объеме данных делает это очень долго.

Можно по-другому? Подскажите, пожалуйста, как?
Изменено: Елена Дроздова - 10.10.2023 16:11:14
 
Перейти    
Создание массива vba на основании столбца умной таблицы
 
#
10.10.2023 14:53:35
Добрый день!
Подскажите, пожалуйста, как записать в массив значения целого столбца умной таблицы для последующего переноса из массива в другую умную таблицу?
Пыталась сделать без использования массива, но на большом объеме данных теряется очень много значений.
 
Перейти    
Определить текущую должность сотрудника, Индекс+поискпоз, ВПР, функции массива?
 
#
19.09.2023 16:29:37
Цитата
написал:
просмотр последнюю возьмет, а не максимальную
Хотелось бы этого избежать. пока решила вопрос макросом, но хотелось бы, конечно, формулу использовать...
 
Перейти    
Определить текущую должность сотрудника, Индекс+поискпоз, ВПР, функции массива?
 
#
19.09.2023 15:51:53
Или хотя бы определить номер строки, в которой все условия выполняются
 
Перейти    
Определить текущую должность сотрудника, Индекс+поискпоз, ВПР, функции массива?
 
#
19.09.2023 15:48:39
Цитата
написал:
поиск последнего по условию, а если есть дата то по максимальной дате
Вот, я пытаюсь найти такое, но не понимаю, как сделать поиск по разным критериям, то есть одновременно по ФИО и по дате, которую нужно либо сравнить с сегодняшней, либо найти максимальную дату начала
 
Перейти    
Определить текущую должность сотрудника, Индекс+поискпоз, ВПР, функции массива?
 
#
19.09.2023 15:41:23
Добрый день!
Есть две таблицы: одна - ведомость изменения должностей в штате (лист "Сотрудники", а в другую нужно подтянуть текущую должность сотрудника (лист "Таблицы соответствия").

Помогите, пожалуйста, с формулой.
Заранее благодарю
Изменено: Елена Дроздова - 19.09.2023 15:44:44
 
Перейти    
Поиск подходящих дат по номеру месяца vba, функция find
 
#
06.09.2023 12:09:57
Цитата
написал:
У Вас в переменной mes дата - 08.01.1900. Вот ее Вы и ищите в таблице.
Вот именно. Мне нужно как-то объяснить макросу, что искать нужно именно номер месяца, но у меня ничего не получается
 
Перейти    
Поиск подходящих дат по номеру месяца vba, функция find
 
#
06.09.2023 11:43:39
Добрый день!
Учусь работать со словарями.
На листе 1 перечень дат и сотрудников, которые работали в эти даты, а также информация, сколько часов на каком из объектов они проработали.
На листе 2 задается номер месяца и требуется сформировать словарь, содержащий уникальных сотрудников, работавших в этом месяце, и вывести его в столбец "Сотрудник".
Следующая задача - посчитать суммарное количество времени, которое проработал сотрудник в определенный день и вывести его на пересечении фамилии и даты.
Пока что я застряла на том, что не могу через функцию Find найти нужный месяц в перечне дат. Прошу помочь, заранее благодарна.
Могу пойти от обратного и сделать сравнение месяца, полученного из каждой конкретной даты, с тем, который задан на листе 2, написать цикл, но с Find тоже хочу научиться работать
Изменено: Елена Дроздова - 06.09.2023 12:05:24
 
Перейти    
Подсчет общего количества отработанного времени на разных объектах и определение переработки vba, Поиск строки по двум условиям и запись в массив?
 
#
02.12.2022 16:47:41
Добрый день!
Таблица содержит столбцы "Дата", "Тип дня", "ФИО", "Объект", "Отработанное время", "Переработка". Необходимо с помощью макроса определить, попадает ли строка под определение переработки или нет.
Переработкой является все, что больше нуля, если тип дня = выходной, а также излишне отработанное время в рабочие дни, т.е. если отработанное время >8 (при отработанном времени в рабочий день = 10ч переработка должна равняться 2ч).
Проблема: в одну и ту же дату один и тот же человек может работать на нескольких объектах. Например, 3 часа на объекте А и 6 часов на объекте Б. Сами по себе такие строки не попадают под переработку, но в сумме дают количество часов >8, поэтому в строке, где указан объект Б, переработка должна равняться 3+6-8=1 ч.
Предполагаю, что необходимо осуществить в цикле по всей таблице поиск текущего фио и текущей даты, запись отработанного времени в массив, далее вычисления. Не умею работать с поиском, тем более по нескольким критериям. Можно втупую через цикл в цикле, где каждая строка сравнивается со всеми, но когда таких строк много, будет очень долго.
Помогите, пожалуйста, решить задачу!
 
Перейти    
Удалить строки из умной таблицы vba
 
#
18.11.2022 16:13:30
RAN, да, так тоже работает и выглядит логичнее. Спасибо!
 
Перейти    
Удалить строки из умной таблицы vba
 
#
18.11.2022 15:35:36
Если в умной таблице остается одна пустая строка, то команда
Код
tbl.DataBodyRange.Delete

вызывает ошибку.

Я попробовала добавить обработчик:

Код
    If IsEmpty(tbl.DataBodyRange) Then        tbl.DataBodyRange.Delete    End If

Если в таблице одна пустая строка, то код выполняется, а если нет, то старые данные оказываются вне таблицы, а строка внутри таблицы перезаписывается.

Я, вероятно, чего-то не понимаю, но по моей логике должно быть ровно наоборот)

В итоге, правильно работает (или мне так кажется?) вот этот код, но кто-нибудь может мне объяснить, почему так???  :D

Код
    If Not IsEmpty(tbl.DataBodyRange) Then        tbl.DataBodyRange.Delete    End If
 
Перейти    
Работа с массивами данных vba, Сортировка, вывод уникальных значений
 
#
18.11.2022 13:46:53
Огромное спасибо за помощь!
 
Перейти    
Работа с массивами данных vba, Сортировка, вывод уникальных значений
 
#
17.11.2022 17:10:24
МатросНаЗебре, а как мне теперь на лист "Тайминг" вывести в столбик уникальные ФИО, отсортированные по возрастанию, а в строчку - уникальные объекты, тоже отсортированные по возрастанию, в соответствии с выбором того же месяца, что и в табеле?
 
Перейти    
Страницы: 1 2 3 4 5 След.
Наверх