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

Страницы: 1
VBA Model(Power Pivot)
 
#
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)
 
Перейти    
Обернуть полужирный текст в ячейке тегом strong, Нужно найти в ячейке текст, выденный полужирным шрифтом и заключить его в тег strong
 
#
18.12.2017 15:46:06
Цитата
ZVI написал:
В VBA справке про Value есть кратное описание параметров.
Аналогичная информация есть и в MSDN:  Value ,  XlRangeValueDataType /
Машинный (неточный) перевод на русский:  Value ,   XlRangeValueDataType .
Примеров нет, но можно посмотреть результат под отладкой, например, в пошаговом режиме отладки посмотреть значение переменой s в коде сообщения  #16
это я смотрел.
Я хочу сделать форматирование через xml.
 
Перейти    
Обернуть полужирный текст в ячейке тегом strong, Нужно найти в ячейке текст, выденный полужирным шрифтом и заключить его в тег strong
 
#
18.12.2017 12:02:22
а есть ресурсы где почитать про XlRangeValueDataType.xlRangeValueXMLSpreadsheet с примерами?
 
Перейти    
вставить быстро много комментариев на лист
 
#
19.07.2017 10:36:45
Цитата
Илья Демид написал:
Если да, то вот что говорит Джон Уокенбах:Код ?
эм..... 8-0  массив скопировать в excel я знаю, а вот как тоже самое то вставить комментарии? Из массива скопировать комментарии в диапазон?
мне не нужно комментарии перевести в текст, а создать комментарии в ячейки. Сейчас я через цикл обращаюсь в каждую ячейку и создаю там комментарий, есть ли идеи как создать сразу во всех?
Изменено: Focha - 19.07.2017 10:44:01
 
Перейти    
вставить быстро много комментариев на лист
 
#
19.07.2017 10:29:30
Цитата
Илья Демид написал:
Вы имеете ввиду выгрузить все коментарии в ячейки?
нет, в разные ячейки.
 
Перейти    
вставить быстро много комментариев на лист
 
#
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
 
Перейти    
Страницы: 1
Наверх