Home Excel - Dicas Microsoft Excel VBA Excel VBA - Barras e Menus e Botoes Excel planilha vba navegar planihas comobobox drop down proxima anterior

Excel planilha vba navegar planihas comobobox drop down proxima anterior

E-mail Imprimir PDF

Saberexcel - o site de quem precisa aprender macros Microsoft Excel VBA

Esses procedimentos e macros do
Aplicativo Microsoft Excel VBA, inserem um Menu Personalizado em na Barra de Ferramentas do Aplicativo MS Excel
insere uma ComboBox para navegar entre as planilhas, nesta formatação exitem formatação de objetos como Obtém ou define o texto exibido em

CommandBarPopup.Propriedade TooltipText. Obtém ou define o texto exibido em uma Dica de tela do CommandBarPopup's. Leitura/gravação
Observe que a macro inserirá um objeto (botão) com setas para selecionar a próxima folha de planilha ou a anterior.

NO MÓDULO (FOLHA DE CÓDIGO) DE PROGRAMAÇÃO DO OBJETO WORKBOOK INSIRA OS CÓDIGOS.
Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("Navegando © Saberexcel").Delete
End Sub

Private Sub Workbook_Open()
deletar_barra
Sheets("Pagamento").Select
Range("A1").Select

On Error Resume Next
Application.CommandBars("Navegando").Delete
On Error GoTo 0

With Application.CommandBars.Add("Navegando © Saberexcel", , False, True)

With .Controls.Add(msoControlButton)
.Style = msoButtonCaption
.Caption = "Navegando"
.TooltipText = "Info. Saberexcel.com"
.OnAction = "info"
.BeginGroup = True
End With

With .Controls.Add(msoControlButton)
.TooltipText = "Planilha Anterior"
.FaceId = 1017
.OnAction = "Planilha_Anterior"
.BeginGroup = True
End With


With .Controls.Add(msoControlDropdown)
.AddItem
"Pagamento"
.AddItem
"Auxliar"
.AddItem
"Produtos SaberExcel"
.AddItem "
Planejamento"
.AddItem
"Cadastro de Funcionários"
.AddItem "
Cadastro de Clientes"
.AddItem "
Controle de Estoque"
.TooltipText = "Navegar_Planilhas"
.OnAction = "Nav_Plans"
End With

With .Controls.Add(msoControlButton)
.TooltipText = "Proxima Planilha"
.FaceId = 1018
.OnAction = "Proxima_Planilha"
.BeginGroup = True
End With

With .Controls.Add(msoControlButton)
.Style = msoButtonIconAndCaption
.Caption = "Info Saberexcel"
.TooltipText = "Info Saberexcel"
.FaceId = 629
.OnAction = "info"
.BeginGroup = True
End With

.Protection = msoBarNoCustomize
.Position = msoBarFloating
.Visible = True
End With

End Sub

Sub deletar_barra()
On Error Resume Next
Application.CommandBars("Navegando © Saberexcel").Delete
End Sub


EM UM MÓDULO [ STANDARD ] 'COMUM' INSIRA OS CÓDIGOS

Essas macros abaixo estarão referenciando às planilhas que foram inseridas no livro e também nos ítens acima no módulo de programação do Workbook, observe lá, que estão relacionadas as planilhas inseridas no livro.

Option Explicit

Private Sub Nav_Plans()
Dim SbPlanAtiva As String

With CommandBars.ActionControl
SbPlanAtiva = .List(.ListIndex)
End With

Select Case SbPlanAtiva
Case
"Pagamento"
Worksheets("Pagamento").Activate
Case "Auxliar"
Worksheets("Auxliar").Activate
Case
"Produtos SaberExcel"
Worksheets("Produtos SaberExcel").Activate
Case
"Planejamento"
Worksheets("Planejamento").Activate
Case "
Cadastro de Funcionários"
Worksheets("Cadastro de Funcionários").Activate
Case
"Cadastro de Clientes"
Worksheets("Cadastro de Clientes").Activate
Case "Cadastro de Clientes"
Worksheets("Controle de Estoque").Activate

End Select

End Sub

'seleciona a planilha anterior
Private Sub Planilha_Anterior()
On Error Resume Next
ActiveSheet.Previous.Select
End Sub

Seleciona a próxima planilha
Private Sub Proxima_Planilha()
On Error Resume Next
ActiveSheet.Next.Select
End Sub

Private Sub info()
MsgBox ("Excel VBA Estudos® - Escola de informática"), vbInformation, "Saberexcel.com"
End Sub




Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel




Baixe o exemplo de planilha contendo os procedimentos e macros acima
 Excel planiilha vba botoes icon insere faceids limitados em planilha valores celula (35.84 kb)

Última atualização em Qua, 10 de Agosto de 2011 08:11  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje4040
mod_vvisit_counterOntem4432
mod_vvisit_counterEsta Semana30563
mod_vvisit_counterSemana passada46212
mod_vvisit_counterEsse mês17769
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10440598
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA