Математическая формула в Office

Напишем небольшой скрипт и статью, которая позволяет включать в офисные приложения формулы в формате LaTeX.

LaTeX -  наиболее популярный набор макрорасширений (или макропакет) системы компьютерной вёрстки.

Часто используется для написания  химических, математических  и других формул.

Что мы хотим сделать для Вас, как для пользователя?

Несомненно, Вы умеете создавать на онлайн сервисах, да вот хотя бы здесь, математическую формулу и потом обычным копированием/вставкой внедрять в Word или Excel.

Какой основной недостаток  такого подхода?

Кроме  лишних телодвижений, Вы еще получаете статическую формулу.

Ах, как было бы здорово, если бы при изменении данных в ячейках, прорисовывалась бы математическая формула  с уже подставленными значениями.

Данные изменили,  изменилась и формула.

Напишем небольшой макрос в Excel

Sub Макрос1()
aa = Selection.Text
  Dim myPict As Picture
  For Each myPict In ActiveSheet.Pictures
      myPict.Delete
  Next myPict
  
Dim rCell As Range
    For Each rCell In ActiveSheet.UsedRange
If rCell.Interior.ColorIndex <> xlNone Then rCell.Offset(0, 1).Select: ActiveSheet.Pictures.Insert (imga + rCell.Text)
     Next
 
End Sub

Напишем формулы в формате LaTeX в ячейках, как  показано на скриншоте

 

выделим ячейки каким нибудь цветом, так как скрипт обрабатывает формулы только в раскрашенных ячейках.

и выполним макрос ( в моем случае это Ctrl+Q), получим

Интересна первая формула отображающая непрерывную дробь, по заданным переменным

Изменив переменные и нажав Ctrl+q, мы получим  графическую формулу уже  с другими значениями.

 

Удачных расчетов и диссертаций! 

 

Поиск по сайту