Serie Numérica

[arcadisola]

En estos días de confinamiento estoy estudiando un poco de VBA, pero soy muy novato en este tema.
Se trata de automatizar la resolución de este problema:
Hallar todas las series numéricas de...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

Hallar todas las series numéricas de números naturales consecutivos que sumados den 2009.

Hola! arcadisola.
¿Sabes por qué te estás...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[arcadisola]

Hola! arcadisola.
¿Sabes por qué te estás haciendo una ensalada bárbara, @arcadisola?... ¡Por no haber estudiado la...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

... y las series numéricas 1,1003,1005 - 2,1003,1004 no cumplen con la condición de series de números naturales CONSECUTIVOS.

...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

Por lo visto, @arcadisola, sólo hay 6 series que cumplen con "esto". Te muestro el archivo:

 

[Cacho R]

La deducción fue así:

• Llamemos "S" a la suma que se pretende (S=2009 para el caso).
• Y llamemos "t" al primer número de la serie.

Si buscásemos 3 términos tendríamos: t + (t+1)...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

Y como por aquí también andamos encerrados esperando que "el bicho" se muera solo, te muestro una variante más completa y paramétrica.
Es decir: escribe cualquier número entero en la celda B1 y...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[arcadisola]

Fantástico!!! Genial!!!, que envidia, (sana, por supuesto), dominar así el lenguaje VBA. La pega es que la mayoría de las líneas de los códigos no consigo interpretarlas y, por ende, no se como...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

Jajjjaja...
Mira: te mostraré las únicas dos líneas que "piensan" lo importante del código:

  t = Round((S / N) - (N - 1) / 2, 12): If t < 1 Then Exit Do
  If t = Int(t)...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[arcadisola]

Comprendo. Saludos y muchas gracias

arcadisola

 

[Cacho R]

Comprendo. Saludos y muchas gracias. arcadisola.

Un gusto... (o dos).
Cacho R.

 

[arcadisola]

Hola:
Después de estudiarme con detenimiento el código facilitado, diseccionandolo en varias lineas y experimentando en otras hojas de prueba, después de varias horas creo haberlo entendido todo...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

tenia entendido que un bucle Do-Loop siempre iba asociado con un While o un Until y aqui solo veo el Do y el Loop

Especifiquemos...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[arcadisola]

Queda claro. Muchas gracias

arcadisola

 

[Cacho R]

Gracias por tu devolución.