Доброго времени суток, уважаемые форумчане.
Столкнулся со сложностью в реализации.
Задача:
Есть форма в vba, на которой пользователь устанавливает фильтры.
После чего нажимает применить.
Формируется около 6 сводных, которые выгружаются на лист с шагом в 20 строк.
Теперь сама проблема:
Необходимо для каждой сводной динамически создавать такие же фильтры,
как и на форме только на листе около нее, чтоб фильтры работали только на конкретную сводную
для которой созданы.
Копал в сторону:
но столкнулся со сложностью размещение OptionButton во Frame-е.
А так же вообще целесообразности данных действий.
Может кто делал что-то подобное?
Очень жду.
Заранее спасибо.
Столкнулся со сложностью в реализации.
Задача:
Есть форма в 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 |
А так же вообще целесообразности данных действий.
Может кто делал что-то подобное?
Очень жду.
Заранее спасибо.
~учимся~
