Excel VBA Planilha Evento Change somar valores

31 de dezembro de 2013 [email protected] 0 Comentários

Planilha Excel VBA Evento Change somar valores

Planilha Excel VBA Evento Change somar valores

Este Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), somando usando o Evento Change
Esse exemplo de planilha usamos o evento Change (Ao escrever, alterar) determinadas células na na folha de planilha será sensibilidada pelo evento Change da folha de planilha. Observe o exemplo,, muito bom para treinamento,
Usei também o propriedade OFFSET() = Desloc (Desloca (linha, Colunas).
‘também quando limpar a célula na coluna(C), imediatamente será também deletados os dados
na linha correspondente e a soma será recalculada.
‘//=========’ USE A CRIATIVIDADE E FAÇA BASTANTE EXERCICIOS COM EXEMPLO.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range(“e3:e12”), Target) Is Nothing And Target.Count = 1 Then
Target.Offset(, 1).Value = Target.Offset(, -1).Value * Target.Value
‘somar usando WorkSheetFunction(Soma)vba – as Worksheets são muito poderosas.
‘ ESTUDE NO SITE SOBRE AS WORKSHEETFUNCTIONS EXISTE 341 PRONTAS PARA TESTE.
[f15].Value = Application.WorksheetFunction.Sum(Range(“f5:f14”))
Target.Offset(1, -2).Select
End If
‘abaixo a condição caso apague um nome na coluna ‘c’
‘irá também apagar os dados na linha correspondentes. (lembre-se “Target = Celula Ativa”).
xLin = Saber2.Cells(Rows.Count, “b”).End(xlUp).Row + 1
If Not Intersect(Range(“c3:c12”), Target) Is Nothing And Target.Count = 1 Then
If Target= “” Then
Target.Offset(, 1).Value = “”
Target.Offset(, 2).Value = “”
Target.Offset(, 3).Value = “”
End If
End If
End Sub
Escola Saberexcel VBA Estudos® — Treinamento com Macros, Fórmulas e Funções.

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.