Planilha Excel VBA Formatação Condicional linha ativa e soma
Excel VBA Formatação Planilha Condicional linha ativa e soma
Este Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), SBX CURSOR LINHA FORMATA
INTERVALO DE DADOS. exemplo de planilha com evetno Selection change formata intervalo de células da linhas B:L
Observe que usei variáveis e instrução Do Until Loop para retornar a soma da célula(F5:” até a linha selecionada.
1 – Retorna a Soma para:
Range(“N1”) – Usando WorkSheetFunction(VBA)
Range(“O1”) – Usando a Instrução Do Until Loop
Coluna(m:m) – retorna a soma na linha ativa.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim tSoma As Double
With Rows(“5:” & Rows.Count)
.Interior.ColorIndex = xlNone
.Font.Bold = False
.Font.ColorIndex = xlAutomatic
End With
[M5:M1000].ClearContents
If Not Intersect(Target, Range(“L5”, Range(“L” & Rows.Count))) Is Nothing Then
With Cells(Target.Row, 2).Resize(, 11)
.Interior.ColorIndex = 6 ‘amarelo
.Font.Bold = True ‘negrito
.Font.ColorIndex = 3 ‘vermelho
End With
‘observe que aqui usei a Função de Planilha WorkSheetFunction(VBA) = Soma(Sum)
Cells(1, “n”).Value = Application.WorksheetFunction.Sum(Range(“f5”, Cells(Target.Row, “f”)))
i = 5
‘usando a instrução do until para localizar ultima linha selecionar e somar os valores.
‘veja que esse emplo retorna o valor acumulado na variavel soma na célula (O1)
On Error Resume Next
Do Until Cells(i, “f”) = Target.Row
tSoma = tSoma + Cells(i, “f”)
If i = Target.Row Then [o1].Value = tSoma: Cells(Target.Row, “m”).Value = tSoma: Exit Sub
i = i + 1
Loop
Cells(Target.Row, “L”).Value = tSoma
End If
End Sub
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.
| Compre pelo PagSeguro | Compre pelo PayPal | |
 |
 |
|
| Material Didático: Curso Excel VBA Expert |
 |
 Baixe o exemplo de planilha contendo os macros acima: |
 Planilha Excel VBA fc linha ativa e soma |
| <<Lind Download: Verifique também a caixa de Itens excluídos >> |
Planilha Excel VBA fc linha ativa e soma
