Идея заключается в следующем. Хочу чтобы при нажатии на кнопку появлялась форма с рабочими листами в Екселе. Причем на форме появлялись CommandButton (по кол-ву листов), с названиями листов. Нажимаешь на кнопку - попадаешь на нужный тебе лист.

Вопрос следующий:

1. Есть форма, пустая
2. Запускаю макрос, он счиатет кол-во листов, записывает их названия в массив.
3. Запускает форму, добавляет на нее нужно кол-во кнопок, приваивает им названия листов.
4. Проблема: что дальше. Как поймать событие, что юзер нажал на какую-то кнопку?

У меня в свое время была похожая задача, но там были CheckBox'ы и я проверял их значение на True, а как быть с кнопками?

Помогите, плиз, если можно кодом

Пояснение, кнопок может создаться очень много и всякий раз разное кол-во. На каждую я процедуру не напишу...
Соответсвенно имени я их не знаю...

Sub CreateForm()

Application.ScreenUpdating = False

Dim MyArray() As String

With ActiveWorkbook

SheetsQty = ActiveWorkbook.Worksheets.Count ' Кол-во листов в книге
ReDim MyArray(SheetsQty) ' Определяем размер массива

For i = 1 To SheetsQty
ActiveWorkbook.Worksheets.Item(i).Select
N = ActiveWorkbook.Worksheets.Item(i).Name
MyArray(i) = N 'заносим данные в массив
Next i

t = 5 ' определям верхнюю границу будущей первой кнопки

For i = 1 To SheetsQty ' цикл равный кол-ву листов в книге

Set Mycmd = Controls.Add("Forms.CommandButton.1", , Visible) 'создание кнопки

Mycmd.Left = 5
Mycmd.Top = t
Mycmd.Width = 80
Mycmd.Height = 20
Mycmd.Caption = MyArray (i)
' можно поставить Mycmd.Name тогда названия
' кнопок будут CommandButton1, CommandButton2, ...

t = t + 25 ' отступ для след. кнопки

Next i

h = i * 25 + 10 ' определяется высота формы

If h > 200 Then ' если высота слишком большая, тогда включаем скроллинг

With FrmLists
.Height = 200
.Width = 115
.ScrollBars = fmScrollBarsVertical
.ScrollHeight = h - 25
.Left = 10
.Top = 200
End With
Else

FrmLists.Height = h

End If


End With

Application.ScreenUpdating = True



End Sub



Best Regards

to Antonariy:

это точно, про события. Я просто не в курсе, поэтому и использовал этот метод. Но если действительно события отловить нельзя (это VBA), то блин я зря запостил этот топик.

Best Regards

Конец топика :-(
Сделал ComboBox, работает. Наверное даже удобнее, т.к. места меньше на экране занимает.
Спасибо всем.