Home Excel - Downloads / Areas Restritas Excel VBA - WorksheetFunctions

Excel VBA - WorksheetFunctions

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Ascendente ]

    wkf procv e soma ret valores desejados intervalo wkf procv e soma ret valores desejados intervalo

    popular!
    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



    V
    BA(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

     

    vba worksheetfunction soma valores range nomeadas em plans diferentes vba worksheetfunction soma valores range nomeadas em plans diferentes

    popular!
    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



    vba worksheetfunction maximo retorna maior valor e celula vba worksheetfunction maximo retorna maior valor e celula

    popular!
    Adicionado em: 02/12/2010
    Modificado em: 02/12/2010
    Tamanho: Vazio
    Downloads: 844

    Saberexcel - o site das macros
    Um grande fantasma que assombra os meus amigos iniciantes programadores e futuros desenvolvedores é como localizar dados em uma folha de planilha, referenciá-los, localizá-los e dar uma saída para uma determinada célula em determinada folha de planilha.

    Essa matéria usando a propriedade WorkseetFunction, Desloc(Offset), instrução Set e usar variáveis para localizar o final de uma determinada coluna, linha ou região de células é muito importante no aprendizado em desenvolvimento de planilhas automatizadas no Microsoft Excel VBA.

    Estou desenvolvendo Planilhas inteligentes e será disponibilizadas nos módulos COMO FAZER, se Deus permirtir, que será de grande utilidade no aprendizado e desenvolvimento lógico de como lidar com macros e automatizar planilhas ms excel.

    Neste exemplo tentei fazer algo mais para brincar com as macros para que você que esta tentando entender como funciona esses procedimentos que deslocam valores determinados para onde desejarmos, com esse conhecimento, com certeza aumentará e muito o grau de entendimento em desenvolvimento de planilhas o que faz falta para muitos que estão no mercado de trabalho precisando apresentar seus relatorios.

    Observe que aqui, usamos variáveis para instrução set , com isso referenciamos a determinada folha de planilha, como também células e ou região de células (range).

    Usamos a WorksheetFunction para retornar determinados valores, lembrando que o excel tem (+_) 340 funções para retorno de dados.
    já fizemos os exemplos woksheetFunctions vba e fórmulas , que estão disponível no site.

    brincando com macros veja essa:
    - Iinicia deletando uma planilha de dados existente e inserindo outra com o mesmo nome.
    - Localiza em outra folha de planilha os valores maximo e mínimo e insere nesta nova planilha em determinados lugares(celulas-predefinidas)
    - Insere um cabeçalho com altura de linhas e largura de colunas pré-definidas
    - Insere uma mensagem com quebra de linhas retornando valores desejados.
    - Variáveis localizam final da linha para servir como referencia em busca de dados.

    Bom.. Espero que possa ajudá-lo em alguma coisa..
    Fique com Deus, Boa Sorte.
    E_Marcondes


    Sub Aprender_brincando()
    Application.DisplayAlerts = False
    Worksheets("Dashboard").Delete 'deletar a planilha DashBoard existente
    On Error GoTo 0 'tratando erro

    Set WSD = Worksheets("Dados") 'referenciando a planilha Dados
    Set WSL = ActiveWorkbook.Worksheets.Add 'adicionando uma nova planilha
    WSL.Name = "Dashboard" 'nomeando a planilha

    FinalLinha = WSD.Cells(1, 1).CurrentRegion.Rows.Count ' localizando a area usada a partir da célula(a1)
    WSD.Cells(2, 4).Resize(FinalLinha - 1, 3).Name = "Meus_Dados"

    WSL.Select

    'com finalidade didática vamos inserir um cabeçalho um cabeçalho na linha(A) da planilha Dashboard

    With WSL.Range("B1:E1")
    .Value = Array(2007, 2008, 2009, 2010)
    .HorizontalAlignment = xlCenter
    '.Style = "Title"
    .ColumnWidth = 39 'largura das colunas
    .Offset(1, 0).RowHeight = 100 ''altura das linhas
    End With

    'A Instrução Set é para fazermos uma referencia a determinado ítem
    ' alguns usam o termo 'setar' ou referenciar determinadas células para retornar as worksheetFunction


    Set WF = Application.WorksheetFunction
    vMinimo = WF.Min(WSD.Range("D2:F" & FinalLinha))
    vMaximo = WF.Max(WSD.Range("D2:F" & FinalLinha))
    Cells(3, 2).Value = "VALORES : MAXIMO E MÍNIMO" 'inserindo dados na célula b3

    'veja que os dois pontos(:) na frente do código significa (linha de baixo)
    [A17] = Int(vMinimo): [A17].Offset(0, 1).Value = "Mínimo"

    ActiveCell.Offset(3, 1).Value = Int(vMinimo) & " --- MINIMO"

    'veja que os dois pontos(:) na frente do código significa (linha de baixo)
    [A18] = Int(vMaximo + 0.9): [A18].Offset(0, 1).Value = "Máximo" 'ACRESCENTANDO 0.9
    ActiveCell.Offset(4, 1).Value = Int(vMaximo) & " --- MAXIMO"

    'observe que com o que voce aprendeu acima,
    'voce poderá dar a saída para qualquer célula de qualquer planilha
    '& vbCrLf & =(quebra de linhas na mensagem)
    MsgBox "Acabamos de Deletar uma planilha" & vbCrLf & _
    "- Inserimos uma nova planilha chamada Dashboard e nesta planilha: " & vbCrLf & _
    "- localizamos determinadas células e inserimos resultado maximo e mínimo" & vbCrLf & _
    "- Inserimos um cabeçalho na nova planilha através de um Array()" & vbCrLf & _
    "- Inserimos determinada largura em colunas e altura em linhas" & vbCrLf & _
    "_____________" & vbCrLf & _
    "Valores Máximo : " & vMinimo & vbCrLf & _
    "Valores Mínimo : " & vMaximo & vbCrLf & _
    "______________________________" & vbCrLf & _
    "Saberexcel - o site das macros", vbInformation, "Aprendendo brincando com macros - Saberexcel"
    End Sub


    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - com Saberexcel




    Baixe o exemplo de planilha contendo a macro



    Publicidade:
    Compre com segurança, bons preços, garantia nas lojas SubMarino

    Cine & Foto - Submarino.com.br

    vba worksheetfunction desvpadp calcula desvio padrao base populacional vba worksheetfunction desvpadp calcula desvio padrao base populacional

    popular!
    Adicionado em: 03/12/2010
    Modificado em: 03/12/2010
    Tamanho: Vazio
    Downloads: 881

    Saberexcel - o site das macros
    Essa macro do Aplicativo Microsoft Excel VBA, retorna a função DesvPadP de uma determinada amostragem, neste caso usamos os valores contidos no intervalo de células (D1:D6). Minha intenção neste exemplo é ensinar aos que não sabem como retornar uma função através do Visual Basic Application, inserindo uma fórmula e retornando o valor diretamenta para a célula desejada da referida função.
    Observem que usei uma linha de código, também com intenção didática, que verifica os valores contidos na coluna D, e retorna o valor da Função diretamente para um célula desejada, neste caso usei como exemplo a célula (A1). vamos destacar essa linha de código.

    ' Cells(1, 1).Formula = Application.WorksheetFunction.StDevP(Range("D1", [D1].End(xlDown)))


    Quero que saiba que é extremamente importante para o aprendizado Aplicativo Microsoft Excel VBA, o aluno(desenvolvedor) aprender a localizar dados em determinados intervalos de células desejados em determinada Folha de Panilha e retornar um valor desejado.
    Pretendo num futuro bem próximo fazer um tutorial com esse conhecimento, para ajudá-los a esclarecer sobre esse assunto que muito vasto e importantissimo no aprendizado.
    (*) ESSE EXEMPLO DE PLANILHA FAZ PARTE DAS 340 PLANILHAS QUE RETORNAM TODAS AS FUNÇÕES DO EXCEL VIA MS EXCEL VBA

    Sub cxa_dialogo_worksheetFunction_DesvPadP()
    On Error Resume Next
    Dim vRange As Range
    Set vRange = Worksheets("Plan1").Range("d1:d6")

    FuncaoDesvPadP = Application.WorksheetFunction.StDevP(vRange)
    MsgBox FuncaoDesvPadP 'retorna 67840,42

    'Cells(1, 3).Formula = Application.Max(Range(Cells(1, 1), Cells(1, 2)))

    'observe que aqui estamos retornando o valor diretamente para célula(A1)
    Cells(1, 1).Formula = Application.WorksheetFunction.StDevP(Range("D1", [D1].End(xlDown)))

    Worksheets("Plan1").Range("B5").Formula = "=StDevP(D1:D6)"

    [B5].Select

    Application.Dialogs(xlDialogFunctionWizard).Show
    On Error GoTo 0
    [D1].Select
    End Sub

    Sub limpar_teste()
    [C4].ClearContents
    [D1].Select
    End Sub


    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel





    Publicidade:
    Lojas SubMarino - compre com qualidade, segurança e ótimos preços
    Cine & Foto - Submarino.com.br

    vba worksheetfunction desvpadp calcula desvio padrao base populacional vba worksheetfunction desvpadp calcula desvio padrao base populacional

    popular!
    Adicionado em: 03/12/2010
    Modificado em: 03/12/2010
    Tamanho: Vazio
    Downloads: 816

    Saberexcel - o site das macros
    Essa macro do Aplicativo Microsoft Excel VBA, retorna a função DesvPadP de uma determinada amostragem, neste caso usamos os valores contidos no intervalo de células (D1:D6). Minha intenção neste exemplo é ensinar aos que não sabem como retornar uma função através do Visual Basic Application, inserindo uma fórmula e retornando o valor diretamenta para a célula desejada da referida função.
    Observem que usei uma linha de código, também com intenção didática, que verifica os valores contidos na coluna D, e retorna o valor da Função diretamente para um célula desejada, neste caso usei como exemplo a célula (A1). vamos destacar essa linha de código.

    ' Cells(1, 1).Formula = Application.WorksheetFunction.StDevP(Range("D1", [D1].End(xlDown)))


    Quero que saiba que é extremamente importante para o aprendizado Aplicativo Microsoft Excel VBA, o aluno(desenvolvedor) aprender a localizar dados em determinados intervalos de células desejados em determinada Folha de Panilha e retornar um valor desejado.
    Pretendo num futuro bem próximo fazer um tutorial com esse conhecimento, para ajudá-los a esclarecer sobre esse assunto que muito vasto e importantissimo no aprendizado.
    (*) ESSE EXEMPLO DE PLANILHA FAZ PARTE DAS 340 PLANILHAS QUE RETORNAM TODAS AS FUNÇÕES DO EXCEL VIA MS EXCEL VBA

    Sub cxa_dialogo_worksheetFunction_DesvPadP()
    On Error Resume Next
    Dim vRange As Range
    Set vRange = Worksheets("Plan1").Range("d1:d6")

    FuncaoDesvPadP = Application.WorksheetFunction.StDevP(vRange)
    MsgBox FuncaoDesvPadP 'retorna 67840,42

    'Cells(1, 3).Formula = Application.Max(Range(Cells(1, 1), Cells(1, 2)))

    'observe que aqui estamos retornando o valor diretamente para célula(A1)
    Cells(1, 1).Formula = Application.WorksheetFunction.StDevP(Range("D1", [D1].End(xlDown)))

    Worksheets("Plan1").Range("B5").Formula = "=StDevP(D1:D6)"

    [B5].Select

    Application.Dialogs(xlDialogFunctionWizard).Show
    On Error GoTo 0
    [D1].Select
    End Sub

    Sub limpar_teste()
    [C4].ClearContents
    [D1].Select
    End Sub


    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel





    Publicidade:
    Lojas SubMarino - compre com qualidade, segurança e ótimos preços
    Cine & Foto - Submarino.com.br

    Página 1 de 3

    PROMOÇÃO DIDÁTICOS SABEREXCEL



    Adquira já o Acesso Imediato
    à Area de Membros

    Compra Grantida --- Entrega Imediata

    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


    Pesquisa Google SaberExcel

    Publicidade Google

    <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>

    Publicidade

    RSFirewallProtected


    Google Associados

    Depoimentos

    Adicione Saberexcel Favoritos

     
     

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

    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