soma colunas performance produtos
Excel VBA soma colunas Planilha performance produtos
Estes Macros do aplicativo MS Excel VBA, calcula variações, usando a instrução for next e variáveis Linhas e Colunas, o exemplo faz os cálculos das variações e retorna também (porcentagens valores reais), com formatações em células
via vba. (observe que uso da instrução For..Next é muito importante no aprendizado), fiz a referencia a uma linha x coluna porém desloquei os valores (subtraindo (valores)) da variável vCol (Coluna) a ser analisada, para buscar os valores
desejados.
Sub somando_valores_sbx()
Dim vLin, vCol As Long
Dim tSoma, xSoma As Double ‘ ou pode ser currency leia sobre variáveis (clique na palavra e f1)
tSoma = 0
xSoma = 0 ‘somando coluna “AB”
UL = Cells(Rows.Count, “A”).End(xlUp).Row
‘sbx_limpar_teste
‘//Limpando dados
x = Cells(Rows.Count, “a”).End(xlUp).Row + 1
Range(Cells(9, “AA”), Cells(x, “ad”)).ClearContents
For vLin = 9 To Cells(Rows.Count, “a”).End(xlUp).Row
For vCol = 10 To 17
‘Cells(vLin, vCol).Select ‘ caso queira depurar manualmente e percorrer o caminho do macro (tecle f8 no vba)
tSoma = tSoma + Cells(vLin, vCol).Value
xSoma = xSoma + Cells(vLin, vCol – 8).Value
Next vCol
Cells(vLin, vCol + 9).Value = Format(tSoma, “##,###,##0.00”)
Cells(vLin, vCol + 10).Value = Format(xSoma, “##,###,##0.00”)
Cells(vLin, vCol + 11).Value = Format(tSoma – xSoma, “##,###,##0.00”)
‘comparando valores para nao dar erro na divisao valor/0
If Cells(vLin, vCol + 11).Value And Cells(vLin, vCol + 10).Value <> 0 Then
Cells(vLin, vCol + 12).Value = (1 – (tSoma / xSoma))
End If
tSoma = 0
xSoma = 0
Next vLin
End Sub
‘//========’ limpar dados para realização do teste
Sub sbx_limpar_teste()
x = Cells(Rows.Count, “a”).End(xlUp).Row + 1
Range(Cells(9, “AA”), Cells(x, “ad”)).ClearContents
MsgBox “dados foram apagados com sucesso!!!”, vbInformation, “Escola Saberexcel VBA Estudos®”
End Sub
‘//=====’mensagem treinamento.
Sub sbx_msg()
MsgBox “clique na vassourinha rs…..”, vbCritical, “Escola Saberexcel VBA Estudos®”
End Sub
Sub sbx_visualizar_macro_wordpad()
ActiveSheet.Shapes.Range(Array(“saber1”)).Select
Selection.Verb Verb:=xlPrimary
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 soma colunas performance produtos |
| <<Verifique Caixa de Itens Excluídos no Email, caso Link não esteja na Caixa de Entrada >> |
Planilha Excel VBA soma colunas performance produtos
