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