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

UptoLike

Составители: 

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
                      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