Home Excel - Downloads / Areas Restritas Excel VBA - Operadores Matematicos

Excel VBA - Operadores Matematicos

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Ascendente ]

    vba operadores matematicos calcula potencia vba operadores matematicos calcula potencia

    popular!
    Adicionado em: 26/01/2011
    Modificado em: 26/01/2011
    Tamanho: Vazio
    Downloads: 755

    Saberexcel - site das macros

    Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), calcula a potência de um número, com auxílio de dois objetos de entrada de dados InputBox, pegamos a entrada de dados do número da Base para cálculo e outra inputox para a potenciação desejada.
    usamos para isso duas variáveis que guardará na memória os números para os cálculos. veja abaixo. também no final da página poderá baixar o exemplo de planilha com a macro abaixo.



    Sub Calcula_Potencia()

    Dim Base As Integer
    Dim Potencia As Integer
    Dim Resultado As Integer
    Dim Contador As Integer

    On Error Resume Next


    Base = InputBox("Digite a Base da Potência:", "Calculando potênciação - Insira Base Cálculo", 1234)
    Potencia = InputBox("Digite a Potência que pretende elevar", "Calculando Potenciação - insira a potência para cálculo", 345)

    Resultado = 1 ' inicialização da variável
    For Contador = 1 To Potencia Step 1
    Resultado = Resultado * Base
    Next

    MsgBox "Número [ " & Base & " ] elevado a [ " & _
    Potencia & "ª ] potência - Resultado.: [ " & Resultado & " ]", vbInformation, "SaberExcel - site das macros"

    End Sub


    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application),sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel

    vba operacoes matematicas com variaveis e resultados vba operacoes matematicas com variaveis e resultados

    popular!
    Adicionado em: 07/01/2011
    Modificado em: 07/01/2011
    Tamanho: Vazio
    Downloads: 997

    Saberexcel - o site das macros

    Macro do Aplicativo Microsoft Excel VBA, retornam valores baseados em operadores matemáticos.
    Os valores retornados são baseados em valores contidos nas células [A1] e [A2]

    Sub resultado_Operacoes()
    Dim num1 As Integer
    Dim num2 As Integer
    Dim resposta1, resposta2, resposta3, resposta4, resposta5, resposta6 As String

    num1 = Range("A1").Value
    num2 = Range("A2").Value

    limpar

    resposta1 = num1 + num2 ' o resultado é soma A1+A2
    resposta2 = num1 - num2 ' o resultado é subtração A2-A2
    resposta3 = num1 * num2 ' o resultado é multiplicação A1*A2
    resposta4 = num1 / num2 ' o resultado é divisão A1/A2
    resposta5 = num1 ^ Range("a1").Value ' o resultado é raiz quadrada de A1
    resposta6 = Range("A2").Value ^ num2 ' o resultado é potencia de A2

    'aqui vamos retornar mensagem do resultado das operações matemática, porém, vamos concatenar valores e textos.

    MsgBox "resposta da soma é : " & [A1] & " + " & [A2] & " =" & " [ " & resposta1 & " ]", vbInformation, "Saberexcel.com"
    Range("C1") = "resposta da soma é.....:" & resposta1

    MsgBox "resposta da subtração de : " & [A1] & " - " & [A2] & " =" & " [ " & resposta2 & " ]", vbInformation, "Saberexcel.com"
    Range("C2") = "resposta da subtração é: " & resposta2

    MsgBox "resposta da multiplicação de : " & [A1] & " x " & [A2] & " =" & " [ " & resposta3 & " ]", vbInformation, "Saberexcel.com"
    Range("C3") = "resposta da multiplicação é: " & resposta3

    MsgBox "resposta da subtração de : " & [A1] & " : " & [A2] & " =" & " [ " & resposta4 & " ]", vbInformation, "Saberexcel.com"
    Range("C4") = "resposta da divisão é: " & resposta4

    MsgBox "resposta do quadrado de : [" & [A1] & " " & [A2] & "]² =" & " [ " & resposta5 & " ]", vbInformation, "Saberexcel.com"
    Range("C5") = "resposta do quadrado é: " & resposta5

    MsgBox "resposta da Potencia de : [ " & [A1] & " " & [A2] & "] =" & " [ " & resposta6 & " ]", vbInformation, "Saberexcel.com"
    Range("C6") = "resposta da potência de A2 é: " & resposta6

    End Sub

    Sub limpar()
    Range("C1:C10").ClearContents
    End Sub




    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA, sozinho, praticando com os produtos didáticos Saberexcel



    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