Как изменить код VBA для сортировки, минуя метод "Debug.Print"?

Узнай цену своей работы

Формулировка задачи:

Здравствуйте! Прошу помощи. Есть интересная тема Сортировка двумерного массива, срочно Исправил в коде (автор:

gaw

) метод "Print" на "Debug.Print", картинка ниже. Теперь хочу, чтобы всё напрямую отображалось на "Лист 1" в Эксель, без "Debug.Print" Как исправить код? Как правильно указать смещение, желательно, чтобы результаты находились не параллельно исходнику, а вертикально, т. е. на несколько строк ниже исходника.

Решение задачи: «Как изменить код VBA для сортировки, минуя метод "Debug.Print"?»

textual
Листинг программы
Sub gavSort()
Dim a(6, 6), b(6, 6)
'--------------------
ActiveSheet.UsedRange.EntireRow.Delete
Cells.Clear
For i = 1 To 6
For j = 1 To 6
a(i, j) = Int(Rnd * 10) - 5
Cells(i, j) = a(i, j)
b(i, j) = a(i, j)
Next j
Next i
 
For j = 1 To 6
  For i = 1 To 6
    For k = i To 6
     If b(i, j) > b(k, j) Then
     tmp = b(i, j): b(i, j) = b(k, j): b(k, j) = tmp
     End If
    Next k
 Next i
Next j
 
For i = 1 To 6
   For j = 1 To 6
       Cells(i, j + 8) = b(i, j)
    Next j
Next i
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 3.6 из 5
Похожие ответы