トップ　>　汎用コード　>　数式を文字列として表示

Sub Formula_Value() '数式を文字列として表示する
    Dim objRange As Range
    For Each objRange In Selection
        With objRange
            .Value = "'" & .Formula
        End With
    Next
End Sub

Sub Value_Formula() '文字列としての数式を数式に戻す
    With Selection
        .Formula = .Value
    End With
End Sub