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

Страницы: 1
Как с помощью VBA получить свойство из объекта Shape
 
Здравсвуйте,
подскажите пожалуйста как с помощью VBA получить свойство из объекта Shape, которые в обычном режиме можно просмоттреть если в на вкладке разработчик выбрать Design Mode, выделить объект и открыть Свойства.

Объект создан с помощью надстройки.
Часть свойств мне удалось получить но добраться до  RangeDescription я не могу.

Код
Sub GetShapeProperties()
    Dim sShapes As Shape, lLoop As Long
    Dim wsStart As Worksheet, WsNew As Worksheet
  
    Set wsStart = ActiveSheet
    Set WsNew = Sheets.Add

    WsNew.Range("A1:F1") = _
     Array("Shape Name", "Shape Type", "Height", "Width", "Left", "Top")

    For Each sShapes In wsStart.Shapes

        lLoop = lLoop + 1

        With sShapes

            'Add shape properties
            WsNew.Cells(lLoop + 1, 1) = .Name
            WsNew.Cells(lLoop + 1, 2) = .OLEFormat.Object.Name
            WsNew.Cells(lLoop + 1, 3) = .Height
            WsNew.Cells(lLoop + 1, 4) = .Width
            WsNew.Cells(lLoop + 1, 5) = .Left
            WsNew.Cells(lLoop + 1, 6) = .Top
          
        End With

    Next sShapes

End Sub
Изменено: vikttur - 07.06.2021 13:59:52
Power Querry. Извлечение атрибутов файла
 
Доброго времени суток всем.
Подскажите пожалуйста делаю подключение с помощью PQ к папке получаю список файлов (файлы Excel) и далее мне нужно получить колонки с данными из атрибутов файла.
- Кто автор файла
- Кто сделал последнее сохранение

Какими формулами это можно  получить?
PS: Поисковики мне не помогли(((
Вставка строк при смене значения в выделенном диапазоне, VBA
 
Спасибо!!!
Вставка строк при смене значения в выделенном диапазоне, VBA
 
Всем доброго времени суток.

У меня есть макрос (нашел на форуме) который позволяет вставить пустую строку при смене значения в выделенном диапазоне.
А где в нем можно дописать чтобы он вставлял не одну строку, а указанное количество?

Код
Sub InsertRow()
Dim i As Long, rCell As Range
    For Each rCell In Selection
        If rCell <> "" Then
            If rCell.Offset(1, 0) <> rCell Then rCell.Offset(1, 0).EntireRow.Insert
        End If
    Next
End Sub

Power Query connect to Yandex DataLens, connector
 
Вопрос снят, разобрался, надо брать ссылку на странице , там в левом углу есть кнопка.
Данные из интернета.
Power Query connect to Yandex DataLens, connector
 
Всем доброго времени суток.

Подскажите пожалуйста как создать подключение в Power Query к таблице из Yandex DataLens.
https://datalens.yandex/jwyaqugfllbke?

PS: ссылку сделал публичной, но ограничил данные только одним днем выгрузки.  
Изменено: Kirill_KN - 02.10.2020 13:37:04
Как сделать динамический пусть в запросе power query?
 
Вопрос снят
https://www.planetaexcel.ru/techniques/24/6749/
Как сделать динамический пусть в запросе power query?
 
Здравствуйте,

Подскажите а как сделать динамический пусть в запросе power query?
У меня есть файл внутри которого есть запрос power query, который вытягивает данные из этого же файла в запросе есть четкий путь к файлу и если я отправляю его по почте, то респондент разместив у себя файл в любой отличной у себя папке, потеряет возможность обновления файла.

PS: Файл отправляется коллегам для заполнения, а в запросах power query формируюся проверочные формы, чтобы минимизировать ошибки на месте.
Наиболее распространенная цена, Power Pivot, Dax
 
Максим Зеленский, Андрей VG,
Спасибо огромное!!!
Применил на реальной модели на 18 млн строк, оба варианта работают очень быстро и практически одинаково, разница во времени обработки 10-20 миллисекунд. MCP 2 - получился чуть чуть быстрее.
Наиболее распространенная цена, Power Pivot, Dax
 
при цитировании тоже нужно думать [МОДЕРАТОР]

Конечно ситуация когда в сумме получается одинаковый объем для двух цен на практике может и не случиться, но в этом случае можно вывести тогда верхнюю цену.

В файле примера который я обновил (мое сообщение 4 Июл 2020 14:05:57) данные теперь сформированы максимально приближено к модели.
Апельсины по 85руб. в сумме было продано 1600
Апельсины по 90руб. в сумме было продано 1750

Изначальная мера которую написали, для апельсинов выводит наиболее распространенную цену в 85 руб. а правильный ответ должен быть по 120 так как по этой цене сумма объема продаж выше.

PS: обновленный файл с примером прикладываю.
Наиболее распространенная цена, Power Pivot, Dax
 
да, считаем.
По какой цене было продано больше всего объема, для каждого товара.
Наиболее распространенная цена, Power Pivot, Dax
 
Андрей VG
Да, для одного и того же объёма продаж может быть несколько цен.

Например продали:
сегодня Яблоки 85руб. 10 кг
сегодня Яблоки 90руб. 15 кг

вчера Яблоки 85руб. 15 кг
вчера Яблоки 90руб. 10 кг
Наиболее распространенная цена, Power Pivot, Dax
 
Андрей VG
Правильнее наверное сказать, что я плохо подобрал пример (который не учитывает, как данные устроены в реальной модели).

Да, объемы и цены могут быть в любых комбинациях с практически любыми цифрами.

PS: В реальной модели более 18 млн строчек, делаю в Power BI.
Наиболее распространенная цена, Power Pivot, Dax
 
@Андрей VG
На практике не работает, так как в оригинальных данных очень много строк и нужно делать как то через меру суммы объема продаж.

А как не могу понять(((
Изменено: dvoinykh - 04.07.2020 14:07:44
Наиболее распространенная цена, Power Pivot, Dax
 
@Андрей VG Спасибо огромное!!! Очень помогли!!!
Наиболее распространенная цена, Power Pivot, Dax
 
Всем доброго времени суток,

Подскажите пожалуйста, как расчитать в Dax наиболее распространеную цену товара.
Тоесть нужна мера которая выведет цену, по которой был продан максимальный объем продаж.
Get Pivot in Data Model, Применение функции получить данные для сводной из модели данных
 
Всем доброго времени суток.
Столкнулся с измененной функцией GETPIVOTDATA, тоесть на один тот же источник сделаны две сводные:
  1. Класическая построить сводную таблицу
  2. Постороить сводную добавив в модель данных
Функция GETPIVOTDATA на ячейку сводной (второй вариант) строится вроде по тем же принципам и аргументам но выглядит по другому.
Вопрос как задать изменить элемент (item) на конкретную ячейку с условием, чтобы потом протягивать функцию GETPIVOTDATA.

Заранее спасибо!!!
Вычисляемые поля Power pivot
 
Всем доброго дня.

Есть база данных в Access 2013 к ней подключен Power Pivot.
Базе данных товар занесен в коробах но по части позиции кол-во едениц товара в коробе не равно стандартному числу (обычно 50шт.)
Задача следующая:
Нужно добавить в Power Pivot вычисляемое поле которое будет считаться из специально созданной таблицы с коэффициентами пересчета коробов в шт.

PS: Использую Excel 2013
Изменено: dvoinykh - 29.07.2015 12:21:47
VBA SOLVER, Не запускается макросом Solver Поиск Решения
 
Отлично помогло, все работает. Спасибо огромное.

PS: Единственное непонятно почему слетело, пользовался уже как пол года. В последние несколько месяцев никаких надстроек не ставил.
VBA SOLVER, Не запускается макросом Solver Поиск Решения
 
У меня данные надстройки активированы и я сразу проверил их.

PS: Спасибо за комментарий.
VBA SOLVER, Не запускается макросом Solver Поиск Решения
 
Всем добрый день.
У меня был рабочий макрос который запускал мне Поиск Решения (Solver).
Вчера он перестал запускаться я подумал что слетело и решил перезаписать новый.

Но в итоге Поиск Решения (Solver) сам по себе работает а через макрос запускать не хочет пишет что "sub or function not defined"
Для примера создал новый файл в котором сохраняется данная проблема.

Вопрос: Как теперь запускать Поиск Решения (Solver) с помощью макроса?
Использую Excel 2013

PS: Пробовал у коллег проблема такая же. Думаю может какое обновление вышло и теперь не работает.
Объединение данных (массивов) в PowerPivot, позволяет ли PowerPivot такое?
 
Здравствуйте,

В Power Pivot это можно легко сделать.
  1. Добавляете в модель данных источник из Access и источник из файла Excel
  2. Потом настраиваете связи в меню "представления диаграммы"
  3. Далее делаете экспорт в сводную таблицу
Если что непонятно пишите, расскажу подробнее.
Автообновление диаграммы Excell
 
Пробовал с умными таблицами в Excel 2013 все работает. Как на удаление так и на добавление.
Приложите ваш файл, посмотрим.
Страницы: 1
Наверх