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

Функции работы с матрицами окна 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 Su b

Свойство	Описание
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	Возвращает содержимое диапазона в текстовом формате

Дата добавления: 2014-12-23