Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Обращение к элементам dropDown на панели инструментов - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Обращение к элементам dropDown на панели инструментов (Макросы/Sub)
Обращение к элементам dropDown на панели инструментов
stokato Дата: Четверг, 24.01.2019, 13:35 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Здравствуйте. Подскажите пожалуйста.
Как я могу получить данные выбранные пользователем в dropDown в VBA?


код элементов
[vba]
Код

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
    <ribbon startFromScratch="false">
  <tabs>
   <tab id="mytab" label="МЭФ">
    <group id="mygroup" label="Для отправки в МЭФ">
     <button id="mybutton2" label="Сформировать из БД данные в таблицу" imageMso="AdpDiagramRecalculatePageBreaks" onAction="EnterToData" />
    </group>
    <group id="dates" label="Дата">
     <dropDown id="month" getSelectedItemID="ChangeMonth" onAction="ActionMonth" >
      <item id="m_01" label="01"/>
      <item id="m_02" label="02"/>
      <item id="m_03" label="03"/>
      <item id="m_04" label="04"/>
      <item id="m_05" label="05"/>
      <item id="m_06" label="06"/>
      <item id="m_07" label="07"/>
      <item id="m_08" label="08"/>
      <item id="m_09" label="09"/>
      <item id="m_10" label="10"/>
      <item id="m_11" label="11"/>
      <item id="m_12" label="12"/>
     </dropDown>
     <dropDown id="year" getSelectedItemID="ChangeYear" onAction="ActionYear" >
      <item id="y_2018" label="2018"/>
      <item id="y_2019" label="2019"/>
      <item id="y_2020" label="2020"/>
      <item id="y_2021" label="2021"/>
      <item id="y_2022" label="2022"/>
      <item id="y_2023" label="2023"/>
      <item id="y_2024" label="2024"/>
      <item id="y_2025" label="2025"/>
      <item id="y_2026" label="2026"/>
      <item id="y_2027" label="2027"/>
      <item id="y_2028" label="2028"/>
      <item id="y_2029" label="2029"/>
      <item id="y_2030" label="2030"/>
      <item id="y_2031" label="2031"/>
      <item id="y_2032" label="2032"/>
      <item id="y_2033" label="2033"/>
      <item id="y_2034" label="2034"/>
      <item id="y_2035" label="2035"/>
      <item id="y_2036" label="2036"/>
      <item id="y_2037" label="2037"/>
      <item id="y_2038" label="2038"/>
      <item id="y_2039" label="2039"/>
      <item id="y_2040" label="2040"/>
     </dropDown>
    </group>
   </tab>
  </tabs>
    </ribbon>
</customUI>
[/vba]


Сообщение отредактировал stokato - Четверг, 24.01.2019, 21:29
 
Ответить
СообщениеЗдравствуйте. Подскажите пожалуйста.
Как я могу получить данные выбранные пользователем в dropDown в VBA?


код элементов
[vba]
Код

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
    <ribbon startFromScratch="false">
  <tabs>
   <tab id="mytab" label="МЭФ">
    <group id="mygroup" label="Для отправки в МЭФ">
     <button id="mybutton2" label="Сформировать из БД данные в таблицу" imageMso="AdpDiagramRecalculatePageBreaks" onAction="EnterToData" />
    </group>
    <group id="dates" label="Дата">
     <dropDown id="month" getSelectedItemID="ChangeMonth" onAction="ActionMonth" >
      <item id="m_01" label="01"/>
      <item id="m_02" label="02"/>
      <item id="m_03" label="03"/>
      <item id="m_04" label="04"/>
      <item id="m_05" label="05"/>
      <item id="m_06" label="06"/>
      <item id="m_07" label="07"/>
      <item id="m_08" label="08"/>
      <item id="m_09" label="09"/>
      <item id="m_10" label="10"/>
      <item id="m_11" label="11"/>
      <item id="m_12" label="12"/>
     </dropDown>
     <dropDown id="year" getSelectedItemID="ChangeYear" onAction="ActionYear" >
      <item id="y_2018" label="2018"/>
      <item id="y_2019" label="2019"/>
      <item id="y_2020" label="2020"/>
      <item id="y_2021" label="2021"/>
      <item id="y_2022" label="2022"/>
      <item id="y_2023" label="2023"/>
      <item id="y_2024" label="2024"/>
      <item id="y_2025" label="2025"/>
      <item id="y_2026" label="2026"/>
      <item id="y_2027" label="2027"/>
      <item id="y_2028" label="2028"/>
      <item id="y_2029" label="2029"/>
      <item id="y_2030" label="2030"/>
      <item id="y_2031" label="2031"/>
      <item id="y_2032" label="2032"/>
      <item id="y_2033" label="2033"/>
      <item id="y_2034" label="2034"/>
      <item id="y_2035" label="2035"/>
      <item id="y_2036" label="2036"/>
      <item id="y_2037" label="2037"/>
      <item id="y_2038" label="2038"/>
      <item id="y_2039" label="2039"/>
      <item id="y_2040" label="2040"/>
     </dropDown>
    </group>
   </tab>
  </tabs>
    </ribbon>
</customUI>
[/vba]

Автор - stokato
Дата добавления - 24.01.2019 в 13:35
vikttur Дата: Четверг, 24.01.2019, 15:47 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2941
Репутация: 526 ±
Замечаний: 0% ±

Кросс. И, похоже, уже не надо.
 
Ответить
СообщениеКросс. И, похоже, уже не надо.

Автор - vikttur
Дата добавления - 24.01.2019 в 15:47
stokato Дата: Четверг, 24.01.2019, 15:55 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
В общем я отлавливаю события по нажатию и выбору элемента и пишу их в глобальные переменные, потом обращаюсь к своей функции с помощью нажатия клавиши mybutton2 и забираю данные уже из переменных.
[vba]
Код


Option Explicit

Public elemMonth As String
Public elemYear As String

Sub ChangeMonth(control As IRibbonControl, ByRef id)
    Module3.elemMonth = Right(id, 2)
    id = "m_01"
End Sub

Sub ChangeYear(control As IRibbonControl, ByRef id)
    Module3.elemYear = Right(id, 4)
    id = "y_2019"
End Sub

Sub ActionMonth(control As IRibbonControl, selectedId As String, selectedIndex As Integer)
    Module3.elemMonth = Right(selectedId, 2)
End Sub

Sub ActionYear(control As IRibbonControl, selectedId As String, selectedIndex As Integer)
    Module3.elemYear = Right(selectedId, 4)
End Sub

[/vba]


Сообщение отредактировал stokato - Четверг, 24.01.2019, 16:34
 
Ответить
СообщениеВ общем я отлавливаю события по нажатию и выбору элемента и пишу их в глобальные переменные, потом обращаюсь к своей функции с помощью нажатия клавиши mybutton2 и забираю данные уже из переменных.
[vba]
Код


Option Explicit

Public elemMonth As String
Public elemYear As String

Sub ChangeMonth(control As IRibbonControl, ByRef id)
    Module3.elemMonth = Right(id, 2)
    id = "m_01"
End Sub

Sub ChangeYear(control As IRibbonControl, ByRef id)
    Module3.elemYear = Right(id, 4)
    id = "y_2019"
End Sub

Sub ActionMonth(control As IRibbonControl, selectedId As String, selectedIndex As Integer)
    Module3.elemMonth = Right(selectedId, 2)
End Sub

Sub ActionYear(control As IRibbonControl, selectedId As String, selectedIndex As Integer)
    Module3.elemYear = Right(selectedId, 4)
End Sub

[/vba]

Автор - stokato
Дата добавления - 24.01.2019 в 15:55
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Обращение к элементам dropDown на панели инструментов (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!