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

Страницы: 1
Динамическое создание элементов на листе
 
#
18.09.2015 15:12:31
Всем спасибо за помощь, решил идти через общие фильтры на листе, через которые можно настраивать каждую сводную.
~учимся~
 
Перейти    
Динамическое создание элементов на листе
 
#
17.09.2015 12:06:36
Юрий М, вас понял, будем исправляться.
~учимся~
 
Перейти    
Динамическое создание элементов на листе
 
#
17.09.2015 11:50:39
изменил, но так и не понял, как указать текст к которому я даю ответ
~учимся~
 
Перейти    
Динамическое создание элементов на листе
 
#
17.09.2015 11:06:57
Sanja , добавил "фильтры отчета", получается при добавлении в "фильтр отчета" столбцы убираются, а этого не надо.

Андрей VG, это было бы хорошим решением, но пользователь может выгружать как 1, 2, 3, так и 6 сводных на одном листе, для каждого случая делать отдельный лист..
Я думаю это не правильно как то...
Изменено: rrndeonisiusezh - 17.09.2015 11:50:02
~учимся~
 
Перейти    
Динамическое создание элементов на листе
 
#
17.09.2015 10:01:17
В том то и дело, что в сводных уже есть все необходимые поля и фильтры, но пользователям нужны фильтры рядом с каждой сводной, которые бы действовали так же
как и встроенные.
~учимся~
 
Перейти    
Динамическое создание элементов на листе
 
#
17.09.2015 09:32:12
Доброго времени суток, уважаемые форумчане.
Столкнулся со сложностью в реализации.

Задача:
   Есть форма в vba, на которой пользователь устанавливает фильтры.
   После чего нажимает применить.
   Формируется около 6 сводных, которые выгружаются на лист с шагом в 20 строк.

Теперь сама проблема:
   Необходимо для каждой сводной динамически создавать такие же фильтры,
   как и на форме только на листе около нее, чтоб фильтры работали только на конкретную сводную
   для которой созданы.
   
Копал в сторону:  
Код
Set wb = ActiveWorkbook
    Set ws = wb.ActiveSheet
    '===============================================================================
    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    'ставим списки пользователей
    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    With ws
        Set cmd = .OLEObjects.Add(ClassType:="Forms.Label.1", _
          Left:=.Range("D4").Left, Top:=.Range("D4").Top, _
          Width:=50, Height:=20)
    End With
    cmd.NAME = "labelDz"
    cmd.OBJECT.caption = "ДЗ:"
    With ws
        Set cmd = .OLEObjects.Add(ClassType:="Forms.ComboBox.1", _
          Left:=.Range("E4").Left, Top:=.Range("E4").Top, _
          Width:=200, Height:=20)
    End With
    cmd.NAME = "comboBoxDz"
    cmd.OBJECT.List = Array(1, 2, 3, 4)
    With wb.VBProject.VBComponents(ws.CodeName).CodeModule
       
  .InsertLines .CreateEventProc("Click", cmd.NAME) + 1,  
"ActiveSheet.OLEObjects(""comboBoxZdz"").Object.List = Array(2, 5, 6,  7)"
    End With
но столкнулся со сложностью размещение OptionButton во Frame-е.
А так же вообще целесообразности данных действий.
Может кто делал что-то подобное?

Очень жду.
Заранее спасибо.    
~учимся~
 
Перейти    
Страницы: 1
Наверх