Как вставить ComboBox и CommandButton в Toolbars
Добавлено: 07 июн 2005, 13:04
или в Tree при этом чтобы выполнялись условия например если СomboBox = "A" то открыть Sheet1. СomboBox = "B" то открыть Sheet2 и т,д,. мне помогли но условие не выполнялось
Код: Выделить всё
Private Sub Workbook_Activate()
With Application.CommandBars("Worksheet Menu Bar") '
With .Controls.Add(Type:=msoControlComboBox)
.BeginGroup = True
.OnAction = "wsActivate"
For Each iList In Worksheets
.AddItem iList.Name
Next
End With
End With
End Sub
Private Sub Workbook_Deactivate()
Application.CommandBars("Worksheet Menu Bar").Reset
End Sub
Macro1()
e = msoComboBox.Text
If msoComboBox.Text = e Then
Sheets(e).Select
End Sub[.code]