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

Страницы: 1
Из плоской в кросс таблицу(PQ), Expression.Error: Элементов в перечислении было слишком много для выполнения операции. Сведения: List
 
Приветствую!
Столкнулся с тем, что нужно из плоской таблицы сделать кросс таблицу. Решил попробовать через PQ, но столкнулся с ошибкой.

Код:
Код
let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Измененный тип" = Table.TransformColumnTypes(Источник,{{"ФИО", type text}, {"Параметр", type text}}),
    #"Сведенный столбец" = Table.Pivot(#"Измененный тип", List.Distinct(#"Измененный тип"[Параметр]), "Параметр", "ФИО")
in
    #"Сведенный столбец"

Скрытый текст

В чем может быть причина ?

Пробовал иначе сделать, но зашел в тупик:

Код
let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Измененный тип" = Table.TransformColumnTypes(Источник,{{"ФИО", type text}, {"Параметр", type text}}),
    #"Сведенный столбец" = Table.Pivot(#"Измененный тип", List.Distinct(#"Измененный тип"[ФИО]), "ФИО", "Параметр"),
    #"Пониженные заголовки" = Table.DemoteHeaders(#"Сведенный столбец"),
    #"Измененный тип1" = Table.TransformColumnTypes(#"Пониженные заголовки",{{"Column1", type text}, {"Column2", type text}, {"Column3", type text}, {"Column4", type text}, {"Column5", type text}, {"Column6", type text}, {"Column7", type text}, {"Column8", type text}, {"Column9", type text}, {"Column10", type text}, {"Column11", type text}, {"Column12", type text}, {"Column13", type text}, {"Column14", type text}, {"Column15", type text}, {"Column16", type text}, {"Column17", type text}, {"Column18", type text}, {"Column19", type text}, {"Column20", type text}, {"Column21", type text}, {"Column22", type text}}),
    #"Обращенные строки" = Table.ReverseRows(#"Измененный тип1"),
    #"Повышенные заголовки" = Table.PromoteHeaders(#"Обращенные строки", [PromoteAllScalars=true]),
    #"Измененный тип2" = Table.TransformColumnTypes(#"Повышенные заголовки",{{"Коммерческий директор", type text}, {"Экономисты", type text}, {"Руководитель группы торгового маркетинга", type text}, {"Трейд маркетолог", type text}, {"Дивизиональный менеджер", type text}, {"Дивизиональный менеджер_1", type text}, {"Дивизиональный менеджер_2", type text}, {"Трейд маркетолог_3", type text}, {"Трейд маркетолог_4", type text}, {"Pегиональный менеджер", type text}, {"Pегиональный менеджер_5", type text}, {"Pегиональный менеджер_6", type text}, {"Дивизиональный менеджер_7", type text}, {"Дивизиональный менеджер_8", type text}, {"Pегиональный менеджер_9", type text}, {"Pегиональный менеджер_10", type text}, {"РКАМ или ТМ или Сити", type text}, {"РКАМ или ТМ или Сити_11", type text}, {"РКАМ или ТМ или Сити_12", type text}, {"Директор по продажам", type text}, {"РКАМ или ТМ или Сити_13", type text}, {"РКАМ или ТМ или Сити_14", type text}})
in
    #"Измененный тип2"



Пример прилагаю, с тем что есть и что необходимо получить.

Спасибо!
Имя столбца в PQ, как функция.(Изменяемое название столбца)
 
Добрый день. Пытаюсь сделать пользовательский столбец, чтобы он равнялся другому столбцу, имя которого пользователь выбирает в ячейке, куда ссылаюсь:
Код
Excel.CurrentWorkbook(){[Name="Датчик"]}[Content]{0}[4]

В итоге получается:

Код
 #"Добавлен пользовательский объект2" = Table.AddColumn(#"Добавлен пользовательский объект1", "Время", each Excel.CurrentWorkbook(){[Name="Датчик"]}[Content]{0}[3])

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

Если грубо, должно получится:

Код
 #"Добавлен пользовательский объект2" = Table.AddColumn(#"Добавлен пользовательский объект1", "Время", each [Отсчёты])
Или
Код
 #"Добавлен пользовательский объект2" = Table.AddColumn(#"Добавлен пользовательский объект1", "Время", each [Сек.])

В зависимости от выбора пользователя, из списка в ячейке Q2

Код запроса:

Скрытый текст

Изменено: Xat - 25.11.2019 10:00:15
Подключение сводной к запросу PQ, DataFormat.Error: Не удалось преобразовать в число.Сведения:(пусто)
 
Приветствую! Сделал слияние таблиц по одному столбцу, в Power Query. При подключении сводной таблицы к данному запросу выдает ошибку:
Цитата
DataFormat.Error: Не удалось преобразовать в число
Сохранил в запросе строки ошибок получил следующие:
Цитата
DataFormat.Error: Не удалось преобразовать в число.
Сведения:
   (пусто)
Проверил исходники, на наличие символов, ничего не обнаружил. Сводная успешно подключается к запросом по отдельности, но при слиянии начинает выдавать ошибку. Пробовал заменить "пустоту" на "-", результатов не дало, ошибка осталась прежней.
Принцип слияния:
Скрытый текст

Исходный файл, много весит, не могу загрузить(  Пробовал хоть как то изобразить в файле примере, но ошибку не выдает.
Подскажите пожалуйста в чем может быть причина. Спасибо!
Изменено: Xat - 15.10.2019 16:08:04
VBA: записать формулу из ячейки в массив и выгрузить потом на новый лист
 
Приветствую!
Макрос выдает ошибку(1004) при переносе таблицы на новый лист. Останавливается на ячейки которая содержит сл функцию:
Код
=СЧЁТЕСЛИ('C:\Users\vasilenko.a\Desktop\Мониторинг рынка\Анализ мониторинга\[Реестр.xlsb]Реестр'!$Q$2:$Q$920;"*Tplast Nexus Elsi*")

Но ячейку с функцией обрабатывает:

Код
='C:\Users\vasilenko.a\Desktop\Мониторинг рынка\Анализ мониторинга\[Аналитика.xlsb]Статистика'!F3

Пробовал с закрытой , открытой , удалял реестр из папки и т.д , ошибка не ушла.

Макрос ругается на сл строчку:

Код
 Cells(i, j).Value = mass(i - 1, j)

Хотел сделать редизайнер таблицы. В чем может быть проблема ?
Заранее спасибо!

Макрос:
Код
Sub fltbl()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.Calculation = xlCalculationManual
Dim mass()
lr = ActiveSheet.UsedRange.Rows.Count
lc = ActiveSheet.UsedRange.Columns.Count
ReDim mass(1 To (lr - 3) * (lc - 5), 1 To 7) ' lr-3 - минус 3 первые строки шапки, lc-5 - марки с 6-го столбца, поэтому -5
n = 3 'номер первой строки с названиями марок
For i = 4 To lr ' с четвертой строки начинаем сбор данных
    If Cells(i, 3).Value = "" Then
     n = i 'следующая строка с марками, когда в третьем столбце пусто
    Else
    For j = 6 To lc Step 2 ' марки с 6-го столбца
     If Cells(n, j).Value <> "" Then
      a = a + 1
      mass(a, 1) = Cells(i, 1).Value: mass(a, 2) = Cells(i, 2).Value
      mass(a, 3) = Cells(i, 3).Value: mass(a, 4) = Cells(i, 4).Value
      mass(a, 5) = Cells(i, 5).FormulaLocal: mass(a, 6) = Cells(n, j).Value
      mass(a, 7) = Cells(i, j).FormulaLocal
     End If
    Next
    End If
Next
Worksheets.Add
For i = 2 To a + 1
    For j = 1 To 7
     Cells(i, j).Value = mass(i - 1, j)
    Next
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.Calculation = xlCalculationAutomatic
End Sub
Изменено: Xat - 23.08.2018 11:44:55
Вложенный файл в личной переписке.
 
Приветствую!
Возможно ли файл отправить в личной переписке?
Ни как не могу найти кнопку для вложения файла.  
Редизайнер многоуровневой таблицы, Адаптация примера Николая Павлова
 
Приветствую!
Изначально погнался за красотой таблицы теперь кусаю локти :(
Есть многоуровневая таблица ( в примере только два города в рабочей таблице их более 100). Хочу ее перевести в классическую таблицу.
Наткнулся на пример от Николая. Но он не совсем справляется. Для его работы разбиваю таблицу на области и каждую область прохожу макросом отдельно , тем самым создавая кучу новых листов. Можно ли как то доработать макрос чтобы он справился с моими заграмождениями( обработать все области сразу) ?
Заранее спасибо!

Макрос из примера:
Код
Sub Redesigner()    Dim i As Long
    Dim hc As Integer, hr As Integer
    Dim ns As Worksheet
     
    hr = InputBox("Сколько строк с подписями сверху?")
    hc = InputBox("Сколько столбцов с подписями слева?")
     
    Application.ScreenUpdating = False
     
    i = 1
    Set inpdata = Selection
    Set ns = Worksheets.Add
     
    For r = (hr + 1) To inpdata.Rows.Count
        For c = (hc + 1) To inpdata.Columns.Count
            For j = 1 To hc
                ns.Cells(i, j) = inpdata.Cells(r, j)
            Next j
             
            For k = 1 To hr
                ns.Cells(i, j + k - 1) = inpdata.Cells(k, c)
            Next k
             
            ns.Cells(i, j + k - 1) = inpdata.Cells(r, c)
            i = i + 1
        Next c
    Next r
End Sub
Изменено: Xat - 17.08.2018 13:47:11
Подсчет ячеек содержащие только одно из двух значений
 
Приветствую!
Нужно подсчитать ячейки содержащие "Арбуз" или "Белка" , но при этом  ячейки содержащие  "Арбуз" и "Белка" не считать.
Ячейки для подсчета в столбце D
Заранее спасибо!
Данная потребность является обратной этой. сейчас для ячеек содержащие  "Арбуз" и "Белка" использую
Код
=СЧЁТЕСЛИ(D6:D9;"*арбуз*белка*")+СЧЁТЕСЛИ(D6:D9;"*белка*арбуз*")
Изменено: Xat - 16.08.2018 14:05:32
Подсчет ячеек содержащие два разных значения в контексте текста ячеек
 
Приветствую!
Ни как не пойму какая функция может подсчитать кол-во ячеек которые содержат определенный текст.Пробовал функцию СЧЁТЕСЛИ но она не совсем справляется.
В примере: нужно подсчитать ячейки содержащие "Арбуз" и "Белка" , но при этом  ячейки содержащие просто Арбуз" или "Белка" не считать.
Заранее спасибо!
Изменено: Xat - 16.08.2018 12:43:01
Протянуть ячейки вниз только на пустые ячейки.
 
Добрый день.Есть ли возможность быстро протянуть ячейки вниз только на пустые ячейки? Пример прилагаю.
Изменено: Xat - 15.06.2018 12:36:16
Удаление сообщения
 
Добрый день.Есть ли возможность удалить свое сообщение в теме,если вдруг ошибся темой и т.д ?  
Подсчет количества торговых точек по направлениям с разделением на категории направлений
 

Добрый день! Нужно подсчитать количество ячеек, определённым методом.

В примере указана примерная информация о 4 торговых точках"ТТ" (см пример)

Что есть что:

У ТТ есть направления AB и CD , они включают в себя под направления, A B C D , соответственно. К каждому под направлению относится свой товар. Он указан в скобках у под направления. A(1,2,3).

Зеленым цветом там, где должны получить данные, желтым цветом данные для подсчета.(См пример)

Подсчет:

ТТ№1 Есть охват(стоит "+") по товару «№2», «№3» и «№11» значит ставим охват в под направлениях A(1,2,3) и D(10,11,12)

ТТ№3 Есть охват (стоит "+") по товару «№3», «№6» и «№10» значит ставим охват в под направлениях A(1,2,3), D(10,11,12) и B(4,5,6).

Если:

Если в столбце продукция №1 у 1, 2, 3 ,4 ТТ будет стоять + то это будет считаться как 4 для А(1,2,3)

________________________________

Нужна функция для такого подсчета.

Надеюсь понятно изложил суть задачи. Спасибо!

Изменено: Xat - 09.04.2018 12:42:25
Фильтр по горизонтали.
 

Добрый день! Необходимо фильтровать данные не по вертикали (как можно сделать обычным фильтром, см вложение), а по горизонтали (по цифрам см вложение). Каким образом можно реализовать эту задачу? Спасибо!

Ускорение работы Excel.
 

Добрый день. Имеется книга эксель, в которой несколько листов, и одним из них является реестр ТТ.В этом листе более 14000 строк с информацией (с 58 столбцами). Информация в формате умной таблицы (делал обычный формат, не помогло). К этому листу через функции обращаются остальные листы. Совсем внезапно начались зависания на листе «Реестр» (идет медленная прокрутка, медленно реагирует на активацию мышкой ячейку(8сек) и т.д), на других листах книга работает стабильно. Как можно исправить данные зависания. Переносил данный лист в отдельную книгу, зависания остались. Книга сохранена в двоичном формате. Спасибо!  

Подсчет ячеек содержащие «1», но определенным образом.
 

Добрый день. Подскажите формулу(Если есть вариант макроса , то увы он не подойдет , так как основной файл очень большой ,и с макросам тормозит). Нужно подсчитать количество ячеек содержащие 1, но определенным образом. Особенность заключается в сл: Есть два направления AB и CD , они делятся на A и B , и C и D , соответственно(см пример).В столбцах с под направлениями проставляются 1 и 0. Необходимо подсчитать количество ТТ занимающиеся AB и CD.Ручным трудом это делается сл образом:

Смотрим

ТТ-1 , A-1, B-0 , значит ТТ занимается AB

ТТ-2 , A-0, B-0 ,не занимается  AB

ТТ-3 , A-0, B-1 , значит ТТ занимается AB

И т.д

Надеюсь понятно изложил суть подсчета. Спасибо!

Изменено: Xat - 30.01.2018 12:34:57
Протягивание формулы вниз, с изменениями значений столбцов.
 

Добрый день. Походу дела запутался в банальном. Нужно протянуть формулу вниз так , чтобы у нее менялись значения столбцов по очереди, а значение строки оставалось одним и тем же. Пример с формулой и как должно получится прилагаю. Дело в том , формулу нужно протащить для более 100 разных диапазонов, и в итоге получается более 1500 строк с формулой. Если вручную заполнять получается не прилично долго. Надеюсь понятно изложил суть трудности. Спасибо!

Изменено: Xat - 29.01.2018 17:09:07
Автоматически подсчитать количество ячеек с значением «+» , но с определенным условием.
 

Добрый день. Ни как не могу придумать как автоматически подсчитать количество ячеек с значением «+» , но с определенным условием. Определенное условие заключается в сл: У нас есть столбец «охват» G (см вложение) там проставляются «+» , есть четыре столбца с направлениями, «1», «2», «3», «4», C,D,E,F(см вложение)(ячейки в этих столбцах должны быть пустыми, просто окрашены в определенный цвет) , эти столбцы закрашиваются цветом , в зависимости , от того занимается тт этим направлением или нет, нужно подсчитать кол-во «+» по каждому направлению. Ручным трудом это можно сделать сл образом. Поставить фильтр на «охват» выставить «+», поставить фильтр на цвет , на одном из направлений(«1», «2», «3», «4») и подсчитать сколько в итоге «+» , но в основном файле более 20 000 строк , и информация постоянно изменяется. Надеюсь понятно изложил суть задачи. Спасибо!

Изменено: Xat - 17.01.2018 15:48:06
Страницы: 1
Наверх