Visual Basic for Applications. Практика. Нагина Е.К - 28 стр.

                      Arr(8, 1) = Arr(j, 1)
                      Arr(8, 2) = Arr(j, 2)
                      Arr(j, 1) = Arr(z, 1)
                      Arr(j, 2) = Arr(z, 2)
                      Arr(z, 1) = Arr(8, 1)
                      Arr(z, 2) = Arr(8, 2)
                  End If
             Next z
        Next j
 ' Помешение фактических динамических показателей в
очередную строку таблицы 2.3
        For j = 2 To 8
           Cells(i + 21, Arr(j - 1, 2) + 1) = j - 1
        Next j
 ' Вычисление коэффициента корреляции для текущей строки
        Work = 0
           For j = 2 To 8
             Work = Work + (Cells(50, j) – _
 Cells(i + 21, j)) ^ 2
           Next j
           Cells(i + 21, 9) = 1 - 6 * Work / k1
    Next i
End Sub

Private Sub CommandButton4_Click()
 ' Очистка таблицы 2.2
    Range("B30:H34").Clear
End Sub

Private Sub CommandButton5_Click()
 ' Очистка таблицы 2.3
    Range("B51:I55").Clear
End Sub

Private Sub UserForm_QueryClose(Cancel As _
         Integer, CloseMode As Integer)
    If CloseMode = 0 Then
        Cancel = True
        MsgBox "Так закрыть окно нельзя!"
    End If
End Sub




                           28