Реферат: Разработка приложений на языке VBA в среде MS EXCEL по обработке данных для заданных объектов

For i = 1 To m + 2

For j = 1 To m

ActiveSheet.Cells(i + 2, j) = ""

Next j

Next i

End Sub

Sub Button3_Click() ' ОК

n = Sheet2.Range("R2")

Open "C:\file1" For Output As #1

Write #1, n

For i = 1 To n

For j = 1 To n

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

A(i, j) = 0

Else

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

End If

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