Обращение к элементам dropDown на панели инструментов

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Обращение к элементам dropDown на панели инструментов (Макросы/Sub)

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

Ответить

vikttur

Дата: Четверг, 24.01.2019, 15:47 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2941

Репутация: 526 ±

Замечаний: 0% ±

Кросс. И, похоже, уже не надо.

Ответить

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

Ответить

Обращение к элементам dropDown на панели инструментов (Макросы/Sub)

Страница 1 из 1
1