Home Excel - Downloads / Areas Restritas Excel VBA - Barras e Menus e Botões

Excel VBA - Barras e Menus e Botões

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Ascendente ]

    vba navegar planihas comobobox drop down proxima anterior vba navegar planihas comobobox drop down proxima anterior

    popular!
    Adicionado em: 17/11/2010
    Modificado em: 17/11/2010
    Tamanho: Vazio
    Downloads: 1442

    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




    vba menu contextual insere menu clicar botao direito mouse vba menu contextual insere menu clicar botao direito mouse

    popular!
    Adicionado em: 17/11/2010
    Modificado em: 26/02/2011
    Tamanho: Vazio
    Downloads: 1325

    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


    vba botoes icon insere faceids limitados em planilha valores celula vba botoes icon insere faceids limitados em planilha valores celula

    popular!
    Adicionado em: 17/11/2010
    Modificado em: 17/11/2010
    Tamanho: Vazio
    Downloads: 1845

    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


    Informática - Submarino.com.br

    vba barra de ferramentas insere barra ferramenta personalizada vba barra de ferramentas insere barra ferramenta personalizada

    popular!
    Adicionado em: 17/11/2010
    Modificado em: 17/11/2010
    Tamanho: Vazio
    Downloads: 1770

    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 --




    Excel vba planilha oculta e repoe faixa de opcoes Excel vba planilha oculta e repoe faixa de opcoes

    popular!
    Adicionado em: 12/02/2012
    Modificado em: 12/02/2012
    Tamanho: Vazio
    Downloads: 2117

    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.



    :

    Página 1 de 2

    PROMOÇÃO DIDÁTICOS SABEREXCEL



    Adquira já o Acesso Imediato
    à Area de Membros

    Compra Grantida --- Entrega Imediata

    Aprenda Excel VBA com Simplicidade de 
    códigos e Eficácia, Escrevendo Menos e
    Fazendo Mais.

    '-------------------------------------'
    Entrega Imediata:
    +  500 Video Aulas MS Excel VBA
    +  35.000 Planilhas Excel e VBA
    +  Coleção 25.000 Macros MS Excel VBA
    +  141 Planilhas Instruções Loops
    +  341 Planilhas WorksheetFunctions(VBA)
    +    04 Módulos Como Fazer Excel VBA
    +  Curso Completo MS Excel VBA
    +  Planilhas Inteligentes


    Pesquisa Google SaberExcel

    Publicidade Google

    <script type="text/javascript"><!--

    google_ad_client = "ca-pub-2317234650173689";

    /* retangulo 336 x 280 */

    google_ad_slot = "0315083363";

    google_ad_width = 336;

    google_ad_height = 280;

    //-->

    </script>

    <script type="text/javascript"

    src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

    </script>

    Publicidade

    RSFirewallProtected


    Google Associados

    Depoimentos

    Adicione Saberexcel Favoritos

     
     

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


       Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA