Acesso Livre - Registrados (REGISTRE-SE!)
Adicionado em: | 28/11/2010 |
Modificado em: | 28/11/2010 |
Tamanho: | Vazio |
Downloads: | 876 |
Saberexcel - o site das macros
Essa Função do Aplicativo Microsoft Excel VBA, exibe uma soma de determinado intervalo de células, mesma finalidade da Função Soma do Aplicativo Excel
Function SSOMAX(Valor_Cel As Range)
Dim rnCell As Range
Application.Volatile
For Each rnCell In Valor_Cel
If Not (rnCell.Rows.Hidden Or rnCell.Columns.Hidden) Then
If IsNumeric(rnCell.Value) Then
SSOMAX = SSOMAX + rnCell.Value
End If
End If
Next rnCell
End Function
Sub plan_calc()
Saber1.Calculate
End Sub
Aprenda tudo sobre Aplicativo Microsoft Excel VBA - com SaberExcel
Adicionado em: | 28/02/2014 |
Modificado em: | 28/02/2014 |
Tamanho: | Vazio |
Downloads: | 893 |
Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções
Este Macro e Procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application), realiza uma soma automaticamente ao digitar na coluna(b),
retorna a soma na celula(c2). usando o evento Worksheet_Change 'ao escrever, alterar' celulas em area especifica.
Private Sub Worksheet_Change(ByVal Target As Range)
x = Range("c" & Rows.Count).End(xlUp).Row
If Not Intersect(Range("C2:C" & x), Target) Is Nothing Then
sbx_somar_valores
End If
End Sub
'
Sub sbx_somar_valores()
Dim i As Integer
For i = 2 To Cells(Rows.Count, "c").End(xlUp).Row + 1
tSoma = tSoma + Cells(i, "c").Value
Next i
[e2].Value = tSoma
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.
Adicionado em: | 06/04/2013 |
Modificado em: | 06/04/2013 |
Tamanho: | Vazio |
Downloads: | 1069 |
Escola Saberexcel VBA Estudos - Treinamentos com Macros, Fórmulas e Funcoes
Esse macro do aplicativo Microsoft excel VBA, chamado por um Evento_Change da folha de planilha, isto é, ao escrever 'digitar',
na folha de planilha em coluna determinada pelo procedimento, acumula os valores em variavel e retorna para célula (C3)
somando automaticamente ao digitar.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([c4:c500], Target) Is Nothing And Target.Count = 1 Then
somar_questao_1
End If
End Sub
Sub sbx_somar_questao_1()
Dim i As Long
Dim tSoma As Double 'se houver decimais
For i = 4 To Plan1.Cells(Rows.Count, "c").End(xlUp).Row
tSoma = tSoma + Cells(i, "c").Value
Next i
Cells(3, 3).Value = tSoma
End Sub
'//============= SEGUNDA QUESTÃO ==============='
Esse macro responde a sua segunda questão que Deleta a linha da célula ativa,
e insere um contador, mantendo-o na forma original.
Sub sbx_deletar_linhas_questao_2()
Dim i As Long
'deletar linhas da célula ativa
'msgbox pergunta
x = MsgBox("Deseja deletar a linha celula da ativa " & ActiveCell.Address & " ?", vbYesNo, "titulo qualquer")
If x = 6 Then ' 6 = sim
ActiveCell.EntireRow.Delete
End If
'contador para repor o contador
For i = 5 To 50
Cells(i, "c").Value = (i - 4)
Next 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.
Baixe o exemplo de planilha contendo os macros e procedimento acima:
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
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