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

Страницы: 1
Можно ли в PowerBi - использовать макросы
 
#
13.12.2021 14:51:28
Цитата
написал:
З.З.Ы. И еще, для обновления таблички в экселе каждые 5 минут макрос не нужен, периодичность обновления вы можете указать в настройках подключения в таблице.
Спасибо за подсказку, но у меня неактивные чек-боксы...
Может быть, что это из-за того, что у меня данные находятся в Модели данных (создавал только подключение)?
Скрытый текст

З.Ы. Комп с Win10 найду, подписка 365 есть.
Изменено: shooreek - 13.12.2021 15:26:20
 
Перейти    
Можно ли в PowerBi - использовать макросы
 
#
13.12.2021 08:20:16
Доброго дня!
Появилась необходимость выводить со станков данные о размерах детали на экран оператора в графическом виде. Данные от станков хранятся на сервере в ms access. В экселе реализовал задачу через power query и дополнительно создал макрос, который через 5 минут повторяет запрос и выводит обновленные данные.
На экранах у операторов нет Excel, да и выполнение одной и той же операции на разных ПК с запросом данных из одного сервера как-то нелогично. Появилась идея сделать дэшборд в Power BI. Сейчас под рукой нет полной версии этой программы, и надо у генерального просить купить. Вопрос состоит в том, чтобы понять можно ли отправлять запросы на обновление данных через определенный промежуток времени? На операторском ПК необязательно устанавливать Power BI (все ПК на Win7 работают), чтобы просто просматривать графики?
Заранее спасибо!
 
Перейти    
Копирование значения в последнюю непустую ячейку другого листа, Run-time error '9': Subscript out of range
 
#
21.05.2019 08:14:46
Цитата
Sanja написал:
Код ? 123With Workbooks("1.xlsm").Worksheets("2")   ColumnsCount = .Cells(1, .Columns.Count).End(xlToLeft).Column + 1End With
Спасибо огромное за помощь!
После того, как добавил расширение к названию файла, все заработало!
 
Перейти    
Копирование значения в последнюю непустую ячейку другого листа, Run-time error '9': Subscript out of range
 
#
21.05.2019 07:19:32
Цитата
V написал:
обязательно копировать?
Идея в том, что данные из вкладки 1 (исходные данные) будут постоянно прирастать в первой строке вкладки 2 (данные для статистического контроля) при каждом запуске макроса.  
 
Перейти    
Копирование значения в последнюю непустую ячейку другого листа, Run-time error '9': Subscript out of range
 
#
20.05.2019 15:42:00
Добрый день!
Был у меня рабочий макрос, но после отпуска перестал реагировать на команды.
Вы не могли бы подсказать по какой причине сейчас выскакивает ошибка Run-time error '9': Subscript out of range?
Текст упрощенного макроса (Задача: скопировать ячейку A1 из вкладки "1" в последнюю непустую ячейку строки A вкладки "2".):
Скрытый текст

файл прикрепил.
Заранее спасибо!
 
Перейти    
Вставка данных в первую пустую ячейку 2-й строки
 
#
12.04.2019 12:16:34
Вы не могли бы еще подсказать как сделать так, чтобы вкладка со сводной таблицей каждый раз создавалась с одним и тем же именем?
В файле есть вкладка Лист1, но сводные таблицы продолжают создаваться со сквозной нумерацией, даже если предыдущие вкладки удалены.
Т.е., например, я создаю новую вкладку, а она вместо того, чтобы называться Лист2, как мне бы хотелось, создается Лист5 (Лист6, Лист7 и т.д.), хотя вкладки с названием Лист2 уже в файле нет.
Возникнет ли подобная проблема с названием "Сводная таблица1"?
Заранее спасибо!

Часть кода (ошибка выделена):
Код
Sub Pivot()
'
' Pivot Макрос
'

'
    Sheets("Cone").Select
    Cells.Select
    Range("A3408").Activate
    Sheets.Add
' ------ ошибка здесь -------------------------------------------------
   ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Cone!R1C1:R65536C25", Version:=xlPivotTableVersion10).CreatePivotTable _
        TableDestination:="Лист2!R3C1", TableName:="Сводная таблица1", _
        DefaultVersion:=xlPivotTableVersion10
' ------------------------------------------------------------------------
    Sheets("Лист2").Select
    Cells(3, 1).Select
    With ActiveSheet.PivotTables("Сводная таблица1")
        .ColumnGrand = True
        .HasAutoFormat = True
        .DisplayErrorString = False
        .DisplayNullString = True
        .EnableDrilldown = True
        .ErrorString = ""
        .MergeLabels = False
        .NullString = ""
        .PageFieldOrder = 2
        .PageFieldWrapCount = 0
        .PreserveFormatting = True
        .RowGrand = True
        .SaveData = True
        .PrintTitles = False
        .RepeatItemsOnEachPrintedPage = True
        .TotalsAnnotation = False
        .CompactRowIndent = 1
        .InGridDropZones = True
        .DisplayFieldCaptions = True
        .DisplayMemberPropertyTooltips = False
        .DisplayContextTooltips = True
        .ShowDrillIndicators = True
        .PrintDrillIndicators = False
        .AllowMultipleFilters = True
        .SortUsingCustomLists = True
        .FieldListSortAscending = False
        .ShowValuesRow = True
        .CalculatedMembersInFilters = False
        .RowAxisLayout xlTabularRow
    End With
    With ActiveSheet.PivotTables("Сводная таблица1").PivotCache
        .RefreshOnFileOpen = False
        .MissingItemsLimit = xlMissingItemsDefault
    End With
    ActiveSheet.PivotTables("Сводная таблица1").RepeatAllLabels xlRepeatLabels
    With ActiveSheet.PivotTables("Сводная таблица1").PivotFields("parameter_id")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Сводная таблица1").PivotFields("subgroup_number")
        .Orientation = xlRowField
        .Position = 2
    End With
    ActiveSheet.PivotTables("Сводная таблица1").AddDataField ActiveSheet. _
        PivotTables("Сводная таблица1").PivotFields("double_data_value"), _
        "Сумма по полю double_data_value", xlSum
 
Перейти    
Вставка данных в первую пустую ячейку 2-й строки
 
#
11.04.2019 14:22:45
Спасибо!
Вы просто Бог экселя! :)
 
Перейти    
Вставка данных в первую пустую ячейку 2-й строки
 
#
11.04.2019 13:09:59
Цитата
Ametist69 написал: Вопрос был в том что вы растить массив будете вправо?
Массив растёт вправо.
Добавил строку, но вставляет данные все равно в активную ячейку, а не справа от последней занятой ячейки второй строки.
Файл добавить не могу, т.к. весит более 100 Кб.
Код
Sub Macro()
    Sheets("Cone Pivot").Select
    With ActiveSheet.PivotTables("Ñâîäíàÿ òàáëèöà2").PivotFields("parameter_id")
        .PivotItems("SROD_LMC").Visible = False
        .PivotItems("SROD_Mean").Visible = False
        .PivotItems("SROD_MMC").Visible = False
        .PivotItems("SROD_OOR").Visible = False
        .PivotItems("Upper_LROD").Visible = False
        .PivotItems("(blank)").Visible = False
    End With
    ActiveWindow.SmallScroll Down:=21
    Range("C56:C155").Select
    Selection.Copy
    Sheets("Cone Width").Select
       
    ColumnsCount = Workbooks("FRM").Worksheets("Cone Width").Cells(2, Columns.Count).End(xlToLeft).Column + 1       
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False   
End Sub
Изменено: shooreek - 11.04.2019 14:29:54
 
Перейти    
Вставка данных в первую пустую ячейку 2-й строки
 
#
11.04.2019 12:11:54
Да, всё верно. Необходимо растить массив данных, регулярно добавляя новые значения.
 
Перейти    
Вставка данных в первую пустую ячейку 2-й строки
 
#
11.04.2019 10:34:03
Добрый день!
Помогите, пожалуйста, с макросом. Второй день пытаюсь решить простецкую задачу, но интернет предлагает не совсем то, что мне нужно. Поиск по форуму тоже не помог.
В общем, необходимо из сводной таблицы копировать значения из диапазона C56:C155 в другой лист, чтобы первая ячейка этих данных была в первой непустой ячейке строки 2. Дело в том, что каждую неделю данные будут пополняться.
Записал макрос, но он копирует данные в активную ячейку. Я полагаю, что не хватает строки для выбора нужной ячейки.
Заранее спасибо!
Код
Sub Macro()
    Sheets("Cone Pivot").Select
    With ActiveSheet.PivotTables("Ñâîäíàÿ òàáëèöà2").PivotFields("parameter_id")
        .PivotItems("SROD_LMC").Visible = False
        .PivotItems("SROD_Mean").Visible = False
        .PivotItems("SROD_MMC").Visible = False
        .PivotItems("SROD_OOR").Visible = False
        .PivotItems("Upper_LROD").Visible = False
        .PivotItems("(blank)").Visible = False
    End With
    ActiveWindow.SmallScroll Down:=21
    Range("C56:C155").Select
    Selection.Copy
    Sheets("Cone Width").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub
 
Перейти    
Гистограмма с предельными значениями
 
#
31.01.2018 12:29:34
Придумал решение, но не уверен, что оно оптимальное.
При помощи функции СЧЁТЕСЛИМН нашел количество значений в каждом диапазоне для двух измерений и потом построил классическую гистограмму. Осталось только добавить границы. Но это не сложно.
Если есть более простое решение, прошу поделиться.
 
Перейти    
Гистограмма с предельными значениями
 
#
31.01.2018 11:40:09
Доброго дня!
Вы не могли бы помочь с визуализацией данных двух измерений BI и BO?
На графике (ось х - размер с шагом 0,001, ось у - количество значений, попавших в интервал) необходимо показать количество значений по обоим измерениям в каждом интервале, а также границу (149,982) вертикальной линией.
Постарался от руки нарисовать что-то похожее на то, что пытаюсь сделать.
Заранее спасибо!
 
Перейти    
Страницы: 1
Наверх