Acesso Livre - Registrados (REGISTRE-SE!)
Adicionado em: | 19/02/2011 |
Modificado em: | 19/02/2011 |
Tamanho: | Vazio |
Downloads: | 818 |
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
Adicionado em: | 10/05/2011 |
Modificado em: | 10/05/2011 |
Tamanho: | Vazio |
Downloads: | 1072 |
Saberexcel - o site de quem precisa aprender Macros Microsoft Excel VBA.
Essa Função personalizada do Aplicativo Microsoft Excel VBA(Visual Basic Application), retorna o total da soma dos números existentes em determinada coluna, dependendo do critério inserido na fórmula contendo a função personalizada SomaColuna() abaixo.
'- Na folha de planiha use a seguinte fórmula, destacando o critério da soma da coluna desejada.
Retorna a soma da coluna do mês de Março.......: '=SOMA(SomaColuna("Plan1";"Março"))
Retorna a soma da coluna do mês de Dezembro.: '=SOMA(SomaColuna("Plan1";"Dezembro"))
Function SomaColuna(vDados As String, vNome As String) As Range
'variável vDados representa toda a tabela(meses e dados)
Dim i As Integer
Dim vCelula1 As String
Dim vCelula2 As String
Dim vColunas As Long
Dim vLinhas As Long
vColunas = Worksheets(vDados).UsedRange.Columns.Count
vLinhas = Worksheets(vDados).UsedRange.Rows.Count
For i = 1 To vColunas
If UCase(Worksheets(vDados).Cells(1, i)) = UCase(vNome) Then
vCelula1 = Worksheets(vDados).Cells(2, i).Address
vCelula2 = Worksheets(vDados).Cells(vLinhas, i).Address
Set SomaColuna = Worksheets(vDados).Range(vCelula1 & ":" & vCelula2)
End If
Next
End Function
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
Adicionado em: | 22/10/2011 |
Modificado em: | 22/10/2011 |
Tamanho: | Vazio |
Downloads: | 1757 |
Saberexcel o site de quem precisa aprender macros microsoft excel vba
Esses procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application), chamando um rotina para somar duas células em determinada folha de planilha, retorna o resultado da soma em outra célula, juntamente com uma mensagem contendo uma formtação de números.
Espero que o exemplo possa ajudá-los. Fiquem com Deus. Expedito Marcondes.
Sub sbm_somando_Rotina(ByVal sbx As Integer)
sbx = Range("c3") + Range("e3")
MsgBox "Célula(G3) é igual a soma das celulas(C3+E3) = [ " & Format(sbx, "##,###.00") & " ]", vbInformation, _
"Saberexcel - o site das macros"
[G3].Value = sbx
End Sub
Sub sbm_chamando_rotina()
sbm_somando_Rotina (sbx)
End Sub
'limpar célula para repetir o teste
Sub sbm_limpar_teste()
[G3].ClearContents
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.
.
Adicionado em: | 26/11/2011 |
Modificado em: | 26/11/2011 |
Tamanho: | Vazio |
Downloads: | 1722 |
Escola SaberExcel VBA Estudos® - Treinamento com Macros, Fórmulas e Funções
Esses macros do Aplicativo Microsoft Excel VBA, verifica a última linha desloca duas linhas abaixo e insere total dos valores das colunas(D e F), como também a diferença entre os totais dos dois valores verificados.
Sub sbx_soma_coluna()
Dim vContador As Integer
Dim vTotal, fTotal As Long
If Left([c65000].End(xlUp).Value, 2) = "To" Then 'observe o macro abaixo
MsgBox ("Total já inserido"), vbInformation, "saberexcel - o site das macros"
Else
For vContador = 2 To Saber1.Range("D65000").End(xlUp).Row
vTotal = vTotal + Range("D" & vContador)
Next vContador
For vContador = 2 To Saber1.Range("F65000").End(xlUp).Row
fTotal = fTotal + Range("F" & vContador)
Next vContador
[d65000].End(xlUp).Offset(2, 0).Value = Format(vTotal, "##,###.00")
[d65000].End(xlUp).Offset(0, 2).Value = Format(fTotal, "##,###.00")
[d65000].End(xlUp).Offset(0, -1).Value = "Total...:"
xb = [d65000].End(xlUp).Value - [f65000].End(xlUp).Value
[D50000].End(xlUp).Offset(2, 2).Value = xb ', "##,###.00")
[d65000].End(xlUp).Offset(2, 0).Value = "Diferença.:"
End If
Saber1.Shapes("oct").Visible = True
End Sub
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
'Essse macro vai verificar os dois últimos valores (soma total) inserido pelos macros e os deleta
Sub sbx_limpar_teste()
[c65000].End(xlUp).Offset(0, 0).Value = ""
For i = 1 To 2
[f65000].End(xlUp).Offset(0, 0).Value = ""
[d65000].End(xlUp).Offset(0, 0).Value = ""
Next i
Saber1.Shapes("oct").Visible = False
End Sub
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Sub sbx_busca_valores_esquerda()
x = Left("Vtotal", 2)
MsgBox x
End Sub
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Sub sbx_apagar()
Plan1.Range("D2:F2").Select
Selection.End(xlUp).Offset(2, 0).Clear
End Sub
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Sub busca_parte_da_string_ultima_celula() 'somente para o teste e treinamento
'x = [c65000].End(xlUp).Value
[c65000].End(xlUp).Select
If Left(ActiveCell, 2) = "To" Then
MsgBox ("To")
Else
MsgBox ("sai")
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.
.
Adicionado em: | 12/12/2011 |
Modificado em: | 12/12/2011 |
Tamanho: | Vazio |
Downloads: | 1020 |
Saberexcel - o site de quem precisa aprender Macros Microsoft Excel VBA
Esse procedimento do Aplicativo Microsoft Excel VBA(visual Basic Application), insere uma soma automaticamente ao digitar na coluna(B),
observe que também que ao deletar um determinado número na colund(D) o valor é automaticamente atualizado, devido o uso da propriedade cells.
Espero que o exemplo possa lhe ser útil. Fique com Deus, Expedito Marcondes.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim vTotal As Double
Dim vUltimaLinha As Long
'tres maneiras de localizar a última linha
vUltimaLinha = Cells(Cells.Rows.Count, "D").Row
'vUltimaLinha = Cells(Rows.Count, "D").Row
'vUltimaLinha = Plan1.Range("A65000").End(xlUp).Row 'esse linha de código não atualiza a deleção de dados.(subtrair o que foi deletado)
If Not Application.Intersect(Range("D1:D" & vUltimaLinha), Target) Is Nothing Then
vTotal = Application.WorksheetFunction.Sum(Range("D1:D" & vUltimaLinha))
[F3].Value = vTotal
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.
Adquira já o Acesso Imediato
à Area de Membros
Aprenda Excel VBA com Simplicidade de
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.
'-------------------------------------'
Entrega Imediata:
+ 500 Video Aulas MS Excel VBA
+ 35.000 Planilhas Excel e VBA
+ Coleção 25.000 Macros MS Excel VBA
+ 141 Planilhas Instruções Loops
+ 341 Planilhas WorksheetFunctions(VBA)
+ 04 Módulos Como Fazer Excel VBA
+ Curso Completo MS Excel VBA
+ Planilhas Inteligentes
<script type="text/javascript"><!--
google_ad_client = "ca-pub-2317234650173689";
/* retangulo 336 x 280 */
google_ad_slot = "0315083363";
google_ad_width = 336;
google_ad_height = 280;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
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