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: 76.11 KB
    Downloads: 794

    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


    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