ОПП(Лекция4)[2014]
.pdf
Этополе отображает текущее кол-во листов
ЗакладкиTab объекта TabStrip соответствуютлистьям в рабочейкниге,их имена должнысовпадать; Активизацияочередной закладкиделает соответствующийрабочий листактивным.
Принажатииэтойкнопки(обработчик событияspinUp )добавляем
соответствующуюзакладкуилиств рабочуюкнигупосле активной
Принажатииэтойкнопки(обработчик событияspinDown )удаляемактивную
закладкуисоответствующий листв рабочейкниге.
Событие Initialize()
Private Sub UserForm_Initialize()
TabStrip1.Tabs.Clear
For Each sh In ActiveWorkbook.Worksheets
TabStrip1.Tabs.Add bstrCaption:=sh.Name
Next sh
Label2.Caption = TabStrip1.Tabs.Count
ActiveWorkbook.Worksheets.Item(2).Activate
TabStrip1.Value = 1
If ActiveWorkbook.Worksheets.Item(TabStrip1.Value).Visible = -1 Then
OptionButton1.Value = True
If ActiveWorkbook.Worksheets.Item(TabStrip1.Value).Visible = 0 Then
OptionButton2.Value = True
If ActiveWorkbook.Worksheets.Item(TabStrip1.Value).Visible = 2 Then
OptionButton3.Value = True
TextBox1.Text = ActiveWorkbook.Worksheets.Item(TabStrip1.Value + 1).Name
End Sub