Студопедия

КАТЕГОРИИ:


Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748)

Пример использования объекта SpreadSheet в проектах VB.




End Sub

End Sub

Объектная модель MS Excel. Свойства, методы, события объекта WorkSheet

Свойство Описание
ActiveCell Возвращает активную ячейку рабочего листа
Visible Если True то лист отбражается
WorkSheets Возвращает семейство всех рабочих листов
Событие Описание
Activate Происходит при активации рабочего листа
Deactivate Происходит, когда лист теряет фокус
Change Происходит при изменениях на листе
Метод Описание
Activate Активизирует рабочий лист н-р WorkSheets("Лист 1").Activaite или WorkSheets(1).Activaite
Add Создает новый лист для семейства Sheetsн-р WorkSheets.Add
Protect Unprotect Защищает рабочий лист от внесения изменений или снимает защиту н-рActiveSheet.Project.Password:="Звезда"
Delete Удаляет рабочий лист

40. Методы класса WorkSheetFunction объектной модели MS Excel. Пример на вычисление выражения.

Метод Описание
Activate Активизирует рабочий лист. Например, WorkSheets(“Лист1”).Activate или WorkSheets(1).Activate

Пример. В проекте VB вычислить выражение, используя офисное приложение MS Excel.VB имеет ограниченное количество стандартных функций, чего нельзя сказать об MS Excel. В MS Excel имеется специальный класс WorkSheetFunction, содержащий все функции, доступные через окно VBA, например, гиперболические и обратные функции, функции нахождения обратных и транспонированных матриц, получения случайных чисел различных законов распределения и т.д.

Private Sub Command1_Click()

Dim F As String, b As String, Res As Double, OE As Object

'СоздаемOLE -объект

Set OE = CreateObject ("Excel.Application")

p# = OE. WorkSheetFunction.Pi 'Получаем значение числа π

'Преобразуем запятую у числа π в точку

s$ = Replace (CStr (p), ",", ".")

F = Text1 & "*" & s'вWindows XP

Res= OE. Evaluate (F)

Text2 = Res

OE. Quit

Set OE = Nothing'Удаление объекта

Private Sub Form_Load()

Caption="Пример на OLE Automation":Text2 = ""

Command1.Caption = "Вычислить":Text1.TabIndex = 0

Text1 = " sinh (0.5* acos (0.7)-5* asin (0.8)+8)"'исходное выражение


др.способ решения примера заключается в исп-ии в проекте VB дополнительного компонента SpreadSheet,находящегося в контейнере компонента MS Office Web

Components 11.0 загружаемого на панель ToolBox клмандой Project\Components/

Private Sub Command1_Click() Видимость объекта на форме

SpreadSheet1.Visible=Not SpreadSheet1.visible

End Sub

Private Sub Command2_Click() Вычисление выражения sinh(0.5*acos(0.7)-5*asin(0.8)+8) считывание выражения

Выражение$=SpreadSheet1.ActiveCell.Value Вычисление выражения

Result=SpreadSheet1.Evaluate(Выражение) Определение адреса ячейки ниже активной

AddrRes=SpreadSheet1.ActiveCell.Offset(1,0).Address Вывод строки

SpreadSheet1.Range(AddRes).Value="Результат=" Определение адреса ячейки ниже и правее активной

AddrRes=SpreadSheet1.ActiveCell.Offset(1,1).Address Вывод результата

SpreadSheet1.Range(AddrRes).Value=Result

End Sub

 





Поделиться с друзьями:


Дата добавления: 2014-12-23; Просмотров: 713; Нарушение авторских прав?; Мы поможем в написании вашей работы!


Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет



studopedia.su - Студопедия (2013 - 2024) год. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав! Последнее добавление




Генерация страницы за: 0.012 сек.