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

       Этот коэффициент ранговой корреляции вычисляется по каждому
фактическому динамическому ряду, в сравнении с нормативным динами-
ческим рядом, приведенным в строке 50 табл. 2.3 на рис. 2.2.
       Результаты расчета коэффициента Спирмэна по годам заносятся в
блок ячеек I51 ÷ I55 табл. 2.3. По значениям коэффициента корреляции
Спирмэна строится график, отражающий динамику изменения данного ко-
эффициента, который приведен на рис. 2.2.
       Порядок создания приложения следующий:
       Создается форма с двумя вкладками, на каждой из которых распо-
ложены по две кнопки с названиями: «Очистить» и «Заполнить». Эта фор-
ма располагается на рабочем листе Excel и используется для запуска про-
цедур с помощью этих кнопок.
       Ниже приведен листинг программного кода приложения, автомати-
зирующего процедуру оценки действующей финансово-экономической
стратегии и построения графика.

Private Sub CommandButton1_Click()
 ' Заполнение таблицы 2.2
Dim i, j As Integer
    For j = 2 To 8
     For i = 8 To 12
        Cells(i+22,j) = Round(Cells(i,j) / _
          Cells(i-1,j) * 100, 2)
     Next i
    Next j
   End Sub
Private Sub CommandButton2_Click()
 ' Заполнение таблицы 2.3
 Dim i, j, z As Integer
    Dim Work, k1 As Variant
    Dim Arr(1 To 8, 1 To 2)     ' Массив для сортировки
данных строк
    k1 = 7 ^ 3 - 7 ' 7 – количество рангов в ряду
    For i = 30 To 34
 ' Помещение i-й строки в массив Arr
        For j = 1 To 7
           Arr(j, 1) = Cells(i, j + 1)
           Arr(j, 2) = j
        Next j
        ' Сортировка массива Arr
        For j = 1 To 6
             For z = j + 1 To 7
                 If Arr(j, 1) < Arr(z, 1) Then
                                  27