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

Saberexcel - site das macros

Esse procedimento do Aplicativo Microsoft Excel VBA, contém procedimento no modulo de planilha
worksheet usando o Evento BeforeRightClick, clicar com o botao direito do mouse, insere um menu
contextual no range definido B1: B10 cria um botão ligado a uma determinada macro clicar somente
nesta região com o botão direito do mouse

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, cancel As Boolean)

For Each vSaber In Application.CommandBars("cell").Controls
If vSaber.Tag = "sbx" Then vSaber.Delete
Next vSaber

If Not Application.Intersect(Target, Range("B1:B10")) Is Nothing Then
With Application.CommandBars("cell").Controls _
.Add(Type:=msoControlButton, before:=6, _
temporary:=True)
.Caption = "SaberExcel B1:B10"
.OnAction = "Minha_Macro"
.Tag = "sbx"
.FaceId = 261
End With
End If
End Sub

'
'Atenção! Esta macro para ser encontrada deve ser inserido no módulo Simples
Sub Minha_Macro()
MsgBox ("Este Menu somente é inserido ao clicar na range B1:B10"), vbInformation, ":::Saber Excel.com:::"
End Sub
'
'Esta macro reseta menus personalizados no cell botão direito do mouse
Sub Reseta__Botoes_Personalizados_Direito_Mouse()
Application.CommandBars("Cell").Reset
End Sub

Aprenda Microsoft Excel VBA -- Saberexcel - o site das macros




Baixe o exemplo de Planilha com os procedimentos acima

SaberExcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA, insere em uma outra folha de planilha os FaceID, que são icones do Excel, baseados em um intervalo de números representados pelos valores de duas células na folha de planilha, número inicial e número final, ou seja, FACEID's. de 123 à 876,
a macro lê os valores e insere números e referencias de FaceIDs na folha de Planilha.

[email protected]

Option Explicit

Sub Criar_Botoes_ID()
Dim x1 As Integer
Dim x2 As Integer
Dim i As Integer
Dim Titulo As String
Dim Ident As Integer

On Error Resume Next

x1 = Range("ini").Value
x2 = Range("fim").Value

If x2 < x1 Then x2 = x1

Call EliminarFiguras

Sheets("Botões").Select

Range("A1").Value = "ID"
Range("B1").Value = "Figura"
Range("C1").Value = "Descrição"
Range("B1").Select

Application.CommandBars.Add(Name:="temp").Visible = False

For i = x1 To x2
With Application.CommandBars("temp")
.Controls.Add Type:=msoControlButton, ID:=i, Before:=1

If .Controls.Count > 0 Then
Titulo = .Controls(1).Caption
Ident = .Controls(1).ID

If Titulo > "" Then
.Controls(1).CopyFace
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(0, -1).Value = Ident
ActiveCell.Offset(0, 1).Value = Titulo
ActiveSheet.PasteSpecial

.Controls(1).Delete
End If

End If

End With
Next i
Application.CommandBars("temp").Delete

Range("B1").Select

Cells.Replace What:="&", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False

End Sub


Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel







Publicidade
Compre com segurança, garantia, ótimos preços nas lojas submarino

Essas macros do Aprenda Microsoft Excel VBA(Visual Basic Application) -- SaberExcel --, inserem uma barra de ferramenta personalizada com combobox agregado à barra, essa macro que poderá resolver seu problema ela insere essa barra com o combobox na barra, e chama algumas macros através dos botões inseridos

Option Explicit

Sub Barra_Eves_Personalizada()

On Error Resume Next
CommandBars("XL-Eves®").Delete
On Error GoTo 0

With CommandBars.Add(Name:="XL-Eves®")
With .Controls.Add(Type:=msoControlButton)
.Caption = "XL-Eves®"
.OnAction = "msg"
.FaceId = 343
.TooltipText = "Aprender VBA (XL-Eves®)"
End With

With .Controls.Add(Type:=msoControlPopup)
.Caption = "Menu"
.TooltipText = "Inserir ordem crescente e decrescente"
With .Controls.Add(Type:=msoControlButton)
.Caption = "Ordem Crescente"
.FaceId = 210
.OnAction = "crescente"
End With

With .Controls.Add(Type:=msoControlButton)
.Caption = "Ordem Decrescente"
.FaceId = 211
.OnAction = "decrescente"
End With

With .Controls.Add(Type:=msoControlButton)
.Caption = "Deletar_barra"
.FaceId = 507
.OnAction = "deletar_barra"
End With

End With

With .Controls.Add(msoControlDropdown)
.AddItem "AA"
.AddItem "BB"
.AddItem "CC"
.OnAction = "msg"
.TooltipText = "testes com barras"
End With

.Position = msoBarTop
.Visible = True
End With
End Sub

Sub msg()
MsgBox "Aprenda excel vba, Esforce-se! ", vbInformation, "XL-Eves®"
End Sub

Sub crescente()
MsgBox ("Ordem Crescente Excel VBA Estudos®"), vbExclamation, "XL-Eves®"
End Sub

Sub decrescente()
MsgBox ("Ordem Decrescente Excel VBA Estudos®"), vbExclamation, "XL-Eves®"
End Sub

Sub deletar_barra()
CommandBars("XL-Eves®").Delete
End Sub

'inserir no módulo workbook

Option Explicit

Private Sub Workbook_Open()
Call Barra_Eves_Personalizada
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("XL-Eves®").Delete
End Sub

Aprenda Microsoft Excel VBA(Visual Basic Application) -- SaberExcel --

Escola Saberexcel VBA Estudos® - Treinamento com Macros, Fórmulas e Funções

Esses macros do aplicativo Microsoft Excel VBA(visual Basic Application) ocultam ou e repõem as barras de menus ( Faixa de Opções ) excel 2007 - 2010. Baixe o exemplo de planiha no final da página. Fique com Deus. Expedito Marcondes.
' - - - - - - - - - - - - - - - - - - - - - - - - - - - -'
Sub sbx_repor_faixa_de_opcoes()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
[d11].Value = "Faixa de Opções (Menus) I-N-S-E-R-I-D-A-"
End Sub

Sub sbx_retirar_faixa_opcoes()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
[d11].Value = "Faixa de Opções (Menus) - R-E-T-I-R-A-D-A-"
End Sub

' - - - - - - - - - - - - - - - - - - - - - - - - - - - -'




Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.



: