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

Страницы: 1 2 3 4 След.
Оплачу решение проблемы: выделенные объекты нельзя объединить в группу, Ошибка при группировке в сводных
 
БМВ, я тоже офигел
PQ минимальное и максимальное значения с критериями
 
Цитата
buchlotnik написал:
#"Removed Other Columns1"
Логику понял , мне достаточно , спасибо большое.Пример я показал той операции , которую не знал как выполнить, поэтому все ок.
PQ минимальное и максимальное значения с критериями
 
buchlotnik, Земляк,подскажите пожалуйста,
Код
let
    Source = Excel.Workbook(File.Contents("вывы"), null, true),
    #"Монитор загрузки Manual Infeed _Sheet" = Source{[Item="вывы ",Kind="Sheet"]}[Data],
    #"Changed Type" = Table.TransformColumnTypes(#"вывы _Sheet",{{"Column1", type any}, {"Column2", type any}, {"Column3", type text}, {"Column4", type any}, {"Column5", type any}, {"Column6", type text}, {"Column7", type text}, {"Column8", type text}, {"Column9", type text}, {"Column10", type text}, {"Column11", type any}, {"Column12", type any}, {"Column13", type any}, {"Column14", type text}, {"Column15", type any}, {"Column16", type text}}),
    #"Removed Top Rows" = Table.Skip(#"Changed Type",6),
    #"Promoted Headers" = Table.PromoteHeaders(#"Removed Top Rows", [PromoteAllScalars=true]),
    #"Changed Type1" = Table.TransformColumnTypes(#"Promoted Headers",{{"#", Int64.Type}, {"Shift date", type date}, {"Shift", type text}, {"Loading Time", type datetime}, {"Order ID", Int64.Type}, {"SU", type text}, {"Item", type text}, {"Description", type text}, {"LOT", type text}, {"Status", type text}, {"Upload Qty", Int64.Type}, {"Received Qty", Int64.Type}, {"Column13", type any}, {"WMS Condition", type text}, {"WMS Process time", type datetime}, {"ERROR MESSAGE", type text}}),
    #"Removed Other Columns" = Table.SelectColumns(#"Changed Type1",{"Shift date", "Shift", "Loading Time", "SU", "Item", "Description", "LOT", "Status", "Upload Qty", "Received Qty", "ERROR MESSAGE"}),
    #"Sorted Rows" = Table.Sort(#"Removed Other Columns",{{"Loading Time", Order.Ascending}}),
    #"Filtered Rows" = Table.SelectRows(#"Sorted Rows", each ([Loading Time] <> null)),
    #"Added Custom" = Table.AddColumn(#"Filtered Rows", "Time Moscow", each [Loading Time]+#duration(0,2,0,0)),
    #"Reordered Columns" = Table.ReorderColumns(#"Added Custom",{"Shift date", "Shift", "Loading Time", "Time Moscow", "SU", "Item", "Description", "LOT", "Status", "Upload Qty", "Received Qty", "ERROR MESSAGE"}),
    #"Changed Type2" = Table.TransformColumnTypes(#"Reordered Columns",{{"Time Moscow", type datetime}}),
    ThisMonthOnly = Table.SelectRows(#"Changed Type2", each Date.IsInCurrentMonth([Shift date])),
    #"Removed Other Columns1" = Table.SelectColumns(ThisMonthOnly,{"Time Moscow", "Shift date", "Shift"}),
    //from = #"вывы",
    group = Table.Group(from, {"Shift date", "Shift"}, {"tmp", each {Table.Min(_,"Time Moscow"),Table.Max(_,"Time Moscow")}}),
    to = Table.FromRecords(List.Combine(group[tmp]))
in
    to

Не понимаю,как к основному процедуре прикрутить, я обращаюсь к файлу из папки,По идее эта строка уже не нужна,источник есть.Но вываливается в ошибку,что не так?

Код
Source = Excel.CurrentWorkbook(){[Name="First_Last"]}[Content],
Изменено: restation - 24.04.2021 22:53:57
PQ минимальное и максимальное значения с критериями
 
Цитата
buchlotnik написал:
но я бы рекомендовал все же осваивать расширенный редактор
это я понимаю, порекомендуйте литературу/ресурсы пожалуйста.У Павлова в книге больше "клацания"
PQ минимальное и максимальное значения с критериями
 
Цитата
buchlotnik написал:
Код
let    from = Excel.CurrentWorkbook(){[Name="First_Last"]}[Content],    group = Table.Group(from, {"Shift date", "Shift"}, {"tmp", each Table.FromRecords({Table.Min(_,"Time Moscow"),Table.Max(_,"Time Moscow")})}),    to = Table.Combine(group[tmp])in    to
Правильно я понимаю , стандартными кнопками редактора это не сделать?
Изменено: restation - 24.04.2021 14:21:20
PQ минимальное и максимальное значения с критериями
 
Добрый день.

Есть незамысловатая таблица, не знаю с помощью какой из функций вытащить  минимальную дату и время дня/ночи.
Желтым выделил какую логику нужно вытащить.

Есть идеи?

List.MaxВозвращает максимальное значение в списке (или необязательное значение, если список пуст).
List.MinВозвращает минимальное значение в списке (или необязательное значение, если список пуст).
Table.MaxОпределяет наибольшую строку в таблице, исходя из критериев.
Table.MinОпределяет наименьшую строку в таблице, исходя из критериев.
УФ даты и времени в зависимости от NOW()
 
Ігор Гончаренко,Спасибо, все работает. Если честно я логику  не совсем понял.А "разжевывать" Вы наврятли будете:)
УФ даты и времени в зависимости от NOW()
 
Ігор Гончаренко,
Маленькая неточность , время уже больше 20:00 , выделяет и значения 23/04 08:00 , а мне нужно чтобы только до  23/04 05:00 включительно.
Что поправить нужно?

UPD:  в самом правиле равно убрать

Скрытый текст
Изменено: restation - 22.04.2021 21:45:13
УФ даты и времени в зависимости от NOW()
 
Ігор Гончаренко,  и хочу это посмотреть:) не очень хочется в винде время менять..
УФ даты и времени в зависимости от NOW()
 
Цитата
vikttur написал: NOW()  ВСЕГДА в диапазоне текущей даты!
Согласен , не правильно ТЗ нарисовал , но смысл понятен.

Shama, В Вашем варианте УФ светит и с 08:00 до 17:00 и с 20:00.нужна привязка к текущему времени суток

Ігор Гончаренко, Ваш вариант смотрю, первый раз вижу такую реализацию.....
УФ даты и времени в зависимости от NOW()
 
Добрый день.

Сломал голову,имеется столбец в формате даты и времены.Время всегда фиксированно , в сутках 8 диапазонов см. ниже.
Мне нужно с помощью УФ выделить в столбец те ячейки которые соответствуют критериям:
1) Если NOW() в диапазоне с 08:00 текущей даты и до 20:00 включительно , то выделять строчки раные текущей дате и времени с 08:00 до 17:00 включительно.
2) Если NOW() в диапазоне с 20:01 текущей даты и до 07:59 включительно , то выделять строчки равные текущей дате до 00:00 и следующей дате с 00:01 до 07:59 ,т.е  с 20:01 до 07:59 включительно.

С первым кейсом ничего сложного, но вот ночной диапазон с 20:01 до 07:59...
8:00
11:00
14:00
17:00
20:00
23:00
2:00
5:00
8:00
Обновление запроса PQ пользователями общей сети
 
Где пользователи открывают файл на общем диске или локальной машине?
Excel Online. Открытие книги из OneDrive в режиме редактирования
 
Вопрос, файлом с вами поделились ? или он он в вашем onedrive лежит, к нему есть общий доступ? у меня открывается с личного диска сразу нормально., но общего доступа нет.
ВПР выдает ошибку НД, хотя данные поиска одинаковы
 
там проблема, что в искомом списке тоже есть пробелы.

Выделите все данные,→найти и заменить→Заменить пробел на ничего→ Ваш Впр заработает
Получение данных из закрытой книги
 
Дмитрий(The_Prist) Щербаков,  не соображаю как правильно параметры подставить в sub-e  и потом ее вызвать правильно в процедуре...


Код
    Sub Get_Value_From_Close_Book2()
4:    Dim sShName As String, sAddress As String, vData
5:    Dim objCloseBook As Object
6:
7:    Application.ScreenUpdating = False
8:    Set objCloseBook = GetObject("D:\Excle не трогать\8_Visual Managment\****.xlsx")
9:    sAddress = "C6:N10000"
10:
11:    vData = objCloseBook.Sheets("****").Range(sAddress).Value
12:    objCloseBook.Close False
13:
14:    If IsArray(vData) Then
15:        [A1].Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData
16:    Else
17:        [A1] = vData
18:    End If
19:
20:    Application.ScreenUpdating = True
21: End Sub

    Function VPR(Table As Variant, SearchColumnNum As Long, SearchValue As Variant, _
                N As Long, ResultColumnNum As Long)
25:    Dim i As Long, iCount As Long
26:    Select Case TypeName(Table)    'vdata  вместо table
        Case "Range"
28:            For i = 1 To Table.Rows.Count    'vdata  вместо table
29:                If Table.Cells(i, SearchColumnNum) = SearchValue Then
30:                    iCount = iCount + 1
31:                End If
32:                If iCount = N Then
33:                    VLOOKUP2 = Table.Cells(i, ResultColumnNum)
34:                    Exit For
35:                End If
36:            Next i
37:        Case "Variant()"
38:            For i = 1 To UBound(Table)
39:                If Table(i, SearchColumnNum) = SearchValue Then iCount = iCount + 1
40:                If iCount = N Then
41:                    VLOOKUP2 = Table(i, ResultColumnNum)
42:                    Exit For
43:                End If
44:            Next i
45:    End Select
46: End Function
Изменено: restation - 21.07.2020 21:29:07
Получение данных из закрытой книги
 
Добрый день.

Не могу допетрить , как лучше  сделать . Имеется закрытая книга на сетевом диске, из нее мне нужно вытащить данные по критерии в active.workbook .
Выполнить левый ВПР по типу ( индекс+поискпоз).

Вариантов тут два
1)открывать книгу внутри процедуры, загонять все в массивы сравнивать , записывать найденные данные в  active.workbook  , закрывать книгу сервера.
2) UDF из закрытой книги.

Я пошел по второму пункту, но предварительно выгружал данные в активную книгу в создаваемый  временный лист, и с помощью UDF по типу Vlookups, далее хотел получить данные столбца A файла на сервере, после удалить вспомогательный лист. Но насколько понимаю можно сразу вытащить нужные данные напрямую...

Внести данные нужно в файле "Критерии" ,в желтый столбец. Данные нужны из столбца A файла "вытащить данные"
Файл "критерии" active.workbook
Файл "вытащить данные" - файл на сетевом диске

P.s  пример кода не будет работать , он из конкретного проекта. Сама суть.....
Код
Sub данные_close_book()
    Dim sPath As String, sFile As String, sShName As String
    Application.DisplayAlerts = 0
    sPath = "D:\Excle не трогать\8_Visual Managment\"    '"
    sFile = "вытащить данные.xlsx"    '"
    sShName = "Test"    '"


    Worksheets.Add.Name = "Test"
    With Range("a1:N10000")
        .Formula = "='" & sPath & "[" & sFile & "]" & sShName & "'!" & "C5"    '"
        '"A1" - указывается начальная ячейка диапазона, из которого необходимо получить значения

        .Value = .Value

    End With

    Application.DisplayAlerts = 1
End Sub

Sub zapolnit()
    Application.DisplayAlerts = 0
    Dim k           As Long
    k = ActiveWorkbook.Sheets("Критерии").Cells(Rows.Count, "a").End(xlUp).Row
    With Range("b2:b" & k)
        .FormulaR1C1 = "=INDEX(Test!R1C1:R10000C324,MATCH(--Sheet1!RC6,Test!R1C12:R10000C12,0),1)"  ' тут она не корректна,для конкретного примера была верной
        .Value = .Value   '  тут я ловил ошибку Overfloor ,переполнение памяти....
        ActiveWorkbook.Sheets("Test").Delete
        Application.DisplayAlerts = 1
    End With

End Sub
Интеграгия писем из оутлук в excell
Настройка кастомного контекстного меню
 
на сам деле сам тоже искал, потом инструкцию прочитал, увидел...
Макрос VBA, для создания новых запросов из ИНСТАГРАММА
 
я думаю ,это платный раздел....
перестает работать макрос на офисе 365
 
Файл где ?
Неверная работа макроса отправки почты
 
Закоменте эту часть , и все получится

Код
If Dir(sAttachment, 16) <> "" Then
            .Attachments.Add sAttachment 'просто вложение
            'чтобы отправить активную книгу вместо sAttachment указать ActiveWorkbook.FullName
        End If

Также адрес получателя нужно просто емейл в ковычках вот так :
Код
sTo = "ag@yandex.ru"
Макрос подстановки данных по условию
 
Добрый день. Макрос не сложный , детали в личке с файлом примером. Бюджет 500 р.
Регресия на уменьшение с подстановкой данных
 
Доброго времени суток.

Столкнулся с задачей :
  Есть данные , в файле примере это столбцы  "A:D"  и есть база данных , которая представленна умной таблицей посредством PQ.Моя задача заключается в том, чтобы в столбце "E" подсчитать количество   на основании критерия столбца код , которое совпадает , с количеством умной таблицы и сумма не должны быть больше столбца" D".
Смысл регресии - если для строки найдены сопадения по принципу СУМЕСЛИ таблицы PQ <= столбца" D".  , то найденные значения при расчете для следующей строки в расчет не берутся. (В столбце "С"  будут дубли кодов всегда) . Еще один ньюанс , сначало подсчитывается общий тотал для целых чисел , после уже десятичные, оталкиваться нужно от кратности 0.25.  
Мне будет достаточно ссылку на материал, где можно почитать, если это можно реализовать формулами или pq. На vba такое не осилю...
Выгрузить необходимые данные из разных файлов в один при открытии
 
PQ думаю можно решить. Архив с несколькими файлами присылайте.
Реально ли через Power Query реализовать то, что делвает ВПР с параметром 1
 
Так?
Двухмерный поиск в кросс таблице
 
БМВ,  не верное считает... вася<>КД    

Не хватало массива { }
Изменено: restation - 24.10.2019 20:33:27
Двухмерный поиск в кросс таблице
 
БМВ,  Все тоже самое , но не первое вхождение КД , а весь массив значений первого столбца по совпадению в столбце дата  значения КД.
Двухмерный поиск в кросс таблице
 
БМВ,   Вариант такой еще, ( тянуть формулу нужно в оригинальном файле) .

=ИНДЕКС(B4:B8;ПОИСКПОЗ("КД";ИНДЕКС(C4:L8;;ПОИСКПОЗ(СУММПРОИЗВ(H$3);C3:L3;))))

А как вытащить весь массив , если повторений КД ,несколько ? Через СТРОКА и НАИМЕНЬШИЙ? и массивной?
Двухмерный поиск в кросс таблице
 
Спасибо , я сглупил , --  не использовал :( дабы  как  число пересчитало .....
Двухмерный поиск в кросс таблице
 
Добрый день.

Мозги совсем не варят, срзу скажу это  я естественно видел. У меня задача немного другая , в приложенном примере мне нужно найти формулой "Коля".
Исходные данные - я знаю дату ( по ней вывожу номер столбца массива) и  искомый символ в таблице , они могут повторятся в таблице , но в одном столбце нет.
Суть  в чем , определив строку и столбец , СМЕЩЕ-ем сдвинуться к имени, но не могу корректно вытащить номер строки по ключу в таблице....
Страницы: 1 2 3 4 След.
Наверх