Самоучитель VBA


         

А на листе модуля введите


.Addltem "Еще не решил", 3
.Listlndex = i
End With
End With
End With

End Sub
'

Private Sub Workbook_WindowDeactivate(ByVal Wn As Excel.Window)

' Процедура, отображающая панели инструментов Форматирование

' ' и Стандартная при закрытии приложения

'

With Application

.CommandBars("Formatting").Visible = True

.CommandBars("Standard").Visible = True
End With
End Sub

А на листе модуля введите следующие две процедуры, которые будут выполняться при нажатии на соответствующие кнопки.

Sub Действо1()

MsgBox "Результат действа 1"
End Sub

Sub Действо 2()

MsgBox " Результат действа 2"
End Sub



Содержание  Назад  Вперед