доброго времени суток!!!!
помогите плиз с VBA, задачка простая. но сделать не могу... точнее почти сделала.
нужно отсортировать заданные в первом столбце случайные числа по возрастанию в пятый столбец листа excel. вот что у меня есть и это работает...


sub случайныечисла()
Randomize 'ввод случайных чисел
d1=2
d2=7
d3=9
d4=10
i=1
do while i<=30 'открытие условного цикла для того чтобы заполнить ячейки случайными числами
if Rnd<=0.5 then
лист1.cells(i,1)=CInt((d2-d1+1)*Rnd+d1) 'выбор из даннх промежутков
else
лист1.cells(i,1)=CInt((d4-d3+1)*Rnd+d3)
end if
i=i+1 'шаг цикла
loop
end sub 'замощение столбца случайными числами
--------------------------------------------------------------------------------------
sub фильтрация()
max=лист1.cells(1,1)'число максимальое
for i = 2 to 30 'цикл для поиска макс значения
if лист1.cells(i,1)>max then'приверка выполнения условия
max=лист1.cells(i,1)
end if
next i
k=1
for i = 1to 30 ' цикл для поиска максимального значения / 4
if лист1.cells(i,1)>=max/4 and лист1.cells(i,1)<=max then
лист1.cells(k,5)=лист1.cells(i,1)
k=k+1
end if
next i
end sub 'фильтрация в диапазоне x [max/4;max] и выдаёт в 5м столбце листа....
---------------------------------------------------------------------------------------
sub поВозрастанию()
?????????????????????????????????????????? т.е.здесь в этом же пятом столбце д.б. эти отфильтрованные числа расположенные по возрастанию
Модератор: Читайте правила форума. Не рекомендуется публиковать сообщения с бессмысленными темами

спасибо ОГРОООМНОЕ)))!!!