Помогите написать программу сортировки выбором на VBA, чтобы она выводила числа от мин до макс в ячейки: 44, 55, 12, 42, 94, 18, 6, 67
Нет комментариев
Ответы
Гость Sub sort()N = ActiveSheet.Range("A65536").End(xlUp).Row‘определим № последней строкиnmin = 1Do Whilenmin < NMin =Cells(nmin, 1)For i =nmin To N If Cells(i, 1) < Min Then Min = Cells(i, 1) Cells(i, 1) = Cells(nmin, 1) Cells(nmin, 1) = Min End IfNext inmin = nmin + 1LoopEnd Sub
Нет комментариев
Похожие вопросы
Информатика
За Какое наименьшее количество перестановок можно упорядочить по возрастанию последней цифры 543261?...
Информатика
Определить количество дней между календарными датами разных лет ( в переделах текущего столетия )...
Информатика
Какая структура программы? 7 класс...
Информатика
Пожалуйста ребят(11-16)я вас обожаю...
Список предметов
