tag:blogger.com,1999:blog-3219117272340648003.post2685842223198500932..comments2024-01-24T16:13:21.590+01:00Comments on Números y hoja de cálculo: Sucesión de las vacas de NarayanaAntonio Roldán Martínezhttp://www.blogger.com/profile/13014920786063435214noreply@blogger.comBlogger2125tag:blogger.com,1999:blog-3219117272340648003.post-20997882254968066912017-08-03T21:53:24.038+02:002017-08-03T21:53:24.038+02:00Hola
Hice la sucesión con VBA tambien y según el ...Hola<br /><br />Hice la sucesión con VBA tambien y según el resultado para el año 20 es de 872<br /><br /><br />Dim I As Double<br />Dim N As Double<br /><br />With Hoja1<br /><br /> .Cells.Clear<br /> .Cells(1, 1) = "AÑO"<br /> .Cells(1, 2) = "VACAS"<br /> .Range(.Cells(1, 1), .Cells(1, 2)).Interior.Color = vbBlue<br /> .Range(.Cells(1, 1), .Cells(1, 2)).Font.Bold = True<br /> .Range(.Cells(1, 1), .Cells(1, 2)).Font.Color = vbWhite<br /> .Range(.Cells(1, 1), .Cells(1, 2)).Font.Size = 14<br /> <br /> <br /> N = Application.InputBox("COLOQUE Nº NUMEROS", "VACAS NARAYANA")<br /><br /> .Cells(2, 2) = 1<br /> .Cells(3, 2) = 1<br /> .Cells(4, 2) = 1<br /> <br /> <br /> For I = 1 To N - 2<br /> <br /> If IsNumeric(.Cells(I, 2)) Then<br /> .Cells(I + 3, 2) = .Cells(I + 2, 2) + .Cells(I, 2)<br /> End If<br /> <br /> Next I<br /> <br /> For I = 1 To N<br /><br /> .Cells(I + 1, 1) = I<br /><br /> Next I<br /><br /><br />End With<br />EcoExcelhttps://www.blogger.com/profile/00456176756609188746noreply@blogger.comtag:blogger.com,1999:blog-3219117272340648003.post-78060103547314374382017-03-09T23:12:51.900+01:002017-03-09T23:12:51.900+01:00No se entiende nada que valores tienen cada letraNo se entiende nada que valores tienen cada letraAnonymousnoreply@blogger.com