Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções
Escola Saberexcel VBA Estudos®
Treinamentos com Macros, Fórmulas e Funções
Site....: http://www.microsoftexcel.com.br
Email..: [email protected]
'//========================'

RESPONDENDO A VARIAS DÚVIDAS:
1- ) gera números Aleatórios(Colunas(C), Coluna(E))
2-) Mostra as formulas da Coluna(G)) nas coluna(I) Função ExisteFormulas
3-) faz os calculos por linha(como nas formulas )(usando Lin,col - Propriedade Cells() )
'//======='(Subtrai(Colunas(E-C), Divide por 5 e multiplica por 5,76
4-com o mesmo macro faz acumulo de Valores em Variavel ((xSoma))
//=======' e retorna valores variaveis para linha 24 que é linha de totais
- (Treinamento com Do While Until
5- há também uma soma isolada das colunas(C), Coluna(E), Coluna(K)
'//=======' o Loop percorrerá todas as células das colunas [acumulando valores em variaveis Soma]
'//======='até encontrar a palavra Total, quando encontrar descarrega os valores das variaveis nas colunas correspondentes

Sub sbx_gerar_numeros_aleatorios()
Dim tSoma, vSoma, zSoma, ySoma As Double
For i = 4 To Cells(Rows.Count, "a").End(xlUp).Row
If i = 21 Then Exit For 'para inserir números aleatórios depois da linha 21 (Palavra Total)
Cells(i, "c").Value = CDbl(Application.WorksheetFunction.RandBetween(200, 1000) & "," & Application.WorksheetFunction.RandBetween(1, 99))
Cells(i, "e").Value = CDbl(Application.WorksheetFunction.RandBetween(3000, 5000) & "," & Application.WorksheetFunction.RandBetween(1, 99))
Cells(i, "b").NumberFormat = "0.00"
Cells(i, "e").NumberFormat = "0.00"
Cells(i, "i") = "'" & ExisteFomula(Range("G" & CStr(i)))
Cells(i, "k").Value = (Cells(i, "e").Value - Cells(i, "c").Value) / 2 * 5.76
'//========='variaveis soma acumulando valor (Linhas e Colunas especificas)
tSoma = tSoma + Cells(i, "c").Value 'aproveitando o Instrução for next para inserção Soma
vSoma = vSoma + Cells(i, "e").Value
zSoma = zSoma + Cells(i, "g").Value
ySoma = ySoma + Cells(i, "k").Value
Next i
Cells(i + 3, "c").Value = tSoma
Cells(i + 3, "e").Value = vSoma
Cells(i + 3, "g").Value = zSoma
Cells(i + 3, "k").Value = ySoma
End Sub
'//======='
'fiz a soma também por variaveis no macro anterior para ilustrar [Somando com Variaveis]
'mas segue um treinamento com Do While
Sub sbx_soma_do_while_treinamentos()
Dim tSoma, vSoma, zSoma, ySoma As Double
i = 4
If Application.WorksheetFunction.CountA(Range("c4:c20")) = 0 Then
MsgBox ("insira primeiramente os números aleatórios"), vbCritical, "Escola Saberexcel VBA Estudos®"
End If
Do Until Cells(i, "A").Value = "Total"
tSoma = tSoma + Cells(i, "c").Value
vSoma = vSoma + Cells(i, "e").Value
zSoma = zSoma + Cells(i, "g").Value
ySoma = ySoma + Cells(i, "k").Value
i = i + 1
Loop
Cells(i, "c").Value = tSoma 'descarrega variavel - valores acumulados linha palavra "Total"
Cells(i, "e").Value = vSoma
Cells(i, "g").Value = zSoma
Cells(i, "k").Value = ySoma
End Sub
'//=======' função personalizada mostra fórmulas
Function ExisteFomula(sbxCell)
ExisteFomula = sbxCell.FormulaLocal
End Function
'//=======' macro chama a funcao ExisteFormulas, mostrando formulas na coluna (I)
Sub sbx_mostrar_formulas()
Dim i As Integer
For i = 4 To Cells(Rows.Count, "c").End(xlUp).Row
Cells(i, "i") = "'" & ExisteFomula(Range("G" & CStr(i)))
Next i
End Sub
'//=======' Limpar as os range nas colunas c,e,i,k, e celulas,
Sub sbx_limpar_teste()
Dim vRange As Range
For Each vRange In Range("C4:C20,E4:E20,I4:I20,K4:K20,c24,e24,g24,k24")
vRange.ClearContents
Next vRange
End Sub
'//=======' Limpar as somas que foram inseridas pelo macro (Do While Until)
Sub sbx_limpar_teste_Total()
[c24,e24,g24,k24].ClearContents
End Sub
'//======='
Fiquem com Deus,
Expedito Marcondes

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.



Baixe o exemplo de planilha contendo os macros acima.

Escola Saberexcel VBA Estudos® - O site de quem precisa Aprender tudo sobre Macros Microsoft Excel VBA

Esse macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), adiciona 'Soma' um determinado valor digitado à um valor já existente(Antigo) em determinada célula na folha de planilha, com auxilio de um objeto Entrada de Dados (InputBox). isto é, ao digitar um novo valor no Objeto Entrada de Dados 'InputBox', esse valor será automaticamente adicionado, somando ao valor antigo da célula.
Porém fiz um retorno dos dados para a folha de planilha para prática com VBA(Visual Basic Application),
Espero que o exemplo possam lhe ser útil.
Fique com Deus,
Expedito Marcondes.
' - - - - - - - - - - - - - - -
'Essa macro foi retirada da
Coleção 15.000 Macros Microsoft Excel VBA Fórmulas e Funções 'Saberexcel
'- - - - - - - - - - - - - - - - - -
Sub sbx_somar_valores_inptubox_a1()
Dim vNovo As Currency
Dim vAntigo As Currency
Dim vAdicionarValor As Currency
Dim Mensagem, Titulo, Padrao

Mensagem = "Digite o novo valor!"
Titulo = "InputBox somar valores - "
x = "Escola Saberexcel VBA Estudos®"
Y = "Treinamento com Macros, Fórmulas e Funções"
Padrao = "0"
Z = "'- - -' Aprenda MS Excel VBA - SaberExcel ' - - -'"

On Error GoTo errosbx
'observe que usei atribuição variavel CCur() 'moeda' para aceitar somar a parte decimal ao digitar na inputbox
vAdicionarValor = CCur(InputBox(Mensagem & vbCrLf & x & vbCrLf & Y & vbCrLf & Z, Titulo & x, Padrao, 1))
vAntigo = Range("d4").Value
vNovo = vAntigo + vAdicionarValor
Range("d4").Value = vNovo
Saber1.Range("L65000").End(xlUp).Offset(1, 0).Value = vAdicionarValor
Saber1.Range("L65000").End(xlUp).Offset(0, 2).Value = vNovo
Saber1.Range("L65000").End(xlUp).Offset(0, 4).Value = Now()
Saber1.Range("L65000").End(xlUp).Offset(0, 6).Value = Application.UserName

Exit Sub
errosbx: Exit Sub ':MsgBox ("cancelado")
End Sub

Sub sbx_limpar_dados_teste()
Dim resposta As String
resposta = MsgBox("deseja deletar os dados já inseridos", vbYesNo + vbCritical, "Escola Saberexcel VBA Estudos®")
If resposta = 6 Then
[dados].ClearContents
End If
[I1].Select
End Sub

'Format(TotalArea, "0.00")
Sub sbx_teste_sbx_y()
Dim i As Integer, x As Variant
x = Application.InputBox("Entre com número", Type:=1)
If TypeName(x) = "Boolean" Then Exit Sub
i = CInt(x)
MsgBox i
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.

Saberexcel - site das Macros
Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere uma soma na coluna(B) referente aos números digitados na coluna(a)
observe que usamos uma Função para os calculos.
Poderá notar que a macro insere fórmulas envolvendo a função Calculo, depois deleta as fórmulas preservando os valores.

Sub insere_formula_funcao_calculo()
[B2].Select
With Range("B1:B" & Range("A65536").End(xlUp).Row)
'definindo a fórmulas
.Formula = "=Calculo(R1C1:R[1]C1)"
.Value = .Value 'deleta fórmulas e preserva valores, faça o teste, comente essa linha e execute a macro para visualizar as fórmulas.
End With
End Sub

Function Calculo(vRegiao As Range) As Double
Dim vCelula As Range
Application.Volatile

For Each vCelula In vRegiao
Calculo = Calculo + vCelula
Next vCelula

End Function

Sub limpar_teste()
[rst].ClearContents
End Sub

Function Calculo(vRegiao As Range) As Double
Dim vCelula As Range
Application.Volatile

For Each vCelula In vRegiao
Calculo = Calculo + vCelula
Next vCelula

End Function

Sub limpar_teste()
[rst].ClearContents
End Sub



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA, sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel

Macro do Aplicativo Microsoft Excel VBA, faz uma soma através do Visual Basic Application, inserindo a fórmula na célula(A1)
sendo a soma de determinado range (A2:A18), e em A1 adicione a soma o Texto "SOMA TOTAL", texto precedido da soma.

Sub Inserir_Formula()
Range("A1").Select
Range("A1").Formula = "=SUM(A2:A18)"
Selection.Formula = " Soma Total = R$ " & Range("A1").Value
End Sub



Aprenda Microsoft Excel VBA --(SaberExcel)--

Saberexcel - o site das macros
Esta macro do Aplicativo Microsoft Excel VBA, incrementa uma determinada soma na coluna(A) dos números digitados, é incrementado na fórmula


Sub variavel_endereco_dentro_da_soma()
Range("A1") = "=SUM(A2:" & Range("A2").End(xlDown).Address & ")"
End Sub

fórmula inserida a medida que for digitando e acionando a macro: =SOMA(A2:$A$6)

Aprenda Aplicativo Microsoft Excel VBA (( Saberexcel ))



Baixe o exemplo de planilha da macro acima