Программироание VBA. Надобно написать программку, в которой есть функция . Функция

Откуда в VBA вывод на печать? VBA обменивается данными или с листом рабочей книжки Excel, или читает с клавиатуры и выводит на экран по одному извещению в окно.

Если устроит размен с листом рабочей книжки, напишу программку.

Устроет хоть какой вывод :)

Alviko , пожалуйста , помогите мне .

Готово. И сейчас вдруг выяснится, что "нам так не рассказывали" ))

В Экселе не надо писать свою сортировку, он это и так умет делать.

Программка не работает ...

Не забавно даже. Она не может не работать, поскольку в Экселе все проверено и выложена прямо сама таблица. Как следует, Вы что-то не так сделали.

Только что вспять скачал из вложения, запустил - все работает, как из пушки.

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)
' На самом деле 100 лет она здесь не нужна, неразумно придумано задание
    RFrom.Copy RTo
    RTo.Sort RTo.Range(Cells(1, 1), Cells(1, 1))
End Sub

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