Question

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

Answer 1

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 во вложении.

ca34b02e27e6cd82b95f7edd938fa4f6.xls

Answer 2

Что за глупый вопрос? Где-то было написано, что нужен ввод с клавиатуры? Все, что в задании не оговорено, пишется так, как человек сочтет нужным.

Answer 3

Запустил я ваш файл .При запуск программы мне выдает окно , где написано Macros , Macros name .....

Answer 4

Вы что, никогда с VBA не работали? Наверняка же стоит запрет на выполнение макросов...

Answer 5

Разрешен

Answer 6

Я там Вам личное сообщение написал