Учебные материалы по математике | Пример использования объекта spreadsheet в проектах vb | Matematiku5
Вузы по математике Готовые работы по математике Как писать работы по математике Примеры решения задач по математике Решить задачу по математике online

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


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

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

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

Res= OE.Evaluate(F)

Text2 = Res

OE.Quit

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

End Sub

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)"’исходное выражение

End Sub

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

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

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

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

42. Функции работы с матрицами окна VBA Excel. Пример решения системы линейных уравнений.

Решить систему линейных уравнений вида АХ=В

Для простоты примем, что количество уравнений не будет более девяти. Элементы матриц А я В заполним случайными веществен­ными числами. Тогда, очевидно, матрица А не будет вырождена. Чтобы получить неизвестные переменные вектора X, необходимо преобразовать систему к следующему виду: Х=АЛВ, то есть получить обратную матрицу А, а затем умножить ее на вектор В.

Класс WorkSheetFunction содержит следующие функции для работы с матрицами: ММи1т.(ЛД) — осуществляет перемножение матриц А к В, MInverse(4) — находит обратную (А’) матрицу, Transposed) — осуществляет транспонирование (Аг) матрицы, MDeterm(/l) — вычисляет определитель матрицы.

Private Sub Form_Load()

Caption = "Работа с матрицами"

CommandlCaption = "Решить АХ=В"

Textl =""

Text2 =""

Text3 =""

End Sub

Private Sub Command1_Click()

Dim a(10, 10) As Double, b(10) As Double, s As String, p As Double Dim ObjExcel As Object

Set ObjExcel = CreateObjectfExcel. Application") ‘Создать объект COM n% = 1при1Вох("Введите порядок системы ЛУ, не более 9") ‘Задаем свойства рабочей книги и листа

With ObjExcel

.WorkBooks. Add ‘Создать Книгу

.ActiveSheet. Name = "Матрицы" ‘Присвоить имя для листа — Матрицы .Visible = False ‘Сделать Excel невидимым

.DisplayAlerts = False ‘Запретить отображение окна сохранения

End With

For i% = 1 To n ‘Циклы формирования элементов матриц и

For j% = 1 То п ‘отображения их в ячейках Листа (свойство Cells)

a(i, j) = Rnd*10 + 1

s = s + Format(a(i, j), "#0.000") + vbTab

ObjExcel. Cells(i, j) = a(i, j) Next j

s = s + vbCrLf

Next i

Textl = s ‘Отображение элементов матрицы А в поле Textl

s =""

For i% = 1 To n

b(i) = Rnd*10 + 1

s = s + Format(b(i), "#0.000") + vbCrLf

ObjExcel. Cells(i, 10) = b(i) Next i

‘Отображение элементов матрицы В в поле Text3 Text3 = s With ObjExcel

‘Выводим элементы вектора X, начиная с ячейки А10 и вниз.

‘Объект Range задает диапазон ячеек, а его свойство Cells — адрес

‘ячейки в формате R1C1 (то есть: R-row, С — column). Свойство Value —

‘устанавливает или возвращает значение в ячейках диапазона. .Range(.Cells(10, 1), .Cells(9 + n, 1)).Value = .MMult(.MInverse(.Range _

(.Cells(1, 1), ,Cells(n, n))), .Range(.Cells(1, 10), .Cells(n, 10))) End With s ="" For i% = 1 To n

‘В цикле считываем значения из ячеек и помещаем их в строку р = ObjExcel. Cells(10 + i -1, 1).Value s = s + Format(p, "#0.000") + vbCrLf Next i

‘Отображение элементов вектора X в поле Text2 Text2 = s ObjExcel. Quit Set ObjExcel = Nothing End Sub

43. Свойства объекта Range объектной модели MS Excel.

Свойство

Описание

Value

Возвращает (помещает) значение из ячейки или в ячейки диапазона. В примере x=Range(“C1”).Value присваивается значение в переменную x из ячейки C1, а в примере Range(“A1:B2”).Value=1 в диапазон вводится 1

Name

Возвращает (вводит) имя диапазона. В следующем примере Range(“A1:B2”).Name=”Итоги” диапазону “A1:B2” присваивается имя ”Итоги”

Count

Возвращает число объектов в наборе. В примере переменной x присваивается значение, равное числу строк диапазона A1:B2 : x=Range(“A1:B2”).Rows. Count

CurrentRegion

Возвращает число строк текущего диапазона, ограниченного пустыми строками и столбцами и содержащего ячейку. В следующем примере переменной n присваивается значение, равное числу строк в текущем диапазоне, содержащем ячейку A1: n=Range(“A1”).CurrentRegion. Rows. Count

Formula

Возвращает (вводит) формулу в формате A1. Например, в ячейку C2 введена формула =A4+B5: Range(“C2”).Formula=”=A4+B5”

FormulaArray

Возвращает (вводит) формулу диапазона в формате A1. В отличие от обыкновенной формулы рабочего листа, формула диапазона вводится на листе не посредством нажатия на клавишу Enter, а с помощью комбинации клавиш Ctrl+Shift+Enter. Например, в диапазон E1:E3 введена формула {=Sum(A1:A3* A1:A3)} : Range(“E1:E3”).FormulaArray=”=Sum(A1:A3* A1:A3)”

FormulaR1C1

Возвращает (вводит) формулу в формате R1C1. Например, Range(“B2”).FormulaR1C1=”=sin(R3C2)”

Text

Возвращает содержимое диапазона в текстовом формате

44. Методы объекта Range объектной модели MS Excel. Примеры.

1)Address

возвращает адрес яч-ки. имеет ряд параметров RowAbsolute и ColumnAbsolute исп-ся для абсолютной сслыки на строку и столбец ReferenceStyle задает фомат яч-ки одним из значений xIR1C1 и xIA1(по умолчанию).н-р Cells(1,1)Address() возвращает адрем $A$1; Cells(1,1).Address(RowCAbsolute:=False) Возвращает адрес $A1 Cells(4,3).Address(REferenceStyle:=xLR1C1) возвращает адрес R4C3

2)OffSet

Возвращает диапазон, смещенный относительно данного на величину, указанную в аргументах. н-р OffSet(RowOffset:=3,columnOffset:=-2).Activate Активизируется ячейка, расположенная на 3 строки ниже и на 2 слотбца левее от-но текущей активной яч-ки

3)Clear

Очищает диапазон

4)DataSeries

Создает прогрессию. имеет ряд параметров rowCol-задает направление прогрессии по строкам(xIRows) или по столбцам (xIColumns) ,Type-определяет тип прогрессии(xILinear-линейная, xIAutoFill-автозаполнения)date-определяет тип последовательности даты, если параметр Type=xIChronological(м. принимать значения xIDay, xIWeekDay, xIMonth, xIYear) step-шаг прогрессии(по умолчанию1)Stop-предельное значение прогрессии. н-р Range("A1").DataSeries rowCol:=xIRows, Type:=xILinear, Step:=1.5,stop:=5

5)AutoFill

автоматически заполняет яч-ки диапазона эл-ми последовательности. имеется 2 параметра Destination-диапазон, кот заполняется, и Type с возможными значениями xIFillDefault, xIFillCopy, xIFillSeries, xIFillFormats, xIFillValues, xIFillDays, xIFillWeekDay, WeekDayMonth, LinearTrend, xIFillGrowthTrend. н-р Range("A1:A2").AutoFill Destination:=Range("A1:A10"),type:=xIFillDefault

6)GoalSeek

подбирает значение параметра(неизвестной величины),являющиеся решением ур-ия с 1 переменной. предполагается, что правая часть яв-ся постоянной, не зависящей от параметра, кот входит только в левую часть ур-ия. имеется 2 параметра goal-знач прав части ур-я, Changingcell содержит ссылку на яч-ку с изменяющимся значением(приближением к искомому корню).н-р, если ввести в яч-ку "A1" начальное приближение к корню, равное 0,а в ячейку "A2" формулу =cos(A1), то, используя след-ую строку, м получить в ячейке "A1" значение корня, равного 1.570791, range("A2").GoalSeek goal:=0,Changingcell:=Range("A1")

7)Sort

выстраивает данные в лексографическом порядке по возоастанию или убыванию. он осущ-ет сортировку строк списков и баз данных, а так же столбцов рабочих листов с учетом до 3 критериев сортровки. имеет ряд параметров Key1-ссылка на 1 упорядочиваемое поле, Order1-задает порядок сортировки.(xIAscending-по возрастанию, xIDescending-по убыванию)Key2,Order2,Key3,Order3-аналогично. Header-определяет наличие в 1 строке диапазона заголовка (xIYes)или его отсутствие (xINo).MatchCase-учитывает наличие регистра(True)или его отсутствие(False) Orientation задает направление сортировки сверху вниз (xITopToBottom) или слева-направо (xILeftRight)

Наташа

Автор

Наташа — контент-маркетолог и блогер, но все это не мешает ей оставаться адекватным человеком. Верит во все цвета радуги и не верит в теорию всемирного заговора. Увлекается «нефрохиромантией» и тайно мечтает воссоздать дома Александрийскую библиотеку.

Распродажа дипломных

 Скидка 30% по промокоду Diplom2020