Страницы: 1
RSS
Создание CommandBar
 
Всем доброго дня!  
Уважаемые спецы, подскажите пожалуйста, что-бы умного и доступного почитать  
по созданию панелей!  
Штудирую Уокеннбаха (стр.587 и т.д.), но тяжеловато идет!  
 
Необходимо создать стандарную панель с несколькими Box'ми и менюшками.  
Сейчас все эти Box'ы на UserForm и чудесно все работает, но хочется от Формы избавиться.  
 
Лучшего всего какие-нибудь примерчики, дабы совмещать теорию с практикой!  
И тагда наступит всеобщая благодать!  
Спасибо!
 
Материалов по этой теме много. Вот начальный курс для Excel 2003. Для 2007 сложнее, тема про ленту пользователя была и она в Копилке.
 
Спасибо, поглядим!
 
Сам пользуюсь созданием меню привязанного к отдельному файлу, к примеру:  
 
В отдельном модуле:  
Sub CreateCustomMenu()  
' создание меню  
Dim mMain As CommandBarPopup  
   ' удаление существующего идентичного меню  
   Call DeleteCustomMenu  
   ' создание нового основного меню  
   Set mMain = Application.CommandBars(1).Controls.Add(msoControlPopup, 1, , , True)  
   With mMain  
       .Caption = "&Имя_Заголовка"  
       .Tag = "DefMainMenuTag"  ' Таг должен быть индивидуальным для каждого файла  
   End With  
   ' Создание меню1 из выпадающего списка  
   With mMain.Controls.Add(Type:=msoControlButton, Temporary:=True)  
       .Caption = "&Копировать данные из файла"  
       .OnAction = ThisWorkbook.Name & "!ВАША_ПРОЦЕДУРА1"  
       .Style = msoButtonIconAndCaption  
       .FaceId = 316   ' код иконки  
    End With  
    ' Создание меню2 из выпадающего списка  
   With mMain.Controls.Add(Type:=msoControlButton, Temporary:=True)  
       .Caption = "&Сохранение копии"  
       .OnAction = ThisWorkbook.Name & "!ВАША_ПРОЦЕДУРА2"  
       .Style = msoButtonIconAndCaption  
       .FaceId = 5952  ' код иконки  
   End With  
 ' Создание меню3 из выпадающего списка  
   With mMain.Controls.Add(Type:=msoControlButton, Temporary:=True)  
       .Caption = "&Удалить записи"  
       .OnAction = ThisWorkbook.Name & "!ВАША_ПРОЦЕДУРА3"  
       .Style = msoButtonIconAndCaption  
       .FaceId = 368 ' код иконки  
   End With  
   Set mMain = Nothing  
End Sub  
 
Sub DeleteCustomMenu()  
Dim mMain As CommandBarControl  
   Set mMain = Application.CommandBars(1).FindControl(Tag:="DefMainMenuTag")  
   If Not mMain Is Nothing Then mMain.Delete  
End Sub  
 
В модуле книги:  
 
Private Sub Workbook_Activate()  
Call CreateCustomMenu  
End Sub  
Private Sub Workbook_Deactivate()  
 Call DeleteCustomMenu  
End Sub  
 
Если такой файл загрузить в 2007 Excele, то меню появится во вкладке "Надстройки", если в 2003, то в меню "Сервис".    
Скромно, но функционально...
 
Набрал в Яндексе фразу "Excel Создание CommandBar" - и сразу нашел пример:  
http://excelvba.ru/tools/CommandBar  
 
Или вы не любите пользоваться поиском?
 
{quote}{login=EducatedFool}{date=21.04.2011 07:21}{thema=}{post}Набрал в Яндексе фразу "Excel Создание CommandBar" - и сразу нашел пример:  
http://excelvba.ru/tools/CommandBar  
 
Или вы не любите пользоваться поиском?{/post}{/quote}  
 
Здравствуйте, EducatedFool!  
 
Не сочтите за хамство, не в обиду, в качестве "алаверды"!  
 
Наберите я Яндексе, "ст.446 ГК РФ, проблемы правоприменения в исполнительном производстве, судебная практика", почитайте и потом (не дай бог!), сходите с полученными таким образом "познаниями" в суд! Эффект гарантирую!  
 
Я ведь спрашиваю на форуме не от лени (это про Яндекс!), а для того, чтобы советы специалистов оградили меня от забивания мозга всяким "порожняком!"  
 
Еще раз не в обиду!  
 
С уважением,  
sofi
 
Sofi, Вы не заметили, но Игорь дал Вам ссылку на свой сайт, а там он точно "порожняк не гонит" :-)  
Загляните - не пожалеете.
 
Безусловно, посмотрю, спасибо!  
 
Я ведь все таки проффесиональный юрист, а не программист!  
С Еxcel развлекаюсь в свободное от основной работы время, а его с нашей системой "Российского Судопроизводства" к сожалению очень мало!  
Чтобы мозг не лопался после некоторых судебных заседания, сажусь за комп  
и ковыряюсь! У кого марки, у кого гараж, а я так!
 
Знакомо ;) Профессиональных программистов здесь, наверное, и нет. Мы в большинстве своем любители и хоббиты  (от хобби), но специалистов - завались :-)
 
{quote}{login=sofi}{date=21.04.2011 07:38}{thema=Re: }{post}{quote}{login=EducatedFool}{date=21.04.2011 07:21}{thema=}{post}{/post}{/quote}Я ведь спрашиваю на форуме не от лени (это про Яндекс!), а для того, чтобы советы специалистов оградили меня от забивания мозга всяким "порожняком!"{/post}{/quote}  
sofi, не очень вежливо с Вашей стороны. И получается, что действительно Вам лень искать. А ведь поиск привёл бы Вас к нужному результату.  
P.S. А Ваш пример поискового запроса в Яндекс вообще неуместен.
 
sofi,  
Создай свою вкладку на Ribbon - и нет проблем. Есть замечательный Ribbon XML Editor на русском языке. Поддерживает Excel 2007 и 2010. Встроенный валидатор.  
Сцыла: http://novikovmaxim.narod.ru/products/ribbon/ribbon.htm
 
{quote}{login=Юрий М}{date=21.04.2011 08:17}{thema=Re: Re: }{post}{quote}{login=sofi}{date=21.04.2011 07:38}{thema=Re: }{post}{quote}{login=EducatedFool}{date=21.04.2011 07:21}{thema=}{post}{/post}{/quote}Я ведь спрашиваю на форуме не от лени (это про Яндекс!), а для того, чтобы советы специалистов оградили меня от забивания мозга всяким "порожняком!"{/post}{/quote}  
sofi, не очень вежливо с Вашей стороны. И получается, что действительно Вам лень искать. А ведь поиск привёл бы Вас к нужному результату.  
P.S. А Ваш пример поискового запроса в Яндекс вообще неуместен.{/post}{/quote}  
 
Юрий М, и в мыслях не было кого-то оскорбить!  
 
Начало темы:  
 
"Уважаемые спецы, подскажите пожалуйста, что-бы умного и доступного почитать  
по созданию панелей!  
Штудирую Уокеннбаха (стр.587 и т.д.), но тяжеловато идет!  
Лучшего всего какие-нибудь примерчики, дабы совмещать теорию с практикой!"  
 
Если бы я хорошо владел вопросом, сам бы "отличил зерна от плевел",  
поэтому и спросил что лучше посмотреть, дабы не отрабатывать неэффективные варианты!  
Вот к примеру VovaK ответил и на душе радостно, и сайт  
EducatedFool обязательно посмотрю!  
 
А аналогию с правом, привел для наглядности!  
 
Спасибо,  
sofi
 
{quote}{login=NullUzer}{date=21.04.2011 08:27}{thema=Re: Создание CommandBar}{post}sofi,  
Создай свою вкладку на Ribbon - и нет проблем. Есть замечательный Ribbon XML Editor на русском языке. Поддерживает Excel 2007 и 2010. Встроенный валидатор.  
Сцыла: http://novikovmaxim.narod.ru/products/ribbon/ribbon.htm{/post}{/quote}  
 
Посмотрел, красиво, к сожалению у меня Excel 2003!
 
{quote}{login=EducatedFool}{date=21.04.2011 07:21}{thema=}{post}Набрал в Яндексе фразу "Excel Создание CommandBar" - и сразу нашел пример:  
http://excelvba.ru/tools/CommandBar  
 
Или вы не любите пользоваться поиском?{/post}{/quote}  
 
Добрый день ВСЕМ!  
 
Начитался вчера про создание CommandDar по самое "не хочу"!  
Большое спасибо VovaK и особенно EducatedFool, дали точку опоры!  
 
В основном все сделал, осталось "рюшечки" развесить, но недостаток теоритической и практической подготовки, есть недостаток!  
 
Не получается разобраться со свойствами ControlDropdown и ControlEdit:  
 
1. Если я правильно понимаю, то изменение цвета, выравнивание по горизонтале, размер шрифта в окнах этих Controls не предусмотрено?  
 
2. В ControlDropdown выводится список кол-ва дней месяца (28-31), как сделать несколько столбцов, как в ListBox?  
 
3. Как сделать, чтобы при выборе значения из списка ControlDropdown, находящегося в ControlPopup, список по клику на выбранном значении не закрывался, а закрывался, допустим по клику на на ленте, аль еще где-то рядом?  
 
4. Как устанавить в ControlEdit по умолчанию форматы "dd.mm.yyyy"    
 
Подскажите, пожалйста, как преодолеть и где почитать!
Страницы: 1
Читают тему
Наверх