U najelementarnijem obliku, mogli bismo do rešenja praktično iz dva koraka: prvo dve katete trougla ispunimo jedinicama a u drugom, prostor između, jedinstvenom formulom za sabiranje dva suseda -- već prema pravilu za pružanje.
Code:
Sub Paskalov_Trougao_iz_A1()
' Dimenzija trougla u A1: radi za dimenzije >= 2
If [a1].Value >= 2 Then
Names.Add Name:="\dim", RefersTo:=[a1].Value
ActiveCell.CurrentRegion.ClearContents
Range([a1].Resize([\dim]), [a1].Resize(, [\dim])) _
.Value = 1
[b2].Resize([\dim] - 1, [\dim] - 1) _
.FormulaR1C1 = "=IF(COLUMN()-ROW()-2<" _
& [\dim] & "-2*ROW(),rc[-1]+r[-1]c,"""")"
Names("\dim").Delete
End If
End Sub
Sad, s obzirom da je navedeno da "sledeći nivo" čine A2, B1 to znači da se katete pružaju u pravcima A1:A2 i A1:B1.
Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!