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

Страницы: 1 2 3 4 След.
Сборка данных из таблиц в PQ, Отображение "опережающего" нуля в числах после сборки таблиц в запросах Power Query
 
Михаил Л,  вау!!  Не догадался в первом запросе изменить тип(
Вопрос снят) Благодарю, от души!
Сборка данных из таблиц в PQ, Отображение "опережающего" нуля в числах после сборки таблиц в запросах Power Query
 
Михаил Л, поясните, пожалуйста, на каком этапе формирования запроса и где нужно применить эту функцию? Формат поле3 уже установил как "текст", однако, результат налицо: "входящие" нули в результатах Zapros2 пропадают! :(
Сборка данных из таблиц в PQ, Отображение "опережающего" нуля в числах после сборки таблиц в запросах Power Query
 
Добрый день!
Собрал для примера три таблицы в Power Query (как учил Николай) - папка "таблицы"- двумя запросами в Power Query. При подтягивании данных из поля3 PQ "съедает" опережающие нули в числах (даже если они в формате текст"). Как победить, чтобы отображалось в Zapros2 так же, как в оригиналах таблиц?
[Чтобы Zapros2 корректно отработал на Вашем ПК, нужно заменить путь в запросе]
Преобразование формата ячеек в текстовый
 
Дмитрий(The_Prist) Щербаков, спасибо большое, изучу!
Преобразование формата ячеек в текстовый
 
jeka-irbis, спасибо! А если, вдруг, будет большее количество знаков, например, 25? Как сделать формулу универсальной, чтобы не отслеживать меняющееся количество знаков?
Преобразование формата ячеек в текстовый
 
Сергей, если формулу применить к каждой ячейке - числа изменятся!
Не годится)
Преобразование формата ячеек в текстовый
 
Добрый день!
Есть столбец с числовыми данными, однако, формат ячеек Excel отображает как "(все форматы)".
Прошу помощи в том, как преобразовать формат ячеек столбца в "текст", чтобы сохранились все цифры, в т.ч. "опережающий" ноль.
Формула? Макросом?
Пример прилагаю.
Изменено: aesp - 11 мар 2020 11:25:15
Поиск столбцов с датами и правка формата, Исправление формата столбцов с датами
 
RAN,  Благодарю! То, что нужно)
Поиск столбцов с датами и правка формата, Исправление формата столбцов с датами
 
Добрый день!
Есть фрагмент выгрузки данных, где ячейки столбцов с датами отображаются в ОБЩЕМ формате. Покажите, пожалуйста, как макросом найти все такие стобцы (могут находиться совершенно в различных столбцах) и исправить формат таких ячеек в КРАТКИЙ формат даты.
Пример прилагаю.
Удаление дублей строк и сцепка содержимого ячеек
 
Цитата
casag написал:
не отработал несмежные.
casag, сорри! Всё отлично) Тема закрыта)
Удаление дублей строк и сцепка содержимого ячеек
 
casag, огромное спасибо! Вы мне всё разъяснили!
Однако, несмежные одинаковые строки не обрабатывает.
Изменено: aesp - 23 авг 2019 13:46:11
Удаление дублей строк и сцепка содержимого ячеек
 
Цель достигнута!)
Нашёл решение здесь:
в "Копилке идей"
Как посчитать с помощью сводной таблицы количество контрагентов, а не количество записей (с данным контрагентом)
 
hudoi, предлагаю Вам скопировать столбец "Контрагенты" на отдельный лист и удалить стандартным способом дубликаты. Получится список уникальных записей. В Вашем примере = 39.
Удаление дублей строк и сцепка содержимого ячеек
 
Уважаемый, casag, всё отлично работает. Благодарю!

Поясните только, пожалуйста, почему цикл "То 7", а также не понятен смысл условия:
Цитата
If Cells(i, 1) = Cells(i - 1, 1) And Cells(i, 2) = Cells(i - 1, 2) And Cells(i, 4) = Cells(i - 1, 4)
И ещё: извините, забыл в описании задачи указать, что повторяющиеся строки могут быть и несмежными (Пример2).
Изменено: aesp - 23 авг 2019 13:39:46
Удаление дублей строк и сцепка содержимого ячеек
 
Доброе время суток!

Задачка по преобразованию таблички в несколько тысяч строк.
В файле Пример показано, как может выглядеть исходная таблица (Лист1) и к какому виду нужно преобразовать (Лист2).
В исходной много строк с одинаковым содержимым, за исключением ячейки в крайнем правом столбце (№документа). Причём, количество повторов у разных строк различное. Нужно дубликаты строк удалить, одновременно заполнив правую ячейку новым содержимым - сцепив через "; " номера документов, указанных в задублированных строках.
Фильтрация строк таблицы по искомой дате в ячейках, Фильтрация строк таблицы по искомой дате в ячейках с учётом диапазона между датами
 
Dima S, Mershik, благодарю, работает)
Фильтрация строк таблицы по искомой дате в ячейках, Фильтрация строк таблицы по искомой дате в ячейках с учётом диапазона между датами
 
Mershik, извините - не вижу макрос в Вашей версии файла. Как называется?
Фильтрация строк таблицы по искомой дате в ячейках, Фильтрация строк таблицы по искомой дате в ячейках с учётом диапазона между датами
 
Dima S, Спасибо, хорошая формула.. Однако, нужно, чтобы строки фильтровались автоматически при вводе искомой даты.
Фильтрация строк таблицы по искомой дате в ячейках, Фильтрация строк таблицы по искомой дате в ячейках с учётом диапазона между датами
 
Цитата
Dima S написал:
имеется ввиду, что дата фильтра попадает в интервал между датой начала и конца.
Совершенно верно поняли)
Фильтрация строк таблицы по искомой дате в ячейках, Фильтрация строк таблицы по искомой дате в ячейках с учётом диапазона между датами
 
Приветствую!
Задача: в искомой таблице с данными есть два столбца с датами и временем начала операции.
Нужно, чтобы, при вводе конкретной даты в контрольную ячейку, таблица фильтровалась построчно и оставались видны строки не только с указанной датой, но и диапазонами дат, между которых искомая находится. Исходный лист и то, как будет выглядеть итог - показал на примере.
Как решить?
Всех благодарю заранее!
Фильтрация строк таблицы по ключевым адресам ячеек, Фильтрация по массиву адресов ячеек
 
Цитата
Sanja написал:
А еще в перечне есть адрес 'G1', как с ним быть? Что выделять?
- оставлять только строки с адресами ячеек, размещённых а табличке на Лист2. "На лету" - подразумеваю, что, если изменю перечень на Лист2 - сразу увижу изменения на Лист1.
Фильтрация строк таблицы по ключевым адресам ячеек, Фильтрация по массиву адресов ячеек
 
Доброго дня!
Столкнулся с необходимостью быстрой построчной фильтрации "на лету" основной таблицы, расположенной на Листе1, по столбцу с указанными адресами ключевых ячеек на Листе2. Т.е. в перечне адресов есть, например, "G14", то в итоговой табличке останется строка №14 с выделенной ячейкой G14. Обе таблицы в формате "умных". В итоге по примеру должны отображаться 6 строк из 17 плюс шапка таблицы.
Решения подобной задачи на форуме не нашёл. Прошу помощи)
Копирование шапки при разбиении таблицы на листы, Доработка рабочего кода
 
Маугли, спасибо за помощь!
Всё работает! Пошёл код изучать :D
Копирование шапки при разбиении таблицы на листы, Доработка рабочего кода
 
Уважаемые, форумчане!
Подсмотрел на форуме код уважаемого, tester. Макрос разбивает таблицу по содержимому столбца по файлам.
Помогите, пожалуйста, доработать его в части: копирования шапки исходной таблицы  в каждый новый файл.
В примере разбор идёт по содержимому 1го столбца.


Код
Sub Разделить_по_книгам()
    Dim oDic As Object, arrData(), arrSeparateItems(), arrTemp(), i&, n&, m&, k&
 
    If MsgBox("Разделить данные по книгам?", vbQuestion + vbYesNo, "Вопрос") = vbNo Then Exit Sub
    Application.ScreenUpdating = False
    arrData() = Range("A1").CurrentRegion.Value
    Set oDic = CreateObject("Scripting.Dictionary")
    For i = LBound(arrData) To UBound(arrData)
        If Not oDic.exists(arrData(i, 1)) Then oDic.Add arrData(i, 1), arrData(i, 1)
    Next i
    arrSeparateItems() = oDic.items
    For n = LBound(arrSeparateItems) To UBound(arrSeparateItems)
        ReDim arrTemp(1 To UBound(arrData), 1 To UBound(arrData, 2))
        k = 0
        For i = LBound(arrData) To UBound(arrData)
            If arrData(i, 5) = arrSeparateItems(n) Then
                k = k + 1
                For m = LBound(arrData, 2) To UBound(arrData, 2)
                    arrTemp(k, m) = arrData(i, m)
                Next m
            End If
        Next i
        Workbooks.Add
        Range("A1").Resize(UBound(arrTemp), UBound(arrTemp, 2)).Value = arrTemp
        Columns("A:E").AutoFit
        Columns("B:B").HorizontalAlignment = xlLeft
        ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Right(arrSeparateItems(n), 10), xlExcel8
        ActiveWorkbook.Close SaveChanges:=True
    Next n
    Application.ScreenUpdating = True
    MsgBox "Данные разделены и сохранены в " & ThisWorkbook.Path & "\", vbInformation, "Конец"
End Sub
Изменено: aesp - 10 май 2019 19:43:20
Разбить файл по содержимому ячейки (VBA)
 
Уважаемый, tester!
Очень помог Ваш код, указанный здесь: #3
Помогите доработать макрос:
1) чтобы копировалась первая строка таблицы - шапка - на каждый лист;
2) чтобы сохранялось форматирование данных из исходной таблицы.

Заранее благодарю! :)
Сохранение файла XML, открытого в Блокноте с именем из ячейки., Xml с именем из Xlsb
 
Помогите, пожалуйста, доработать код в части сохранения открываемого файла xml с наименованием из ячейки xlsbl файла. Пример прилагаю. Строчкой "ActiveWorkbook.SaveAs" не получается)
Копирование и вставка диапазона из файла Excel в файл Блокнота, Excel - Блокнот
 
Anchoret, извините, учту)
Копирование и вставка диапазона из файла Excel в файл Блокнота, Excel - Блокнот
 
Hugo, решено! Благодарю!
Копирование и вставка диапазона из файла Excel в файл Блокнота, Excel - Блокнот
 
Anchoret, радость оказалась не долгой.. Вставляю текст в отдельный модуль в своём проекте - не работает. Даёт ошибку << Run-time Error '6' Overflow >> и останавливается на строке
Код
For a = 1 To UBound(arr, 1)

Вставляемый диапазон с данными (столбец) более 40000 строк. Уменьшаю количество строк с данными - отрабатывает.
К сожалению, не могу выложить файл - весит более 1,5 МБ. Как обойти ошибку?
Изменено: aesp - 25 мар 2018 13:43:32
Копирование и вставка диапазона из файла Excel в файл Блокнота, Excel - Блокнот
 
Anchoret, это то, что надо!
БЛАГОДАРЮ! :D
Страницы: 1 2 3 4 След.
Наверх