|
 Saberexcel - o site das macros
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 Aplicativo Microsoft Excel VBA Excel
|