| Descricao: |
 Saberexcel - o site das macros
Essas macros do Aplicativo Microsoft Excel VBA, tem por objetivo inserir um ítem de menu para navegação pelas folhas de planilhas, o objeto inserido pelo procedimento é uma combobox relacionando todas as folhas de planilhas contidas no livro. Podem observar que usei o Evento auto_open para execução da macro na abertura do livro e auto_close() para deleção do menu personalizado no fechamento do livro
Essa macro insere uma barra de menu na forma de uma combobox para navegação pelas folhas de planilhas, usando o evento auto_open,
para montar o menu na abertura do livro.
Sub auto_open()
On Error Resume Next
CommandBars("Barra_Planilhas").Delete
Set vBarra = CommandBars.Add
vBarra.Name = "Barra_Planilhas"
vBarra.Visible = True
Set Menu = vBarra.Controls.Add(msoControlComboBox)
For i = 1 To Sheets.Count
Menu.AddItem Sheets(i).Name
Next
Menu.OnAction = "Navega_Plan"
Menu.Text = "Seleciona Planilha"
End Sub
'macro usando o evento auto_close para deleção do menu personalizado (Barra_Planilhas) ao fechar o livro.
Sub auto_close()
On Error Resume Next
CommandBars("Barra_Planilhas").Delete
End Sub
'macro que selecionará a folha de planilha desejada na lista da combobox no menuzinho personalizado. (veja imagem acima.)
Sub Navega_Plan()
Sheets(CommandBars("Barra_Planilhas").Controls(1).Text).Select
End Sub
'Essa macro é um (volta Principal) inserido em todas as folhas de planilha, quero que observe para um detalhe importante,
'aqui referenciamos a folha de planilha Principal, não pelo nome da folha de Planilha mas pela "FOLHA DE CÓDIGO DA FOLHA DE PLANILHA PRINCIPAL", o porque?,
R: se o usuário mudar o nome da folha de planilha lá na aba de planilha a macro vai funcionar, por estar referenciando à folha de código, ao contrário, isto é, se fosse pelo nome da folha de planilha Sheets("Principal").Select - (resultaria em erro, se o usuário mudassee o nome da folha de planilha) . entendeu?
Sub voltar()
sbPrincipal.Select ' planilha referenciada pelo nome da folha de código.
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel
|