Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Программироание VBA. Надо написать программу, в которой есть функция . Функция принимает массив . Она сортирует массив (числа ) по возрастанию . После надо вывести полученный результат на печать

Ответ оставил Гость

Private Sub CommandButton1_Click()
    Dim n As Integer, R As Range
    n = Cells(1, 4).Value
    Set R = Range(Cells(5, 2), Cells(4 + n, 2))
    MySort R.Offset(0, -1), R
End Sub

Private Sub MySort(RFrom As Range, RTo As Range)
На самом деле сто лет она тут не нужна, глупо придумано задание
    RFrom.Copy RTo
    RTo.Sort RTo.Range(Cells(1, 1), Cells(1, 1))
End Sub

Файл MS Excel 2003 во вложении.