Descricao: |
Saberexcel - site das macros
Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere um menu contextual,(menu suspenso) ao clicar com o botão direito do mouse em determinada planilha, neste caso inserí o exemplo com o evento na folha de planilha 'Pagamento'. Quando clicar com o botão direito do mouse abrirá o Menu Contextual para navegação pelas folhas de planilhas do livro. bem simples, bem legal. Observem que inserí também no Evento Auto_Open, que mostrará o Menu antes de abrir o Livro. Espero que o exemplo possa lhe útil. Fique com Deus, E_Marcondes
Sub Menu_CONTEXTUAL() Application.CommandBars("Workbook tabs").ShowPopup 500, 200 End Sub
Sub plan_pagamento() Saber2.Select End Sub
Esse exemplo ligado ao Evento Open do Obejto Livro(WorkBook) já direcionará para planilha 'Pagamento' e abrirá o menu contextual Private Sub Workbook_Open() Saber2.Select Menu_CONTEXTUAL End Sub
Esse procedimento ocorre ao clicar duas vezes no botão direito do mouse esta ligado ao Objeto Worksheet Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Menu_CONTEXTUAL End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel
|