Como eu poderia obter o texto definindo uma fórmula do Excel para uma célula em outra célula?

Question

Em outras palavras, se o valor de uma célula, digamos A1, for =Date() , então exibido na célula A1, verei a data, mas, em seguida, quero que B1 seja =FuncText(A1) , então quero ver ' Data () 'exibida na célula B1.

Para enfatizar, quero ver o texto 'Date ()', ou seja, os seis caracteres que terminam com '' '' em B1.

    

Answer 1

Na célula B1 , escreva =A1

Assim, você verá a data da célula A1 na B1 célula também

Atualizado de acordo com suas informações: -

Function FuncText(fma As Range) 
    If fma.HasFormula Then 
        FuncText = fma.Formula 
    Else: FuncText = fma 
    End If 
End Function 

Saída:

Na célula B1 , retorna como "= Date ()"

Mas se você quiser exatamente como "Date ()" , use a função abaixo

Function FuncText(fma As Range)
    If fma.HasFormula Then
        FuncText = Mid(fma.Formula, 2, Len(fma.Formula))
    Else: FuncText = Mid(fma, 2, Len(fma))
    End If
End Function

    

Answer 2

Quick & simples. Você precisará criar uma função definida pelo usuário para fazer isso ... mas é possível:

link