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

Страницы: 1
Обращение к элементам dropDown на панели инструментов
 
#
24.01.2019 15:54:07
Сразу не выложил, дебажил, код косячил, сейчас вроде отрабатывает норм.
В общем я отлавливаю события по нажатию и выбору элемента и пишу их в глобальные переменные, потом обращаюсь к своей функции с помощью нажатия клавиши mybutton2 и забираю данные уже из переменных.

Код
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
Изменено: stokato - 24.01.2019 16:33:35 (Изменение идентификаторов согласно заданному файлу Ribbon)
 
Перейти    
Обращение к элементам dropDown на панели инструментов
 
#
24.01.2019 15:31:54
Решил задачу, всем спасибо.
 
Перейти    
Обращение к элементам dropDown на панели инструментов
 
#
24.01.2019 14:53:46
Дело в том, что найти в Excel VBA элементы не могу, может есть функция которая по Id ищет, либо еще как то. Но уже облазил много закоулков, а ссылку на элементы поймать не могу, чтобы через нажатие кнопки, считывать с них данные.
Изменено: stokato - 24.01.2019 15:45:59
 
Перейти    
Обращение к элементам dropDown на панели инструментов
 
#
24.01.2019 14:18:43
Здравствуйте. Подскажите пожалуйста.
Как я могу получить данные выбранные пользователем в dropDown в 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>
Изменено: stokato - 24.01.2019 21:29:50
 
Перейти    
Страницы: 1
Наверх