можно ли формулу добавить на панель инструментов?

[АННА-ЕАО]

Здравствуйте.

В связи с тем, что я почти каждый день использую одну и ту же готовую формулу (,а бывает и несколько раз на день) возник такой вопрос, можно ли формулу добавить на панель инструментов или создать надстройку и добавить её? Поискала в интернете, нашла вот что:
http://office.microsoft.com/ru-ru/ex..._equation_edit

Но толи у меня не получается, толи это совсем не то, что мне требуется. У меня вставляются значки с формулой, но просто в текст.
Если кто может, помогите, пожалуйста.


Я вложила файл это то что у меня в итоге получается, а вернее не получается.

[EducatedFool]

Что мешает использовать программу типа PuntoSwitcher для ускорения ввода часто встречающегося текста (в т.ч. и формул)?

http://www.planetaexcel.ru/forum.php?thread_id=29843




Не совсем понял, что из этого надо вставлять...


Зачем вам объект Microsoft Equation для формул Excel????

[VictorM]

Аналогичный вопрос возник как-то тоже.
Решил может и неправильно, но работает))
В рабочем листе надстройки, которая у меня подключена постоянно, в ячейку записал нужную формулу, написал три строки кода, копирования формулы из листа надстройки в активную книгу, активную ячейку, повесил все это дело на кнопочку...
Все работает))

[АННА-ЕАО]

EducatedFool мне нужно всавить формулу:

=ПРОСМОТР(9999;--ПСТР(A3;ПОИСК("N";A3)+1;{1;2;3;4}))

VictorM если можно напишите поподробней как Вы это сделали?
Я тоже хочу пусть и неправильно, но чтоб работало.

[VictorM]

Так, собственно, подробнее уже нечего вроде)))
Сделайте видимыми листы постоянно подключенной Вашей надстройки IsAddin = False
Затем на любом листе, в любую ячейку запишите эту формулу
В модуле кода надстройки напишите простейший макрос типа

Sub Макрос2()
    Workbooks("MasterCdBar.xla").Sheets("Формулы").[a5].Copy
    ActiveSheet.Paste
End Sub

Присвойте выполнение макроса кнопке на панели инструментов Вашей надстройки.
Все, можно работать.

[АННА-ЕАО]

VictorM Спасибо обязательно попробую.

[VictorM]

Кстати, все вышеописанное, если вам нужна всего одна формула, можно заменит простым макросом в надстройке

Sub Макрос3()
ActiveCell.FormulaLocal = "=ПРОСМОТР(9999;--ПСТР(A3;ПОИСК(""N"";A3)+1;{1;2;3;4}))"
'или, если пишет формулу с ошибкой
ActiveCell.FormulaLocal = "'=ПРОСМОТР(9999;--ПСТР(A3;ПОИСК(""N"";A3)+1;{1;2;3;4}))"
End Sub

Просто у меня таким образом вызывается несколько формул.
Длинных и нудных))

[АННА-ЕАО]

VictorM Спасибо.

[vikttur]

Ctrl+F3 (меню Вставка-Имя-Присвоить). В окошко формулы вашу формулу, в окошко имени - имя (например, ф). В ячейку вписываете
=ф

Возможно, при беглом просмотре неправильно понял.