Как изменить код 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д