Добрый день форумчане. Подскажите пожалуйста, существует ли какая-нибудь формула для преобразования формулы в ячейке в ее значение. В примере в столбце "D" мы видим формулу "сцепить". В столбце "E" мы видим текст, который я преобразовал из столбца "D", где была формула "сцепить"
Я применял конструкцию "вставка-значение", но хотелось бы это делать сразу формулой, если конечно это возможно.
Прошу помощи. Спасибо.
Добрый день форумчане. Подскажите пожалуйста, существует ли какая-нибудь формула для преобразования формулы в ячейке в ее значение. В примере в столбце "D" мы видим формулу "сцепить". В столбце "E" мы видим текст, который я преобразовал из столбца "D", где была формула "сцепить"
Я применял конструкцию "вставка-значение", но хотелось бы это делать сразу формулой, если конечно это возможно.
Подскажите, пожалуйста, правильно ли я Вас понял, что после нажатия enter в ячейке E2 с предполагаемой формулой, сама формула должна исчезать, а в ячейку должен результат вычисления, как текст?
Подскажите, пожалуйста, правильно ли я Вас понял, что после нажатия enter в ячейке E2 с предполагаемой формулой, сама формула должна исчезать, а в ячейку должен результат вычисления, как текст?Stanislav0523
Подскажите, пожалуйста, правильно ли я Вас понял, что после нажатия enter в ячейке E2 с предполагаемой формулой, сама формула должна исчезать, а в ячейку должен результат вычисления, как текст?
Подскажите, пожалуйста, правильно ли я Вас понял, что после нажатия enter в ячейке E2 с предполагаемой формулой, сама формула должна исчезать, а в ячейку должен результат вычисления, как текст?
Не совсем понятно в таком случае, в чем заключается оптимизация. Таким образом Вы не сможете протягивать формулу, Вам придется вставлять её в каждую ячейку.
В качестве решения осмелюсь предложить следующее:
[vba]
Код
Sub PasteIfENG() PasteAs End Sub
Sub PasteIfRUS() PasteAs End Sub
Private Sub PasteAs() If Application.CutCopyMode = xlCopy Then Selection.PasteSpecial Paste:=xlPasteValues End If End Sub
[/vba] Далее необходимо будет назначить удобные Вам клавиши через Макросы = > Параметры... Например q/й
Не совсем понятно в таком случае, в чем заключается оптимизация. Таким образом Вы не сможете протягивать формулу, Вам придется вставлять её в каждую ячейку.
В качестве решения осмелюсь предложить следующее:
[vba]
Код
Sub PasteIfENG() PasteAs End Sub
Sub PasteIfRUS() PasteAs End Sub
Private Sub PasteAs() If Application.CutCopyMode = xlCopy Then Selection.PasteSpecial Paste:=xlPasteValues End If End Sub
[/vba] Далее необходимо будет назначить удобные Вам клавиши через Макросы = > Параметры... Например q/йStanislav0523
Сообщение отредактировал Stanislav0523 - Пятница, 08.07.2016, 11:09