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)