Excel VBA - StatusBar

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Ascendente ]

    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

    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