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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4.444 из 5