Focha (Автор тем)

VBA Model(Power Pivot)

Пользователь

Сообщений: 6 Регистрация: 19.07.2017

23.03.2022 12:36:36

С помощью VBA создаю модуль, подключаюсь к серверу и все загружаю.
Есть столбцы которыя я хочу скрыть из набора пользователя, но не могу найти свойство у объекта ModelTableColumn
Ниже если делать руками, а мне надо сделать это програмно, макрорекодер не пишет дейсвия с моделью.

Код

Dim mdl As Excel.model
Dim mdl_table_data As Excel.ModelTable
Dim mdl_table_column As Excel.ModelTableColumn

    Set mdl = wb.model
    Set mdl_table_data = mdl.ModelTables("Аналитика")
    Set mdl_table_column = mdl.ModelTables("Аналитика").ModelTableColumns("stock_kg")
        mdl_table_column. '<- тут, что надо написать?
                          
      
    mdl.ModelMeasures.Add MeasureName:="Остатки на утро, кг", _
                          AssociatedTable:=mdl_table_data, _
                          formula:="sum([stock_kg])", _
                          FormatInformation:=mdl.ModelFormatDecimalNumber(True, 0)

Перейти

вставить быстро много комментариев на лист

Focha

Пользователь

Сообщений: 6 Регистрация: 19.07.2017

19.07.2017 09:32:35

Добрый день, 2 день пытаюсь ускорить вставку комментариев на лист.
У меня выгружается коллекция на лист, после идет цикл, который перебирает массив с комментариями и вставляем каждый комментарий в известную ранее ячейку.
Есть ли какой-то другой подход, что бы выгрузить сразу комментарии, все?

Код

 For r = 0 To UBound(shmk_var_temp, 2)                rr = collect_article(shmk_var_temp(0, r)) 'коллекция строка
                cc = collect_store(shmk_var_temp(1, r)) 'коллекция столбец
                With .Cells(rr, cc)
                        .AddComment Replace(shmk_var_temp(3, r), "|", Chr(10))
                        .Comment.Shape.Placement = xlMove
                        .Comment.Shape.OLEFormat.Object.AutoSize = True
                        .Comment.Visible = False
                End With           
        Next

Перейти