Home Excel - Dicas Microsoft Excel VBA Excel VBA - StatusBar Excel planilha vba eventos insere dados e statusbar

Excel planilha vba eventos insere dados e statusbar

E-mail Imprimir PDF

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



 Baixe o exemplo de planilha contendo os Eventos acima
Excel planilha vba eventos insere dados e statusbar (76.11 KB)



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

Última atualização em Ter, 23 de Agosto de 2011 09:11  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje849
mod_vvisit_counterOntem5104
mod_vvisit_counterEsta Semana30613
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês44342
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10467171
Aprenda MS Excel VBA

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