|
|
| CITAZIONE (Andrea Caprioli @ 17/3/2020, 16:04) Andrea Caprioli, type in Excel sheet v=33, k=7, t=7, m=16 and enable this macro: Sub block_covers() v = Cells(1, 1) k = Cells(1, 2) t = Cells(1, 3) m = Cells(1, 4) cover = 0 For x = t To k If ( v - x ) < (m - t) Then Exit For If m < t Then Exit For cover = cover + WorksheetFunction.Fact(x - 1) _ / WorksheetFunction.Fact(t - 1) _ / WorksheetFunction.Fact(x - t) * WorksheetFunction.Fact( v - x ) _ / WorksheetFunction.Fact(v - x - (m - t)) _ / WorksheetFunction.Fact(m - t) Next Cells(3, 1) = "1-Block covers = " & cover End Sub .................... author: fair_play from Polish team Ciao Edited by edi8 - 18/3/2020, 09:15
|
| |