Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
запуск макроса по выбранному номеру в комбокс
 
#1
15.07.2024 09:32:13
Здравствуйте! Помогите пожалуйста дописать код макроса, что бы через комбокс в выпадающем списке можно было выбрать номер макроса, который запустится.  
 
 
 
#2
15.07.2024 10:32:00
Добавите названия своих макросов возле списка данных.
 
 
 
#3
15.07.2024 10:34:54
Что-то типа
Код
Private Sub ComboBox1_Change()
  Select Case ComboBox1.Value
    Case Is = 1
      Call Первый
    Case Is = 2
      Call Второй
    Case Is = 3
      Call Третий
  End Select
End Sub
Согласие есть продукт при полном непротивлении сторон
 
 
 
#4
15.07.2024 10:35:04
VladZ, Благодарю, то что нужно!
 
 
 
#5
15.07.2024 10:36:43
Sanja, Ваш способ тоже рабочий, благодарю
 
 
 
#6
15.07.2024 10:40:18
Код
Sub test()
    Application.Run "Макрос" & Sheets(1).ComboBox1
End Sub

Sub Макрос1()

End Sub

Sub Макрос2()

End Sub

Sub Макрос3()

End Sub
 
 
 
#7
15.07.2024 13:13:05
Попробовал добавить макросы, в основном некорректно  работает скрытие строк макросом при выборе нечетных цифр. В разных кодах примерно одинаковая ситуация. А если раскрываю строки с помощью мышки, то вообще слетает ексель, потом предлагает восстановить последний файл  
Изменено: Energo73 - 15.07.2024 13:14:49
 
 
 
#8
15.07.2024 13:46:28
Макросы из #7 можно заменить одним макросом.
Код
Private Sub ComboBox1_Change()
    Dim rr As Range
    Set rr = Rows("23:" & (100 * ComboBox1.Value - 1))
    rr.EntireRow.Hidden = Not rr.Rows(1).EntireRow.Hidden
End Sub
 
 
 
#9
15.07.2024 13:54:48
МатросНаЗебре, заменил, но проблема не пропала, четные цифры не скрывают строки. Нечетные скрывают, как положено
 
 
 
#10
15.07.2024 14:14:45
Ошибка не воспроизводится. И чётные, и нечётные скрывают и отображают строки.
 
 
 
Страницы: 1
Читают тему
Наверх