Несколько чекбоксов с запуском нужных макросов

[tibhar940]

Прошу помощи, совета)

Передо мной возникла задача запуска определённых макросов в книге при постановке галочек чекбокса. Посмотрел, что к чекбоксу можно привязать макрос. Но макрос в таком случае срабатывает сразу. А мне хотелось бы сначала выбрать галочки. А потом нажать кнопку по которой сразу отработают все выбранные макросы.

Пока реализовал это так
Есть табличка с двумя столбцами, в одном нужный макрос(действие), в другом пустые поля, если мне нужно, чтобы макрос выполнился, я вставляю в поле "1".

Вот код:

Dim Slovo As Variant

Sub a()
Slovo = InputBox("", "Окошко", "")
If Range("b1") = "1" Then
Application.Run "b"
End If
End Sub

Sub b()
If Slovo <> " " Then
Range("f1").Replace "xx", Slovo, xlPart
End If
End Sub

В принципе меня устраивает и такой вариант. Но с чекбоксом было бы удобнее. А вообще, шибко привык к юзерформам и табличка не воспринимается так.

[DiemonStar]

Private Sub ComboBox1_Change()
  Select Case ComboBox1.ListIndex
    Case 0
      MsgBox ComboBox1.Text
    Case 1
      'макрос 2
      MsgBox ComboBox1.Text
    Case 2
      'макрос 3
      MsgBox ComboBox1.Text
    Case 3
      'макрос 4
      MsgBox "макрос 4"
    Case Else
      MsgBox ComboBox1.List(ComboBox1.ListIndex) & " не используется"
  End Select
End Sub



Private Sub Worksheet_Activate()
  ComboBox1.Clear
  ComboBox1.AddItem "Макрос 1", 0
  ComboBox1.AddItem "Макрос 2", 1
  ComboBox1.AddItem "Макрос 3", 2
  ComboBox1.AddItem "Макрос 4", 3
  ComboBox1.AddItem "Макрос 5", 4
End Sub

можно примерно так сделать (заполнение списка можно сделать и при открытии книги - тут на любителя)

[tibhar940]

Сообщение от DiemonStar

Private Sub ComboBox1_Change()
  Select Case ComboBox1.ListIndex
    Case 0
      MsgBox ComboBox1.Text
    Case 1
      'макрос 2
      MsgBox ComboBox1.Text
    Case 2
      'макрос 3
      MsgBox ComboBox1.Text
    Case 3
      'макрос 4
      MsgBox "макрос 4"
    Case Else
      MsgBox ComboBox1.List(ComboBox1.ListIndex) & " не используется"
  End Select
End Sub



Private Sub Worksheet_Activate()
  ComboBox1.Clear
  ComboBox1.AddItem "Макрос 1", 0
  ComboBox1.AddItem "Макрос 2", 1
  ComboBox1.AddItem "Макрос 3", 2
  ComboBox1.AddItem "Макрос 4", 3
  ComboBox1.AddItem "Макрос 5", 4
End Sub

можно примерно так сделать (заполнение списка можно сделать и при открытии книги - тут на любителя)

Спасибо, буду разбираться. В принципе уже настроил защищенную страничку, с вводом единички, тоже симпатишно смотрится.
http://ya.ru
ПРАВКА:
Я сразу что-то не посмотрел, а сейчас начал разбираться и понял, что здесь немного не то, что я хотел. Здесь комбобокс, а мне нужен чекбокс Он же Флажок, чтобы можно было выбрать несколько запускаемых макросов и потом по нажатии кнопки (или запуску макроса) заработало)

[Робин]

Здраствуйте
Извините, но на примере можете показать как оно работает. У меня не получается
Спасибо