Adicionado em: | 07/01/2011 |
Modificado em: | 07/01/2011 |
Tamanho: | Vazio |
Downloads: | 891 |
Saberexcel - O site das macros
ESSA PLANILHA FAZ PARTE DAS 340 PLANILHAS EXEMPLOS WORKSHEETFUNCTIONS
Esta macros do Aplicativo Microsoft Excel VBA, usando as WorksheetsFunctions, Funções de Planilhas, retornam as funções procv, que busca determinados valores e as exibe em uma msgbox e retornam para folha de planilhas, usei também a worksheetFunction Soma(sum) para retornar um cálculo de comissão referente à busca do procv, realizada com a wkfunction Procv(Lookup).
A finalidade das WorksheetFunctions é retornar valores, sem a necessidade de usar as fórmulas referente as funções. (Veja macro abaixo)
Você pode usar a Função PROCV para pesquisar a primeira coluna de um intervalo (intervalo: duas ou mais células em uma planilha. As células de um intervalo podem ser adjacentes ou não adjacentes.) de células e, em seguida, retornar um valor de qualquer célula na mesma linha do intervalo. Por exemplo, suponhamos que você tenha uma lista de funcionários contida no intervalo A2:C10. Os números de identificação dos funcionários são armazenados na primeira coluna do intervalo, como mostrado na ilustração a seguir.
Observem que a WorksheetFunction retorna a Função Procv e também a Função Soma, sem a necessidade de fórmulas , usando
VBA(Visual Basic Application)
Sub Funcao_de_planilha_procv()
Dim sb As String
Dim sbx As Variant
Dim vRange1 As Range
Dim vRange2 As Range
'configurando titulo da mensagem
sb = "Saberexcel - o site das Macros"
sbx = vbInformation
Set vRange1 = Worksheets("Plan1").Range("M14:M19")
Set vRange2 = Worksheets("Plan1").Range("N14:N19")
FuncaoProcv = Application.WorksheetFunction.Lookup([M1].Value, vRange1, vRange2)
'retornará o valor total de comissões em determinada célula na folha de planilha
MsgBox "Salário [ " & [M1] & " ] Faturou [R$ " & FuncaoProcv & " ]" & " comissões para receber :[ R$" & [D3].Value & " ]", sbx, sb
[D3].Value = Application.WorksheetFunction.Sum(Val(FuncaoProcv) * 0.15)
[D4].Value = [M1].Value & " Faturou : [ " & FuncaoProcv & " ] comissões para receber : [ R$ " & [D3].Value & " ]"
End Sub
'macro auxiliar usada para limpar os valores na realização do teste usuario
Sub limpar_teste()
[C4].ClearContents
[D1].Select
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - com Saberexcel
Adicionado em: | 10/11/2011 |
Modificado em: | 10/11/2011 |
Tamanho: | Vazio |
Downloads: | 933 |
Saberexcel - o site das macros microsoft Excel VBA
Esses procedimentos do aplicativo Microsoft Excel VBA ligados ao Evento de planilha WorsheetChange, insere soma de determinada planilha,
selecionada na lista Validação de Dados, esse valor é retornado pelo Evento Change e também, fiz um macro ligado a uma combobox (Ferramentas formulário), o mesmo macro retornando a soma de da coluna(1) de determinada Planilha.
Observe que para que o macro execute as somas fiz uso das poderosas WorksheetFunctions, "Funções de Planilha".
Não deixe de Ver nosso Trabalho com As WorkheetFunctions, são 340 Planilhas Worksheetfunctions exemplos vba para treinamentos.
Excel planilha wkf worksheetfunction funções de planilhas retornam valores vba
NO MODULO DA FOLHA DE PLANILHA (PLAN1) INSERIRA o procedimento com
o Evento Worksheet_Change
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$1" And Target.Count = 1 Then
X = Application.WorksheetFunction.Sum(Plan1.Range("A:A"))
b = Application.WorksheetFunction.Sum(Plan2.Range("A:A"))
d = Application.WorksheetFunction.Sum(Plan3.Range("A:A"))
e = Application.WorksheetFunction.Sum(Plan4.Range("A:A"))
If Target.Value = "Plan1" Then
Plan1.[C2].Value = X
ElseIf Target.Value = "Plan2" Then
Plan1.[C2].Value = b
ElseIf Target.Value = "Plan3" Then
Plan1.[C2].Value = d
ElseIf Target.Value = "Plan4" Then
Plan1.[C2].Value = e
End If
[c9].FormulaLocal = _
"=""Soma da Coluna(A) [ "" & C1 & "" ] Total....[ R$ "" &c2 & "" ]"""
[c12].Value = ""
[sbx].Value = ""
End If
End Sub
'- - - - - - - - - - - -
EM UM MÓDULO COMUM..
Usando os mesmos códigos acima fizemos um macro para ligá-lo a um combobox independente, usamos aqui um objeto combobox da barra de Ferramenta formulários.
Sub sbx_inserir_soma_planilhas_combobox()
X = Application.WorksheetFunction.Sum(Plan1.Range("A:A"))
b = Application.WorksheetFunction.Sum(Plan2.Range("A:A"))
d = Application.WorksheetFunction.Sum(Plan3.Range("A:A"))
e = Application.WorksheetFunction.Sum(Plan4.Range("A:A"))
If [alvo].Value = "Plan1" Then 'observque que renomeei uma célula na folha de planilha pelo nome de 'alvo' e outra 'sbx'
[sbx].Value = X
ElseIf [alvo].Value = "Plan2" Then
[sbx].Value = b
ElseIf [alvo].Value = "Plan3" Then
[sbx].Value = d
ElseIf [alvo].Value = "Plan4" Then
[sbx].Value = e
End If
[c12].FormulaLocal = _
"=""Soma da Coluna(A) [ "" & alvo & "" ] Total....[ R$ "" &sbx & "" ]"""
[c9].Value = ""
[C2].Value = ""
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: | 27/10/2011 |
Modificado em: | 27/10/2011 |
Tamanho: | Vazio |
Downloads: | 960 |
Saberexcel - o site de quem precisa aprender sobre Macros Microsoft Excel VBA
Essse macro do Aplicativo Microsoft Excel VBA, contendo a Função de Planilha (WorksheetFunction RoundDown e RoundUP), arredondar para cima e para baixo, arredonda determinado número decimal. "ESTA PLANILHA FAZ PARTE DAS 340 Planilhas WorksheetFunctions, Escola Saberexcel VBA - Treinamentos com Macros. Veja em nosso site a relação das Planilhas. Observem o poder das WorksheetFunctions no dia a dia trabalhando com Planilhas Automatizadas. Ler mais : Excel planilha wkf worksheetfunction funções de planilhas retornam valores vba
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -'
Sub wkf_arrendondar_numero_argumentos()
X = Application.WorksheetFunction.RoundDown([G9].Value, 1)
Y = Application.WorksheetFunction.RoundUp([G9].Value, 0)
Z = Application.WorksheetFunction.RoundUp([G9].Value, -1)
'vbCrLf - constante usada para combinação de retorno de carro–alimentação de linha (msgbox)
MsgBox "Arredonda valor..:[ " & Format([d], "##,###.##") & " ]" & _
vbCrLf & "Argumento 1.......: [ " & Format(X, "##,##.00") & " ]" & vbCrLf _
& "Argumento 0.......: [ " & Format(Y, "##,##.00") & " ]" & vbCrLf _
& "Argumento-1.......: [ " & Format(Z, "##,##.00") & " ]", vbInformation, _
"Saberexcel - o site das macros"
[E9].Value = "Valor"
[E10].Value = "Argumento 0"
[E11].Value = "Argumento 1"
[E12].Value = "Argumento -1"
[G10].Value = X
[G11].Value = Y
[G12].Value = Z
[G1].Select
End Sub
Sub Limpar_teste()
[a].ClearContents 'celulas renomeadas como 'a'
[d].Select 'celula renomeada como 'd'
End Sub
Pressione Alt + F11 para visualizar os macros
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -'
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: | 02/12/2010 |
Modificado em: | 02/12/2010 |
Tamanho: | Vazio |
Downloads: | 1094 |
Saberexcel - o site das macros
Essas macros do Aplicativo Microsoft Excel VBA, usam Funções de Planilhas para retornar uma determinada soma, como também somando valores em células em diferentes folhas de planilhas e retornando uma soma de um range nomeado de uma determinada folha de planilha com outra célula em outra folha de planilha. Esse exemplo tem finalidade didática para que voce possa aprender, isso é, se não souber, retornar valores de soma através do vba usando a Woksheetfunction, "Funções de Planilha" . Espero que lhe seja útil, Fiquem com Deus, --- E_Marcondes.
'modelo1
Sub WorksheetFunction_Soma_retorna_F1()
[G25].Value = "Esta macro soma as células Plan2(A1 + A7) e retorna na Plan1(F1)."
[G26].Value = ""
sb = WorksheetFunction.Sum(Worksheets("Plan2").Range(Worksheets("Plan2"). _
Range("A1"), Worksheets("Plan2").Range("A7")))
Plan1.[f1].Value = sb
MsgBox "WorkshSheetFunction Soma das celulas (Plan2(A1,A7))em F1= [ " & sb & " ]", vbInformation, "Saberexcel"
End Sub
'modelo2
Sub WorksheetFunction_soma_celulas_plans_diferentes()
[G25].Value = "Esta macro SOMA células Plan2(A1) + Plan2(A7), MULTIPLICA por 2 e DIVIDE por nove "
[G26].Value = "Observe a tabelinha ao lado - conferindo a macro!"
X = Worksheets("Plan2").Range("A1").Value
Y = Worksheets("Plan2").Range("A7").Value
Z = Worksheets("Plan1").Range("F1").Value
G = WorksheetFunction.Sum(X, Y, Z)
H = (G * 2 / 9) + 100
Plan1.[B1].Value = H
'MsgBox H, vbInformation, "Saberexcel"
MsgBox "WorksheetFunction.Soma, somando células(A1,A7,Plan1(F1)) = [ " & H & " ]", vbInformation, "Saberexcel"
End Sub
'modelo3
Sub WorksheetFunction_soma_range_nomeada()
[G25].Value = "Esta macro soma tres células na Plan2 = A1 + A7 + A8)" 'somente informações para orientação
[G26].Value = "Também soma a range nomeada (area1) + A7 " 'somente informações para orientação
With Worksheets("Plan2")
sbxSoma = WorksheetFunction.Sum(.Range(.Range("A1"), .Range("A7", "A8")))
sbySoma = WorksheetFunction.Sum(.Range("Area1"), .Range("A7"))
MsgBox "Soma celulas A1,A7,A8 Plan2 = [ " & sbxSoma & " ]", vbInformation, "Saberexcel"
MsgBox "Soma celulas Range(Area1) + Celula(A7) = [ " & sbySoma & " ]", vbInformation, "Saberexcel"
End With
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel
Adicionado em: | 26/05/2011 |
Modificado em: | 26/05/2011 |
Tamanho: | Vazio |
Downloads: | 1191 |
SaberExcel - O site de quem precisa Aprender Macros Microsoft Excel VBA
Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), retornam determinado soma e subtração usando as funções de planilhas, WorksheetFunctions, Soma() e Procv(), por meios de códigos VBA. Não deixe de ler sobre as 340 planilhas worksheetfunctions(VBA) - um exemplo para cada função do excel, retornam valores em o auxílio de fórmulas. Excel planilhas WorksheetFunctions Funções de Planilhas
Option Explicit
Sub Somando_com_funcoes_planilhas()
Cells(17, 5) = WorksheetFunction.Weekday(Range("B17")) 'retorna o número do dia da semana(ex:1(Dom),2(seg) 3(Ter)
Cells(19, 5) = WorksheetFunction.Sum(Range("A1:B10")) 'primeiro exemplo de soma com função de planiha
Cells(20, 5) = WorksheetFunction.Sum(Range(Cells(1, 1), Cells(10, 2))) 'segundo exemplo soma com função de planiha
Cells(21, 5) = WorksheetFunction.VLookup(Range("B21"), Range("D1:E3"), 2, False) 'realizando busca com funcao de planilha
MsgBox "Dados Inseridos com Sucesso! Celulas(E16:E23)", vbInformation, "Saberexcel - site das Macros"
End Sub
Sub Limpar_Teste()
[E16:E23].ClearContents
End Sub
Sub somar_subtrair()
Dim x, y As Long
[k7,L7].ClearContents
x = WorksheetFunction.Sum(Range("L1:L6"))
y = WorksheetFunction.Sum(Range("K1:K10"))
Cells(7, 12) = x 'WorksheetFunction.Sum(Range("L1:L6")) 'se usar o código no lugar variavel mesma coisa
Cells(7, 11) = y 'WorksheetFunction.Sum(Range("K1:K10")) 'se usar o código no lugar variavel mesma coisa
'Cells(7, 12) = WorksheetFunction.Sum(Range("L1:L6")) - WorksheetFunction.Sum(Range("K1:K10"))
Cells(8, 12) = x - y
[N1].Value = " Soma e subtração realizada com sucesso!"
End Sub
Sub Limpar_teste_somar_subtrair()
[K7,L7,L8,N1].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 Saberexcel
Publicidade
Compre com segurança, garantia e ótimos preços
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