Excel VBA - StatusBar

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Descendente ]

    Excel planilha vba eventos insere dados e statusbar Excel planilha vba eventos insere dados e statusbar

    popular!
    Adicionado em: 29/05/2011
    Modificado em: 29/05/2011
    Tamanho: Vazio
    Downloads: 1022

    Saberexcel - o site de quem precisa Aprender Microsoft Excel VBA

    Esses procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere mensagem na statusbar, retornando o nome da folha de planilha, a célula selecionada e também o valor da célula ativa. observe que também o Evento Worksheet_SelectionChange da folha de planiha,
    ao selecionar a célula (B2), verifica se a célula(M3) está vazia, insere uma determinada frase, caso contrario, se nao estiver vazia, inser o conteúdo da célula na coluna(G).

    NO MÓDULO DE EDIÇÃO DE CÓDIGO DO OBJETO WORKBOOK INSIRA O PROCEDIMENTO VBA
    'Observe que esse Evento sensibilizará todas as folhas de planilhas do Livro
    'Evento(Workbook) afeta todo (Livro) ---- Evento(Worksheet) afeta as folhas de Planilhas individualmente.

    Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
    ByVal Target As Excel.Range)
    On Error Resume Next ' em caso de seleção de várias células
    Application.StatusBar = "Planilha Atual: [" & Sh.Name & "] :" _
    & "Célula Selecionada [ " & Target.Address & " ] Valor da célula [ " & Target.Value & " ]"
    End Sub

    'quando você desativar o livro ativo, limpará a statusbar, selecionando outro livro,
    'se não houver essa linha de código, a última mensagem permanece no livro ativo.

    Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
    Application.StatusBar = ""
    End Sub


    NA FOLHA DE CÓDIGO DO OBJETO WORKSHEET(FOLHAS DE PLANILHAS) INSIRA OS PROCEDIMENTOS VBA
    Esse procedimento com evento Worksheet Change (ao digitar) só é sensibilizado se for digitado alguma coisa na célula (B2)

    'Private Sub Worksheet_Change(ByVal Target As Range)
    'If Not Application.Intersect(Target, Range("B2")) Is Nothing Then
    ' MsgBox ("saberexcel - o site das macros")
    'End If
    'End Sub


    Verifica se a célula(M3) está vazia, insere uma determinada frase, caso contrario, se nao estiver vazia, insere o
    conteúdo da célula na coluna(G).

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    '[G1].Select
    If Not Application.Intersect(Target, Range("B2")) Is Nothing Then
    [G65000].End(xlUp).Offset(1, 0).Select
    If [m3].Value <> "" Then
    ActiveCell.Value = [M3].Value
    Else
    ActiveCell.Value = "Saberexcel - site das macros"
    End If
    End If
    End Sub

    Observe que inserí os procedimentos activate nas folhas de planilha
    ao serem ativadas(selecionadas), vão selecionar determinadas células
    para visualizar a mensagem na statusbar da folha de planilha.

    Private Sub Worksheet_Activate()
    [F10].Select
    End Sub



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





    Publicidade
    Compre com segurança, garantia e ótimos preços
    Eletrônicos - Submarino.com.br

    b

    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

    Simplesmente fantástico todo arquivo que vc me mandou.....rapaiz, é muito bom. Já usei vários modelos de códigos para situações que ficaria me matando..... Mal posso esperar o dvd 14.000 planilhas exemplos Muito obrigado. Deus lhe dê muita saude....

    Percival( Analista de custos)
    Analista de Custos
    03 August 2011
    Excelente material, tem me ajudado muito, eu recomdendo. parabéns!...

    Ana L. Menezes - Porto Alegre/RS
    Porto Alegre-RS
    05 September 2010

    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