Home Excel - Downloads / Areas Restritas Excel VBA - WorksheetFunctions

Excel VBA - WorksheetFunctions

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Descendente ]

    Excel wkfuncao min retorna a menor data em range Excel wkfuncao min retorna a menor data em range

    popular!
    Adicionado em: 23/12/2010
    Modificado em: 23/12/2010
    Tamanho: Vazio
    Downloads: 2233

    Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), usando a funcao de planilha [WorksheetFunction.Min()], retorna a menor data em um determinado intervalo de células. As WorksheetFunctions são usadas para retornar valores em a necessidade de inserir Fórmulas.
    Mas neste caso fizemos um exemplo que retorna a Wkfuncao e também a função min() em uma fórmula na planilha, mostrando a caixa de dialogo da de ajuda da referida função.


    Sub vba_retorna_menor_data_range()
    'dimensão da variável
    Dim vData As Date
    'retorna a data mínima em determinado range atribuido pela variável dData
    vData = Application.WorksheetFunction.Min(Worksheets(1).Range("A1:A3"))
    [C6].Value = "Wkfunction retorna a menor data na range(A1:A3): [" & vData & "]"
    'Exibe a data armazenda pela função de planilha min()
    MsgBox "Exibindo a menor data da range(A1:A3): " & Chr(13) & vData, _
    vbInformation, "Saberexcel.com - o site das macros"

    'checando a seleção de datas para 1904 do sistema
    If Application.ThisWorkbook.Date1904 Then
    'converter data-base de 1904 a 1900, data-base
    vData = DateSerial(Year(vData) + 4, Month(vData), Day(vData) + 1)
    'mostra a conversão da data
    MsgBox "Data convertida" & Chr(13) & vData
    Else
    MsgBox "1904 sistema de data não está habilitado", vbInformation, "Mensagem do Sistema"

    End If
    On Error Resume Next
    Worksheets("Plan1").Range("C4").Formula = "=MINA(R[-2]C[-2]:RC[-2])"

    [C4].Select

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

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

    Sub ver()
    Dim resposta As String
    resposta = MsgBox("Deseja visualizar macro no módulo VBE?", vbYesNo + vbInformation, "Saberexcel - o site das macros")

    If resposta = vbYes Then
    Application.Goto reference:="vba_retorna_menor_data_range"
    Else
    Plan1.Shapes("sb").Visible = True
    End If

    End Sub

    Sub oc()
    Plan1.Shapes("sb").Visible = False
    End Sub


    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application) com SaberExcel



    vba wkfuncao contse horas retorna ocorrencias intervalo horas vba wkfuncao contse horas retorna ocorrencias intervalo horas

    popular!
    Adicionado em: 23/12/2010
    Modificado em: 23/12/2010
    Tamanho: Vazio
    Downloads: 779

    Saberexcel - site das macros
    Essa macro do
    Aplicativo Microsoft Excel VBA, retorna o número de ocorrências em determinado intervalo de horas, neste caso específico usamos o intervalo de horas das 9:00 Horas às 10:00 Horas.
    ''------------------------------------------------'
    ' Expedito Marcondes '
    ' Site...:
    http://www.saberexcel.com
    ' 'E_mail.:
    [email protected] '
    '------------------------------------------------'
    Public Sub contar_ocorrencia_horas_intervalos()
    Dim wks As Worksheet
    Dim vContador As Long

    Set wks = ActiveSheet
    limpar
    'mensagem estática para o tempo de 9 às 10 horas:
    MsgBox "De : [ 9 ] até [10] : " & (WorksheetFunction.CountIf(wks.Columns(2), ">=09:00:00") - _
    WorksheetFunction.CountIf(wks.Columns(2), ">=10:00:00")) & " Ocorrencias"

    'Com um loop de 24 horas.
    'cada hora a contagem de ocorrências na coluna B e para fazer o teste
    'mude o horario mas preservando o formato

    For vContador = 0 To 23
    wks.Cells(vContador + 2, 4) = "De : [ " & vContador & " ] até [" & vContador + 1 & " ]"

    wks.Cells(vContador + 2, 5) = _
    (WorksheetFunction.CountIf(wks.Columns(2), ">=" & vContador & ":00:00") - _
    WorksheetFunction.CountIf(wks.Columns(2), ">=" & vContador + 1 & ":00:00"))
    wks.Cells(vContador + 2, 6).Value = "Ocorrencias"

    Next vContador

    Set wks = Nothing
    End Sub

    Sub limpar()
    [D2:F25].ClearContents
    End Sub

    Sub ver_shapes()

    Saber1.Shapes("sb").Visible = True
    End Sub

    Sub oc()
    Saber1.Shapes("sb").Visible = False
    End Sub

    Sub visualizar_modulo_vbe()
    Dim resposta As String
    resposta = MsgBox("Deseja visualizar as macros no módulo VBE", vbYesNo, "Saberexcel - o site das macros")
    If resposta = 6 Then
    Application.Goto reference:="contar_ocorrencia_horas_intervalos"
    End If
    End Sub



    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel



    Baixe o exemplo de planilha contendo as macros acima




    Publicidade:
    Compre tudo que precisar com garantia, segurança e ótimos preços

    Esporte & Lazer - Submarino.com.br

    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

     

    Excel planilha vba wkf soma subtrai e busca dados Excel planilha vba wkf soma subtrai e busca dados

    popular!
    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
    Eletrônicos - Submarino.com.br

    Excel planilha wkf vba arrendonda para baixo Excel planilha wkf vba arrendonda para baixo

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

    Página 2 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