Тригонометрические функции: « sin, cos, tg, ctgи т.д.».
Скобки: «(..)». Пример: Sub formula4() 'Объявляем документ Dim Doc As Document 'Создаем новый документ Set Doc = New Document 'Делаемегоактивным Doc.Activate
'Объявляем переменные Dim a As Single, b As Single, x As Single 'Объявляем переменную, в которой будет содержаться код формулы Dim formula As String
'Присваеваем значение переменным a = 2: b = 4 x = (a / b) ^ 2 'В переменную заносим код формулы formula = "x=(a/b)^2=(" & a & "/" & b & ")^2=" & x
'Объявляем объект – диапазон objRange Dim objRange As Range 'Объявляем объкт objEq, как формулу Dim objEq As OMath
'Устанавливаем объект objRange, как выделенную часть документа. В нашем случае место под курсором Set objRange = Selection.Range 'свойству text объекта objRange присваиваем код формулы objRange.Text = formula 'преобразуем объект objRange в математическую формулу Set objRange = Selection.OMaths.Add(objRange) 'создаем объект objEq, образуя его из объекта objRange Set objEq = objRange.OMaths(1) 'Преобразуем формулу из линейного вида к профессиональному objEq.BuildUp End Sub После выполнения данной программы будет создан новый документ со следующей формулой: Тригонометрические функции: « sin, cos, tg, ctgи т.д.». Пример: Sub formula5() 'Объявляем документ Dim Doc As Document 'Создаем новый документ Set Doc = New Document 'Делаем его активным Doc.Activate
'Объявляем переменные Dim a As Single, b As Single, x As Single 'Объявляем переменную, в которой будет содержаться код формулы Dim formula As String
'Присваеваем значение переменным a = 0: b = 0 x = sin(a) * cos(b) 'В переменную заносим код формулы formula = "x=sin a · cos b=" & sin(a) & "·" & cos(b) & "=" & x
'Объявляем объект – диапазон objRange Dim objRange As Range 'Объявляем объкт objEq, как формулу Dim objEq As OMath
'Устанавливаем объект objRange, как выделенную часть документа. В нашем случае место под курсором Set objRange = Selection.Range 'свойству text объекта objRange присваиваем код формулы objRange.Text = formula 'преобразуем объект objRange в математическую формулу Set objRange = Selection.OMaths.Add(objRange) 'создаем объект objEq, образуя его из объекта objRange Set objEq = objRange.OMaths(1) 'Преобразуем формулу из линейного вида к профессиональному objEq.BuildUp End Sub После выполнения данной программы будет создан новый документ со следующей формулой: 6. Модуль: Пример: Sub formula6() 'Объявляем документ Dim Doc As Document 'Создаем новый документ Set Doc = New Document 'Делаем его активным Doc.Activate
'Объявляем переменные Dim a As Single, b As Single, x As Single 'Объявляем переменную, в которой будет содержаться код формулы Dim formula As String
'Присваеваем значение переменным a = -3: b = 4 x = Abs(a * b) 'В переменную заносим код формулы formula = "x=|a·b|=" & " | " & a & "·" & b & " | " & "=" & x
'Объявляем объект – диапазон objRange Dim objRange As Range 'Объявляем объкт objEq, как формулу Dim objEq As OMath
'Устанавливаем объект objRange, как выделенную часть документа. В нашем случае место под курсором Set objRange = Selection.Range 'свойству text объекта objRange присваиваем код формулы objRange.Text = formula 'преобразуем объект objRange в математическую формулу Set objRange = Selection.OMaths.Add(objRange) 'создаем объект objEq, образуя его из объекта objRange Set objEq = objRange.OMaths(1) 'Преобразуем формулу из линейного вида к профессиональному objEq.BuildUp End Sub После выполнения данной программы будет создан новый документ со следующей формулой:
Популярное: Организация как механизм и форма жизни коллектива: Организация не сможет достичь поставленных целей без соответствующей внутренней... Почему стероиды повышают давление?: Основных причин три... Генезис конфликтологии как науки в древней Греции: Для уяснения предыстории конфликтологии существенное значение имеет обращение к античной... Как вы ведете себя при стрессе?: Вы можете самостоятельно управлять стрессом! Каждый из нас имеет право и возможность уменьшить его воздействие на нас... ©2015-2024 megaobuchalka.ru Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. (178)
|
Почему 1285321 студент выбрали МегаОбучалку... Система поиска информации Мобильная версия сайта Удобная навигация Нет шокирующей рекламы |