формула суммы сочетаний

[HyperSonik]

Здравствуйте!

Нужно рассчитать простую формулу в Excel таблице (2007)

значения k,p будут браться из конкретных ячеек.

Стандартная функция для подсчета сочетаний: ЧИСЛКОМБ()

Но как ее прикрутить к сумме и поставить цикл...

Подозреваю что нужно использовать VBA, но я никогда с ним не работал, гугл не помогает совсем.

Подскажите как справиться с задачкой?

[doober]

гугл не помогает совсем.

Подскажите как справиться с задачкой?

Ключевое слово для гугля СОЧЕТАНИЯ
ТЫНЦ

[HyperSonik]

Или лыжи не едут, или я ...

Я уже разобрался как написать на VBA нужную функцию... надеюсь)))

Но мне нужно чтобы в ячейке, я мог записать что то вроде:
=myfunction(p;k)
и получить результат в этой же ячейке!

Код я вроде написал, в VBA project - modules - module1
но вызвать функцию из самой таблицы не получается...
Как это сделать? Или я хочу странного?

Sub MyFunction(p, k)
Dim l As Integer
l = 1
Dim rezult As Integer
rezult = 0

Dim factork As Integer
Dim temp As Integer
factork = 1
temp = 1
Do While temp <= k
     factork = factork * temp
     temp = temp + 1
Loop
temp = 1

Do While l <= p
    Dim factorkl As Integer
    factorkl = 1
    Do While temp <= (k - l)
        factorkl = factorkl * temp
        temp = temp + 1
    Loop
    
    Dim factorl As Integer
    factorl = 1
    Do While temp <= l
        factorl = factorl * temp
        temp = temp + 1
    Loop
    rezult = rezult + factork / (factorkl * factorl)
    l = l + 1
Loop
Dim R As CellFormat
R = Application.Caller.Address
Range("R").Value = rezult
End Sub

Спасибо!

[doober]

Function MyFunction(p, k)
Dim l As Integer
l = 1
Dim rezult As Integer
rezult = 0

Dim factork As Integer
Dim temp As Integer
factork = 1
temp = 1
Do While temp <= k
     factork = factork * temp
     temp = temp + 1
Loop
temp = 1

Do While l <= p
    Dim factorkl As Integer
    factorkl = 1
    Do While temp <= (k - l)
        factorkl = factorkl * temp
        temp = temp + 1
    Loop
    
    Dim factorl As Integer
    factorl = 1
    Do While temp <= l
        factorl = factorl * temp
        temp = temp + 1
    Loop
    rezult = rezult + factork / (factorkl * factorl)
    l = l + 1
Loop

MyFunction = rezult
End Function

[HyperSonik]

Огромное спасибо, doober!!!
Это именно то что нужно!!


P.S.
Мой код не совсем рабочий был...
Но я его исправил))
Вот этот вариант всё делает как нужно, если кому вдруг понадобится!

P.S. По видимому вариант для высших порядков, предложенный по ссылке выше, должен работать лучше(через треугольник Паскаля), но VBA редактор ругается на код из статьи, поэтому вот альтернатива:

Function CalcSochlk(l, k)
Dim rezult As Double
rezult = 1

Dim temp As Double
temp = k
Do While (temp > 0)
     rezult = rezult * temp
     If ((k - l) > (temp - 1)) Then
     rezult = rezult / temp
     End If
     
     If (l > (temp - 1)) Then
     rezult = rezult / temp
     End If
     
     temp = temp - 1
Loop

CalcSochlk = rezult
End Function

Function CalcSummSochpk(p, k)
Dim temp As Double
temp = 1
Dim rezult As Double
rezult = 0
Do While (temp < (p + 1))
     rezult = rezult + CalcSochlk(temp, k)
     temp = temp + 1
Loop

CalcSummSochpk = rezult
End Function