Как я могу получить текст, определяющий формулу Excel для одной ячейки в другую ячейку?

Question

Другими словами, если значение ячейки, скажем, A1, равно =Date() , то в ячейке A1 отображается дата, но я хочу, чтобы B1 было =FuncText(A1) , тогда я хочу увидеть ' Дата ()'отображается в ячейке B1.

Чтобы подчеркнуть, я хочу видеть текст «Date ()», то есть шесть символов, заканчивающиеся на «)» в B1.

Answer 1

Быстро и просто. Вам нужно будет сделать пользовательскую функцию, чтобы сделать это ... но это выполнимо:

http://dmcritchie.mvps.org/excel/formula.htm

Answer 2

В ячейке B1 напишите =A1

Таким образом, вы увидите дату ячейки A1 в ячейке B1 тоже

Обновлено согласно вашей информации:-

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

Выход:

В ячейке B1 возвращается как "= Date()"

Но если вы хотите точно так же, как «Date ()», используйте функцию ниже

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