помогите переделать прогу... только последнюю часть... (я уже обращалась с этой прогой, только по другому вопросу..) вобщем она даёт сл. числа (столбец), фильтрует располагает по возрастанию . стоит матрицу... элементы расположены параллельно побочной диагонали.... НУЖНО ПЕРЕДЕЛАТЬ ЧАСТЬ ПРОГИ КОТОРАЯ СТРОИТ МАТРИЦУ, ЧТОБЫ ЭЛЕМЕНТЫ РАСПОЛАГАЛИСЬ ПАРАЛЛЕЛЬНО ГЛАВНОЙ ДИАГОНАЛИ... ПОМОГИИИИТЕЕЕ плиииз... (прога с кнопками... но тут всё нормально....она)


Private Sub CommandButton2_Click()
Dim D1 As Double
Dim D2 As Double
Dim j As Integer
Dim i As Integer
D1 = InputBox("D1")
D2 = InputBox("D2")
Randomize
For i = 1 To 20
For j = 1 To 1
лист1.Cells(i, j).Value = CInt((D2 - D1 + 1) * Rnd + D1)
Next j
Next i
End Sub
---------------------------------------------------------------------------------------
Private Sub CommandButton3_Click()
Max = лист1.Cells(1, 1)
For i = 2 To 20
If лист1.Cells(i, 1) > Max Then
Max = лист1.Cells(i, 1)
End If
Next i
k = 1
For i = 1 To 20
If лист1.Cells(i, 1) < Max / 7 And лист1.Cells(i, 1) > Max / 3 Then
лист1.Cells(k, 5) = лист1.Cells(i, 1)
k = k + 1
End If
Next i
End Sub
--------------------------------------------------------------------------------------
Private Sub CommandButton4_Click()

For i = 1 To 19
For j = (i + 1) To 20

If лист1.Cells(i, 1) > лист1.Cells(j, 1) Then
temp = лист1.Cells(i, 1)
лист1.Cells(i, 1) = лист1.Cells(j, 1)
лист1.Cells(j, 1) = temp
End If
Next j
Next i


End Sub
---------------------------------------------------------------------------------------
Private Sub CommandButton1_Click()
k = 1
N = Int(InputBox("введите размер матрицы N", "ввод данных"))
For i = 1 To N
For j = 1 To i
лист2.Cells(i - j + 1, j) = лист1.Cells(k, 1)
k = k + 1
Next j
Next i
For i = (N + 1) To (2 * N - 1)
For j = 1 To 2 * N - i
лист2.Cells(N + 1 - j, j + i - N) = лист1.Cells(k, 1)
k = k + 1
Next j
Next i
End Sub

Т.Е. надо переделать только эту часть... остальое менять ничего не нужно! помогите пожалуйста дурочке!! БУДУ ОЧЕНЬ БЛАГОДАРНА!!!! ОЧЕНЬ НУЖНО!!! НУ НЕ ПОНИМАЮ Я ЭТОГО АЛГОРИТМА С МАТРИЦЕЙ!!!!! ЕСЛИ МОЖНО СКОММЕНТАРИЯМИ...