VBA закончить сортировщик
Формулировка задачи:
Вообщем надо закончить сортровщик по неубыванию и по невозрастию. При выборе 1 брал подпрограмму Sort1 и т.д.
Заранее спасибо!
===========================================
Решение задачи: «VBA закончить сортировщик»
textual
Листинг программы
Function Sort1() MsgBox "Выбран Sort1 - по неубыванию" End Function Function Sort2() MsgBox "Выбран Sort2 - по невозрастию" End Function Function NaprSort() As Integer 'Задание направления сортировки ' 1 - по неубыванию(Sort1) ' 2 - по невозрастию(Sort2) Dim Titul As String, Подсказка As String, Умолчание As String Titul = "Выбор направления сортировки" Подсказка = "Выберите направления сортировки:" _ + vbLf + "1 - по неубыванию" _ + vbLf + "2 - по невозрастию" Умолчание = 1 NaprSort = InputBox(Подсказка, Titul, Умолчание) Select Case NaprSort Case 1: Sort1 Case 2: Sort2 Case Else: MsgBox "Проверьте запись цифры", vbCritical End Select End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д