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

Страницы: 1
Возможность подключения временной шкалы к нескольким сводным / умным таблицам
 
Dyroff, Спасибо Вам большое! Направление дальнейшей работы теперь понятно!
Возможность подключения временной шкалы к нескольким сводным / умным таблицам
 
Всем доброго дня!

Возникла проблема при формировании дашборда.
Имею две умные таблицы, по каждой из которой сформировано несколько сводных таблиц и соответствующие диаграммы.
В каждой из умных и сводных таблиц есть граф "Дата", что позволяет подключать к ним временную шаклу.
Однако, столкнулся с тем, что временная шкала подключается только к сводным таблицам, построенным только от одной "материнской" умной таблицы. К сводным таблицам, построенным от другой умной таблицы даже не предлагает подключения.
Есть ли возможность решения этой проблемы? Иначе я не совсем понимаю как делают информативные дашборды с графиками из различных функциональных областей, при этом все управляются с одной временной шкалы?. Неужели все строится из одной мегабольшой умной таблицы?

С уважением, Олег
Не сохраняет закрепление областей при закрытии файла.
 
Цитата
sokol92 написал:
Приложите, пожалуйста, файл, где наблюдается эффект из сообщения #1.
Файл корпоративный. К сожалению, выложить не могу.

Цитата
sokol92 написал:
Вы можете сохранить ииформацию о скрытых строках, столбцах, закрепленных областях, автофильтре и т.д. через меню Вид/Представление/Добавить, а затем восстановить ранее сохраненные параметры через пункт "Применить" этого же меню.
Этот вариант решает проблему!
Спасибо Вам большое!!!
Не сохраняет закрепление областей при закрытии файла.
 
Цитата
Tech-01 написал:
Попробуйте сохранить книгу в другом формате
Сохраняю в формате книги с поддержкой макросов, т.к. использую макросы. Следовательно, другие варианты форматов файла отпадают.
Не сохраняет закрепление областей при закрытии файла.
 
Доброго дня!

Каждый раз после сохранения и закрытия/открытия файла программа "забывает" закрепленные области на листах Excel.
Приходится заново все ручками делать для продолжения работы.
Подскажите, пожалуйста, есть ли решение проблемы?
Отобразить рабочую область листа на весь экран, Скрыть строку состояния и верхнюю шапку Excel
 
Цитата
Dyroff написал:
Если кому-то понадобится, то можно вот так ещё:
Спасибо! Отлично работает!
При удалении первой строки умной таблицы удаляется строка Эксель целиком
 
Здравствуйте!

Прошу помощи знатоков.

Столкнулся с проблемой: при удалении первой строки умной таблицы (через контекстное меню: "Удалить" --> "Строки таблицы") удаляется строка Эксель целиком, попутно удаляя строки других умных таблиц на листе.
Касается это почему-то только первых строк таблицы.

Подскажите, в чем может быть проблема?
Изменено: Oleg_BB - 06.05.2020 12:14:11
Макрос вешает эксель (аварийное закрытие) после превышения двух добавленных строк в умной таблице.
 
Цитата
vikttur написал:
Вполне возможно, что создается зацикливание, когда Combobox как-то влияет на источник своего  RowSource
Да, это первое, что приходило в голову. Но добавление в таблицу новой строки через переменную после закрытия формы (попытка исключить вариант обновления объекта и одновременного обращения к нему) проблему не решало . Также это не объясняет безболезненное добавление двух первых строк в таблицу, используемую в качестве RowSource. Тем не менее спасибо за комментарий.

Добавление только двух строк навевало мысль на булевую переменную, но откуда там она?? (это лишь догадки).
Цитата
vikttur написал:
Вы бы пример прикрепили.
Да, конечно.
Добавление в таблицу новых строк оставил без изменения. А вот в свойствах формы убрал указание RowSource на умную таблицу. Наполнение комбобокса же сделал через цикл и AddItem.

Код
Dim i As Long
i = 1
   Set CatalogListObj = Sh_Catalog.ListObjects("lst_Name")
   For Each CatalogListRow In CatalogListObj.ListRows
     If CatalogListRow.Range.Cells(i, 1) <> CatalogListRow.Range.Cells(i + 1, 1) Then
       Me.my_combobox.AddItem CatalogListRow.Range.Cells(i, 1)
     End If
   Next CatalogListRow

Работает.
Всем здоровья.
Изменено: Oleg_BB - 10.04.2020 13:45:23
Макрос вешает эксель (аварийное закрытие) после превышения двух добавленных строк в умной таблице.
 
Решил проблему другим методом наполнения комбобоксов формы.
Макрос вешает эксель (аварийное закрытие) после превышения двух добавленных строк в умной таблице.
 
Если не использовать умную таблицу в качестве RowSource комбобокса формы, то проблем исчезает.
НО это не решает задачу разработки и не отвечает на вопрос почему две строки добавляются без проблем, а на 3-й сроке программу вырубает.  

??
Макрос вешает эксель (аварийное закрытие) после превышения двух добавленных строк в умной таблице.
 
Извиняюсь, был неправ))) ComboBox, конечно же)))
Макрос вешает эксель (аварийное закрытие) после превышения двух добавленных строк в умной таблице.
 
А что не так, если таблица состоит из одного столбца?
Макрос вешает эксель (аварийное закрытие) после превышения двух добавленных строк в умной таблице.
 
Макрос из формы добавляет строку в умную таблицу ("lst_Name" состоит из 1 столбца). Данная таблица  является RowSource для комбобокса формы.
После двух добавлений (не цикл), когда в таблице есть уже две записи, при третьем запуске макроса Эксель добавляет запись в таблицу и сразу насмерть закрывается.
Макрос рабочий, т.к. первые две строчки добавляет.
На другом ПК / Экселе запускал, аналогичная проблема.

Подскажите, пожалуйста, в чем может быть проблема.

Код
Sub AddName()

   Set Sh_Catalog = ThisWorkbook.Worksheets("Каталоги")
   Set CatalogListObj = Sh_Catalog.ListObjects("lst_Name")
   Set CatalogListRow = CatalogListObj.ListRows.Add    
        
      CatalogListRow.Range(1) = frm_Basee.txb_Name.Value   
 End Sub 

Заранее благодарен.

Изменено: Oleg_BB - 09.04.2020 16:53:53
VBA цикл удаления строк умной таблицы удаляет только половину строк
 
Спасибо Вам и R Dmitry.
VBA цикл удаления строк умной таблицы удаляет только половину строк
 
Если не сложно, то покажите, пожалуйста, как в коде это может выглядеть.
Заранее благодарю.
VBA цикл удаления строк умной таблицы удаляет только половину строк
 
При исполнении цикла удаления строк умной таблицы по условию удаляется ровно половина строк, соответствующих условию (16 из 32 или 8 из 16 или 4 из 8). Потом выдает ошибку "1004"- Application defined or object defined error. Подозреваю, что при исполнении цикла и последовательном удалении строк с какого-то момента цикл вываливается за пределы таблицы и выдает ошибку. Подскажите, пожалуйста, что упускаю?
Код
Sub DelAllOrders() 
    Set Sh_Orders = ThisWorkbook.Worksheets("Заказы")
    Set OrdersListObj = Sh_Orders.ListObjects("lst_Order")

    Dim m As Integer
    Dim n As Integer
        n = frm_EditOrder.txb_OrderNumber.Value

        For Each OrdersListRow In OrdersListObj.ListRows
                                                                
        If OrdersListRow.Range.Cells(m + 1, 1) = n Then
           OrdersListRow.Range.Delete
        End If
        Next OrdersListRow
                                                           
 End Sub
Изменено: Oleg_BB - 01.04.2020 21:43:50
Проблема #ПЕРЕНОС! после обновления при использовании СУММЕСЛИ
 
Дмитрий(The_Prist) Щербаков,

Разобрался с вопросом с Вашей помощью!

Спасибо Вам большое!  
Проблема #ПЕРЕНОС! после обновления при использовании СУММЕСЛИ
 
Коллеги, добрый день!

Прошу помочь с проблемой: при использовании функции СУММЕСЛИ вместо результатов расчета выдает #ПЕРЕНОС!.
При вычислении результаты расчета автоматически распространяются на весь сверочный диапазон функции СУММЕСЛИ.
Файл прилагаю.
Раньше такой проблемы не было.
Есть ощущение, что эта проблема возникла после обновления. Может в настройках что слетело или в параметрах вычислений нужно что настроить?

Заранее спасибо!
VBA столбец умной таблицы как источник данных, данные в комбобокс не подтягиваются
 
Цитата
Дмитрий(The_Prist) Щербаков написал:
RowSource требует адрес, а не значения. Т.е. нужно заменить .Value на .Address
Спасибо огромное! Работает!
VBA столбец умной таблицы как источник данных, данные в комбобокс не подтягиваются
 
Доброго дня!

Пытаюсь в качестве источника данных поставить данные одного из столбца умной таблицы.
Но данные в комбобокс не подтягиваются. Пишет Run-time Error 13 - Type Mismatch
Подскажите, что делаю не так?

Код:

Sub cmbFill()
   Set Sh_Assort = ThisWorkbook.Worksheets("Продажи")
   Set AssortListObj = Sh_Assort.ListObjects("lst_Assort")
   frm_RS.cmb_rs.RowSource = AssortListObj.ListColumns(3).DataBodyRange.Value
End Sub
________

При таком варианте:

frm_RS.cmb_rs.RowSource = AssortListObj.

- ссылка работает (но при этом подтягивает в комбобокс только список из первого столбца умной таблицы, а надо из 3-го)
_______

Подскажите, что делаю не так?
Заранее спасибо!
Страницы: 1
Наверх