none
Excel RRS feed

Respostas

  • Marcos,

    Uma das soluções seria fazer uma macro que cole o valor de A1 em B1, mas colando apenas a fórmula (colar especial), sendo que B1 deve ser, obrigatoriamente, do tipo texto. Abaixo uma idéia de como seria a macro:

    Sub Macro1()

    ' Copia o valor de A1 (que nesse momento é "15) e cola a fórmula de A1 em B1. A saída será  ' "=5+5+5"

        Range("A1").Select
        Selection.Copy
        Range("B1").Select
        Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
        Application.CutCopyMode = False
        ActiveCell.FormulaR1C1 = "=5+5+5"
    End Sub

    Claro que é necessário ajustar essa macro para atender suas espectativas da melhor forma possível.


    Tiago Pratti

    quarta-feira, 7 de março de 2012 21:13

Todas as Respostas

  • Olá Marcos,

    Veja se com o exemplo abaixo resolve o seu problema.

    Espero ter ajudado.


    Hezequias Vasconcelos de Lima MCITP - MCT - MCTS - MCP. Consultor SharePoint / EPM / PPM / Consultar Transcript: https://mcp.microsoft.com/authenticate/validatemcp.aspx Transcript ID: 843062 Code:hezequias01

    terça-feira, 7 de fevereiro de 2012 20:56
    Moderador
  • Hezequias, a somatória: 5+5+6+3 encontra-se numa unica célula.

    Mesmo assim obrigado pela ajuda.

    Marcos

    terça-feira, 7 de fevereiro de 2012 21:00
  • Marcos,

    Nesta situação basta incluir o sinal de igual "=" na frente dos valores que você informou.

    Sem o sinal de igual o Excel entende esses valores como textos e não realiza cálculos.

    Caso você obrigatóriamente tenha que exibir esses valores em uma célula digite os valores sem o sinal de igual e na outra célula realize o cálculo.

    Espero ter ajudado.


    Hezequias Vasconcelos de Lima MCITP - MCT - MCTS - MCP. Consultor SharePoint / EPM / PPM / Consultar Transcript: https://mcp.microsoft.com/authenticate/validatemcp.aspx Transcript ID: 843062 Code:hezequias01

    terça-feira, 7 de fevereiro de 2012 21:33
    Moderador
  • Hezequias, você entendeu exatamente o que eu preciso, mas preciso fazer isso de modo que eu digite apenas numa célula, e uma fórmula ou macro faça na outra. Essa aplicação se dá em memoria de calculo para orçamentos, ou seja, o calculo tem de ser exibido. Tentei com o "mostrar fórmula", mas este recurso aumenta a largura das células desconfigurando a impressão.

    Valeu, obrigado!

    Marcos

    quarta-feira, 8 de fevereiro de 2012 17:25
  • Marcos,

    Nesta situação basta incluir o sinal de igual "=" na frente dos valores que você informou.

    Sem o sinal de igual o Excel entende esses valores como textos e não realiza cálculos.

    Caso você obrigatóriamente tenha que exibir esses valores em uma célula digite os valores sem o sinal de igual e na outra célula realize o cálculo.

    Espero ter ajudado.


    Hezequias Vasconcelos de Lima MCITP - MCT - MCTS - MCP. Consultor SharePoint / EPM / PPM / Consultar Transcript: https://mcp.microsoft.com/authenticate/validatemcp.aspx Transcript ID: 843062 Code:hezequias01

    Hezequias, bom dia!

    Conseguiu achar algum artificio para automatizar está operação conforme o comentário seguinte?

    MArcos

    quinta-feira, 9 de fevereiro de 2012 10:53
  • Interessantíssimo, Marcos Adauto.

    Provavelmente você vai usar isto em aula de matemática, não é?

    Bom, a solução é linda:

    Vamos pensar que sua expressão esteja em A1. Clique em B1 e acione a aba "Fórmulas", grupo "Nomes definidos", definir nomes. Escreva "resposta".

    Na caixa "Refere-se a" digite: =AVALIAR($A1)

    Confirme.

    Em B1 digite: =RESPOSTA

    Não adianta tentar =AVALIAR(A1) direto em B1. Só "worka" com nomes ... E n hora de salvar, precisa salvar como .XLSM


    quarta-feira, 22 de fevereiro de 2012 22:49
  • Marcos,

    Uma das soluções seria fazer uma macro que cole o valor de A1 em B1, mas colando apenas a fórmula (colar especial), sendo que B1 deve ser, obrigatoriamente, do tipo texto. Abaixo uma idéia de como seria a macro:

    Sub Macro1()

    ' Copia o valor de A1 (que nesse momento é "15) e cola a fórmula de A1 em B1. A saída será  ' "=5+5+5"

        Range("A1").Select
        Selection.Copy
        Range("B1").Select
        Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
        Application.CutCopyMode = False
        ActiveCell.FormulaR1C1 = "=5+5+5"
    End Sub

    Claro que é necessário ajustar essa macro para atender suas espectativas da melhor forma possível.


    Tiago Pratti

    quarta-feira, 7 de março de 2012 21:13