Saltar al contenido

El Universo de Ainoa


Antoni

Recommended Posts

Hola a todos:

Ainoa es mi nieta, tiene 10 años, pronto va a empezar a estudiar conceptos de física y de química que van a resultarle algo extraños, por eso en en su último cumpleaños, se me ocurrió explicarle en un pequeño "cuento" el origen del Universo desde el punto de vista científico, en él no entro a valorar creencias de tipo moral o religioso.

Ni que decir tiene que, desde el punto de vista científico, el "cuento" está lleno de inexactitudes, pero en su conjunto creo que ayuda a entender de forma bastante clara que somos y de donde venimos, lo de adonde vamos,...esa ya es otra historia.

A todos aquellos que teneis hijos o nietos en una franja de edad parecida a la de Ainoa, a lo mejor os resulta útil

http://dl.dropbox.com/u/241435/El%20Universo%20de%20Ainoa.doc

Antoni

Enlace a comentario
Compartir con otras webs

Salve Macro

He visto tu introdución y me he dicho "Esto hay que guardarlo", mientras pensaba que a mi hija de 7 años le podría venir bien en un futuro próximo.

Ahora bien tras revisar un poco por encima el texto me he dicho "Leñes, con el j... romano", claro, tamto preceptor griego y así les salen los niños.

¿No es un nivel un poco elevado para 10 años? (pregunto)

Un saludo desde Vitoria

P.S. Me has asustado, cuando he leido

"El Universo es como cualquier ser vivo, nace crece, y suponemos que algún día también morirá

"La cag.....", menos mal que he seguido leyendo

"pero para eso se cree que todavía faltan unos cuantos cientos de miles de billones de años"

me has quitado un peso de encima, veo que para cuando se acabe la cosa quizás haya llegado a tener un nivel en macros como el tuyo (veremos si tú para entonces te has puesto al día con las funciones)

Enlace a comentario
Compartir con otras webs

¿No es un nivel un poco elevado para 10 años? (pregunto)

Pues creo que no, los niños a esa edad absorben como esponjas, y si te fijas tampoco hay tantos conceptos, un petardo por aquí, unas bolitas pequeñas por allá, 4 ejemplos con plastilina para el tema de las moléculas, y listo.

Ahora estoy empezando con unos apuntes de Filosofía, y ahí ya vamos a tener mas problemas, hemos de empezar con el tema de la manzana, la serpiente, Adan y Eva, y ..... ¡Huy! con la iglesia hemos topado amigo Sancho, bueno Ioyama..

Enlace a comentario
Compartir con otras webs

Salve Macro

¿Esponjas? El Bob ese, ¿no? Lo de las bolitas y petardos y tal me parece super didáctico (yo a mi hija le expliqué lo de la rotación de la tierra, el sol y la luna y compañía con un balón, una pelota, la lámpara y el menda haciendo malabares con las bolitas ,balón y pelota, ¿eh!). Pero cuando enpiezas a mentar a los bosones (casi como el Bilbo del señor de los anillos), quark, ferminones y otras particulillas.... Pues eso, ahí iba lo del nivel.

Respecto a Adán, Eva y compañía..... Molinos más grades han caido.

Cuando llegues a los presocráticos nos lo cuentas.

Un saludo desde Vitoria

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

  • 96 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      177
    • Comentarios
      90
    • Revisiones
      27

  • Crear macros Excel

  • Mensajes

    • Saludos amigos espero estén bien Estoy intentando hacer un formulario que me convierta unidades de masa sin embargo  en el mejor de los casos solo he podido lograr la conversión de una unidad a la vez en los TextBox 1, 3, 5, 7, 9, 11 y 13 y cuando lo logro el resultado que se copia  en la celda no se corresponde con el obtenido originalmente en el Textbox del Formulario (frmconv)  ejemplo al convertir 1900 Kg a Lb el resultado en el TextBox1 =4188,78298142 sin embargo al guardar el resultado lo que se copia en la Celda  "F11" es  418.878.298.142,00, adicionalmente el resultado de la conversión no se visualiza inmediatamente por lo que debo de hacer click en los TextBox 1, 3, 5, 7, 9, 11 y 13  para ver el resultado. Mucho les sabre agradecer la ayuda que me puedan brindar. PRUEBA.xlsm
    • Saludos a ambos. Copiar y pegar por sí solas, no tengo el conocimiento de que sirvan como "evento" para actualizar las referencias que buscas hacer, en la forma que lo quieres hacer, ó la fórmula como la quieres hacer. Te recomiendo abrir un tema similar en Macros, es posible que algún Maestro te de alguna idea. Por otro lado, si debe ser con funciones, entonces tendías que interactuar con COLUMNA() y FILA() para que al pegar el destino "sepa" donde está ubicado e intentar cambiar la referencia. =INDIRECTO(CARACTER(COLUMNA()+64)&FILA()) Algo como eso se podría usar para obtener el código ASCII de la letra de la columna (donde 65 es el código para “A”), y FILA() devuelve el número de la fila. La función CARACTER() convierte el código ASCII en una letra. Luego, INDIRECTO() toma la cadena resultante (por ejemplo, “A1”, “B2”, etc.) y la usa como una referencia de celda. En ese caso, una posible idea de editar tu ejemplo sería: =SI(INDIRECTO("'Casos de Prueba'!"&CARACTER(COLUMNA()+64)&"1")="Resultados Ciclo 1"; SI(CONTAR.SI(INDIRECTO("'Casos de Prueba'!"&CARACTER(COLUMNA()+64)&":"&CARACTER(COLUMNA()+64)); "OK")=0; 0; CONTAR.SI(INDIRECTO("'Casos de Prueba'!"&CARACTER(COLUMNA()+64)&":"&CARACTER(COLUMNA()+64)); "OK")); 0)   Enfatizo que es una idea, es muy probable que haya que editar. Así como esta su tema, la recomendación del maestro toma relevancia porque especular o deducir no es lo adecuado para intentar ayudar en este tipo de consultas. Por esta causa de mi parte por ejemplo no puedo aportar algo adicional.
    • En el ejemplo te he puesto 1 segundo para no hacer largo el gif, cámbialo a tu necesidad
    • Sub RecorrerRangoC() Set hoja = ActiveSheet Set rango = hoja.Range("C2:C" & hoja.Cells(hoja.Rows.Count, "C").End(xlUp).Row) If rango.Cells.Count = 0 Then MsgBox "No hay datos en la columna C.", vbExclamation Exit Sub End If For Each celda In rango.SpecialCells(xlCellTypeVisible) celda.Select Application.Wait Now + TimeValue("00:00:01") Next celda End Sub Prueba y comenta
    • Gracias   Al final funciona con esta formula. =SI.ERROR(C5*BUSCARV(A$2;TablaReparto[#Todo];COINCIDIR(D5;TablaReparto[#Encabezados];));C5) En la celda C5 he puesto la OT. Es similar a lo que me das como solución. ¡Muchas gracias por la ayuda!  
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.