ВУЗ:
Составители:
Рубрика:
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
Страницы
- « первая
- ‹ предыдущая
- …
- 26
- 27
- 28
- 29
- 30
- …
- следующая ›
- последняя »