Как сделать кнопку для навигации по листам книги

@katya · Регистрация: 21.03.2012

Author24 — интернет-сервис помощи студентам

Ребята, у меня такая проблема! нужно чтоб при открытии Excel открывалась форма и на ней кнопки, с помощью которых можно было перейти на другие листы, форму сделала, а вот как прописать не знаю т.к. с basicом не работала. Помогите

@Казанский · 03.05.2012, 14:46

В модуль книги (ЭтаКнига или ThisWorkbook)

Visual Basic

1
2
3

Private Sub Workbook_Open()
userform1.Show 'тут имя формы
End Sub

Код кнопки

Visual Basic

Private Sub CommandButton1_Click()
Sheets("Лист1").Select
Unload Me
End Sub

Можно сделать автоматизированную форму, которая будет сама создавать кнопки по количеству листов.

~~dev.Free~~ · 03.05.2012, 15:11

Сообщение от Казанский

В модуль книги (ЭтаКнига или ThisWorkbook)

Visual Basic

1
2
3

Private Sub Workbook_Open()
userform1.Show 'тут имя формы
End Sub

Код кнопки

Visual Basic

Private Sub CommandButton1_Click()
Sheets("Лист1").Select
Unload Me
End Sub

Можно сделать автоматизированную форму, которая будет сама создавать кнопки по количеству листов.

А если заведомо не известно название листов ? Как быть в таком случае ?

@~~Апострофф~~ · 03.05.2012, 15:20

Сообщение от inv.DS

А если заведомо не известно название листов ?

Попробуй так?

Visual Basic

1	Sheets(1).Select

А проще (и правильнее, по моему) вместо кнопок использовать листбокс, заполнить его при показе формы названиями листов, а по клику активировать соответствующий

Памирыч · 03.05.2012, 16:04

Или так:

Visual Basic

1	Sheets(3).Activate

@Казанский · 03.05.2012, 16:19

Сообщение от Апострофф

А проще (и правильнее, по моему) вместо кнопок использовать листбокс, заполнить его при показе формы названиями листов, а по клику активировать соответствующий

Да, очень просто получается. По двойному клику или по Enter, код формы

Visual Basic

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Sheets(ListBox1.Value).Activate
Unload Me
End Sub
 
Private Sub ListBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 13 Then
    Sheets(ListBox1.Value).Activate
    Unload Me
End If
End Sub
 
Private Sub UserForm_Initialize()
Dim sh, i&
For Each sh In Sheets
    If sh.Visible Then
        ListBox1.AddItem sh.Name
        If sh Is ActiveSheet Then i = ListBox1.ListCount
    End If
Next
ListBox1.ListIndex = i - 1
End Sub

@katya 6 / 6 / 0 Регистрация: 21.03.2012 Сообщений: 184
		1
	Как сделать кнопку для навигации по листам книги 03.05.2012, 14:19. Показов 2607. Ответов 5 Метки нет (Все метки) Ребята, у меня такая проблема! нужно чтоб при открытии Excel открывалась форма и на ней кнопки, с помощью которых можно было перейти на другие листы, форму сделала, а вот как прописать не знаю т.к. с basicом не работала. Помогите 0

	03.05.2012, 16:19