Реферат Розробка додатків на мові VBA в середовищі MS EXCEL з обробки даних для заданих об'єктів

f

Write # 1, A (i, j)

Next j

Next i

Close # 1

MsgBox ("Матриця A записана у файл file1")

Call InitS

Sheet2.Visible = xlSheetVisible

Sheet1.Activate

Call Init

End Sub

Sub Button4_Click () 'Скасувати

Sheet2.Visible = xlSheetVisible

Call InitS

Sheet1.Activate

Call Init

End Sub

Sub Button5_Click ()

Call InitS

Sheet3.Visible = xlSheetVisible

Sheet1.Activate

Call Init

End Sub

Sub OutA () 'Висновок результату на екран

For i = 1 To n

For j = 1 To n

Sheet4.Cells (i + 3, j) = A (i, j)

Next j

Next i

MsgBox

End Sub

В 

Sub getA () 'введення матриці з файлу

For i = 1 To n

For j = 1 To n

If Sheet3.Visible = xlSheetHidden Then

MsgBox ("Введіть матрицю А з файлу ")

Else

If Sheet3.Cells (i + 3, j) = "" Then

A (i, j) = 0 'заповнення матриці з клавіатури

Else

A (i, j) = Sheet3.Cells (i + 3, j)

End If

End If

Next j

Next i

End Sub

Створення кнопок ОК, СКАСУВАННЯ, заповнення матриці у файл, а також виведення результатів на екран.

І, нарешті, за допомогою функції rab, ми проробляємо всі види обробки.

Sub rab1 (n As Variant)

Call getA

Sheet4.Activate

Call InitS

Sheet4.Range ("H3") = "Середнє значення елементів по рядках"

Sheet4.Range ("G4 & q uot ;) = "Рядок "

Sheet4.Range ("I4") = "Xcp"

For i = 1 To n

s = 0

Sheet4.Cells (i + 4, 7) = i

For j = 1 To n ...