¿Te atreves a demostrar lo que sabes resolviendo alguno de estos
temas abiertos/no resueltos?

Rellenar series Num...
 
Compartir:
Avisos
Vaciar todo

[Resuelto] Rellenar series Numéricas

arcadisola
(@arcadisola)
Nuevo miembro Registered

Objetivo: Hallar todas las series posibles de números naturales CONSECUTIVOS que sumen una cantidad dada (por ejemplo 70)

He insertado un UserForm con dos botones CommandButton (Calcular series y Rellenar series) he conseguido una macro que, al pulsar el boton "Calcular series" me calcula de las cuatro posibles series (en el caso de suma = 70) el número de elementos de la serie (los coloca en columna "A"), el primer término de la serie (los coloca en columnas "B" y "C"). Ahora (aquí es donde me he colapsado) pretendo que al pulsar el botón "Rellenar series" me escriba desde la columna C (donde ya tengo el 1er.término) hasta la columna que corresponda, el resto de elementos de la serie. Véase que la primera serie tiene un elemento, la segunda cuatro, la tercera cinco y la cuarta siete. Para hacerme entender mejor indicar que, por ejemplo, en la fila 4 la serie que debería aparecer sería: C4 =12, D4=13, E4=14, F4=15 i por último G4=16. Agradeceré alguna sugerencia?

 

Citar
Topic starter Respondido : 18/10/2021 2:37 pm
Etiquetas del debate
RET
 RET
(@ret)
Miembro Admin

Hola @arcadisola,

Ahí va una propuesta:

Private Sub RellenarSeries_Click()
     Dim Fila As Integer
     Dim Col As Integer
     Dim Suma As Integer
     Dim ValorComp as integer

     ValorComp=70

     Fila = 2
     Do Until Hoja1.Cells(Fila, 3).Value = ""
          Col = 3
          Suma = Hoja1.Cells(Fila, Col).Value
          Do Until Suma >= ValorComp
               Col = Col + 1
               Hoja1.Cells(Fila, Col).Value = Hoja1.Cells(Fila, Col - 1).Value + 1
               Suma = Suma + Hoja1.Cells(Fila, Col).Value
          Loop
          Fila = Fila + 1
     Loop

End Sub

 

IMF_RET

https://InformaticaMuyFacil.com

ResponderCitar
Respondido : 18/10/2021 5:00 pm
arcadisola le gustó
arcadisola
(@arcadisola)
Nuevo miembro Registered

@ret 

Perfecto. Era justo lo que buscaba.

Muy agradecido por tu interés.

arcadisola

ResponderCitar
Topic starter Respondido : 19/10/2021 11:07 am

Dejar una respuesta

Nombre del autor

Correo electrónico del autor

Título *

 
Vista previa 0 revisiones Guardado