просчитать все возможные варианты диапазона используя VBA

[PARTOS]

Здравствуйте уважаемые господа программисты. Подскажите, как решить следующую задачку с помощью VBA:

Нужно просчитать все возможные варианты зелёного диапазона (С5:Е13) и из полученных МАКСИМУМОВ и МИНИМУМОВ оставить только первые 10 максимумов и первые 10 минимумов (К5:L14).

[Hugo121]

Делать сейчас не буду, но может просто собирать значения в массив, затем массив отсортировать и взять снизу и сверху по 10?

[doober]

Здесь немного другой вариант-Фриланс.В файле никакого кода нет.
Главное не максимум вытянуть,главное правильно алгоритм построить всего процесса.опыт есть в данном направлении.обрабатывал информацию и по несколько гигов.даром делать не буду.
Вот код для составления комбинаций.возможно поможет

Option Explicit

Public zzz() As Long
Public stR As String
Dim ii As Byte



Public Function Factorial(ByRef N As Long) As Long
    Dim Result As Long
    Dim I As Long

    I = 1#
    Result = 1#
    Do
        Result = Result * I
        I = I + 1#
    Loop Until Not I <= N

    Factorial = Result
End Function
Public Function KthPermutation(ByVal N As Long, ByVal K As Long, ByRef A() As Long)
    Dim Temp As Long
    Dim SelNum As Long
    Dim I As Long
    Dim J As Long
    Dim F As Long

    K = K - 1#
    F = 1#
    ReDim A(N)
    For I = 1# To N Step 1
        A(I) = I
        F = F * I
    Next I
    
    For I = 1# To N - 1# Step 1
        F = F \ (N + 1# - I)
        SelNum = I + K \ F
        Temp = A(SelNum)
        For J = SelNum To I + 1# Step -1
            A(J) = A(J - 1#)
        Next J
        A(I) = Temp
        K = K Mod F
stR = stR & A(I)
    Next I
stR = stR & A(I) & vbCrLf
End Function

[PARTOS]

Упрощу вопрос:
Меня интересует только одно – как написать цикл, чтобы перебрать в одной ячейке все варианты от 1 до 999


Нужно написать программу, чтобы в ячейке D2 были перечислены все значения от 1 до 999
другими словами
если D2>B2 то D2=D2+1 иначе STOP

[IgorGO]

станьте в Д2, лента "формулы", группа "зависимости формул", кнопка "вычислить формулу". В открывшемся окне жмите кнопку "вычислить", после 6-го нажатия увидите все 999 значений.
С ними надо было что-то делать, поэтому я их просто просуммировал...

[PARTOS]

IgorGO спасибо за подсказку, но написав «чтобы в ячейке D2 были перечислены все значения от 1 до 999», я имел ввиду чуть-чуть другое:


Мне нужен макрос-счётчик, который при запуске, в определённую ячейку вставлял сначала 1, потом 2, потом 3, и т.д. до 999, после того как счётчик доходил до 999 работа макроса прекращалась.

Другими словами :
Я включаю программу
В какой-нибудь (заранее определённой) ячейке за некоторое время отображаются все значения от 1 до 999 (как в перелистывающемся календаре)
Когда счётчик дойдёт до 999 – программа заканчивает свою работу

[IgorGO]

перелистывайте...

[PARTOS]

Сообщение от IgorGO

перелистывайте...

спасибо! то что нужно!

[PARTOS]

Сообщение от IgorGO

перелистывайте...

Ещё вопрос:
Возможно ли, чтобы перебираемые значения (от 1 до 99) представить в числовом виде.
Например, в ячейке G5 записать что-то вроде =(D5*1)+1, и чтобы при запуске макроса данные изменялись бы и в ячейке D5 и в ячейке G5.

[IgorGO]

я, собственно, не совсем понимаю в чем вопрос?
а как по Вашему они там представлены? в коде написано cells(5,4) = cells(5,4)+1 - результат есть число, берите его, умножайте, складывайте с другими числами.
Я не возражаю...

Там, в коде, строку
Cells(5, 4) = 0
надо поменять на
Cells(5, 4) = Cells(1, 1) - 1