Excel это не сложно
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
29.03.2024, 03:04:49

Войти
На форуме добавлена возможность подписки на RSS-ленты любого раздела форума. Подписаться можно, нажав на иконку RSS , расположенную левее наименования раздела.
33 233 Сообщений в 5 454 Тем от 6 750 Пользователей
Последний пользователь: Alex1210
*
Перейти на сайт Хитрости Надстройка MulTEx Обучающие тренинги Наша группа ВКонтакте
Правила форума Начало Помощь Поиск Календарь Войти Регистрация Выйти
+  Excel это не сложно
|-+  Основные форумы
| |-+  Вопросы по Excel и VBA
| | |-+  Привязать счетчик к управлению выпадающим списком
Страниц: [1]   Вниз
Печать
Автор Тема: Привязать счетчик к управлению выпадающим списком  (Прочитано 2665 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Valetnina
Постоялец
***

Репутация: +2/-0
Офлайн Офлайн

Сообщений: 153



Просмотр профиля WWW E-mail
« : 25.04.2019, 17:42:21 »

Добрый день.
Интересует возможность просматривать элементы выпадающего списка не только привычным способом (стрелочкой справа в ячейке), но и с помощью стрелок вверх/вниз такого элемента управления как Счетчик. Возможно, кто-то сталкивался ? Мне это кажется удобным.  И еще кажется, что без VBA здесь не обойтись.
Пример в приложении.
Записан
nilem
Эксперты
Постоялец
*

Репутация: +39/-0
Офлайн Офлайн

Сообщений: 194


Просмотр профиля E-mail
« Ответ #1 : 27.04.2019, 19:16:20 »

Добрый день.
Наверное, как-то так:
Код: (vb)
Private Sub SpinButton1_Change() 'Выпадающий список 1
Dim i&
i = Me.SpinButton1.Value
With Range("B10")
    .Value = Range(Mid(.Validation.Formula1, 2))(i, 1).Value
End With
End Sub

Private Sub SpinButton2_Change() 'Просто счетчик
    Range("D3").Value = Range("B2:B6")(Me.SpinButton2.Value, 1).Value
End Sub

Private Sub SpinButton3_Change() 'Выпадающий сисок 2
Dim i&
i = Me.SpinButton3.Value
With Range("E15")
  .Value = Split(.Validation.Formula1, ";")(i - 1)
End With
End Sub
Записан
Valetnina
Постоялец
***

Репутация: +2/-0
Офлайн Офлайн

Сообщений: 153



Просмотр профиля WWW E-mail
« Ответ #2 : 07.05.2019, 17:41:01 »

Спасибо Вам огромное за Ваше решение, труд.
Простите, так неудобно получилось, в суете не заглянула сама, есть ли отклик, и оповещение не заметила..
Буду изучать Ваш код. Отпишусь по результату.

Записан
Valetnina
Постоялец
***

Репутация: +2/-0
Офлайн Офлайн

Сообщений: 153



Просмотр профиля WWW E-mail
« Ответ #3 : 13.05.2019, 20:12:07 »

Здравствуйте. Получилось привязать код к простым кнопкам (стрелка вверх - предыдущее значение, стрелка вниз - следующее значение) Это позволяет разместить код не в листе, а в обычном модуле. Программа определяет тип источника данных (ссылка на диапазон или список, введенный вручную с разделителем) и дальше ветвится на 2 вызываемые подпрограммы согласно типу. Ваши подсказки тоже оказались полезными. Спасибо и всего доброго !
Записан
Страниц: [1]   Вверх
Печать
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2011, Simple Machines Valid XHTML 1.0! Valid CSS!
Яндекс.Метрика Рейтинг@Mail.ru