Jump to content

pegones1

Members
  • Content Count

    753
  • Joined

  • Last visited

  • Days Won

    25

Everything posted by pegones1

  1. Hola crd3959, en la celda Q18 escribes la fórmula: =[COLOR="blue"]SI(SUMA(Q13:Q17)<0;0[/COLOR];SI(SUMA(B13:B18;C13:C18;D13:D18)<9;-4;0))[/CODE] y la arrastras hacia abajo. La próxima vez será más fácil recibir ayuda si en el título escribes algo más específico, ¿me entiendes?
  2. pegones1

    Juegos

    Juego de ping-pong con un oponente virtual. Autor: George Lungu Blog: ExcelUnusual - outstanding methods for creating engineering, scientific, technical models and games in excel Descarga: Pong_Archive.zip
  3. Never, lamento que no veas las manecillas ¿cuáles, las de segundos? y, sobre todo, que tengas problemas con el evento MouseMove. Por si te sirve de ayuda, prueba con la 2ª versión de este Mapa que voy a subir al Post #1 Incluye refresco mejorado de los relojes y geolocalización de las ciudades del mundo. Espero que con esta versión haya alguna respuesta al truco para que salga la estrella. ¡Aunque sea tarde para los Reyes Magos!
  4. Hola Fleming, en el perfil de jalomiva dice que esta tarde se ha conectado. Yo me conecto para explicar el artificio que usé en el Post #18 Aviso que lo he mejorado para poder sumar más sumandos. Por supuesto que ¡no usa celdas auxiliares y es copy-pastable para añadir n dígitos! SumaUnDigitoPorCeldaPW2.zip
  5. Hola Martín, siento decirte lo mismo que a neverdelimon1. Hay otra respuesta posible pero no funciona en Excel 2003: Siento que sólo funcione en Excel 2007 y 2010, por lo que espero respuestas de los foreros que los tengan instalados. A los que tengan Excel 2003 en su perfil les admito buscar la respuesta analizando el código de los módulos VBA. P.D.: neverdelimon1, en un mensaje anterior dijiste que lo probaste en Excel 2010 ¿con qué versión te falla?
  6. Hola maestros ioyama, sailepaty, Fleming, Adjunto mi pequeña contribución a la suma de dígitos separados en celdas sin la ayuda de celdas auxiliares para vuestra aprobación si procede. De momento no explico el artificio que he usado porque prefiero que antes lo analicéis vosotros mismos. SumaUnDigitoPorCeldaPW1.zip
  7. Never, ahora que has visto la forma de la estrella y cómo se mueve cuando abres el archivo ¡o lo activas!, ya que ArrancaEstrella se llama en: Sub Workbook_Activate() ... ArrancaEstrella ... End Sub[/CODE] Tu respuesta es la fácil, pero hay otra forma de arrancar la estrella, por lo que la pregunta está medio contestada. [i]A ver si eres capaz de contestar qué otra manera hay de que aparezca la estrella [b]¡sin mirar el código VBA![/b][/i]
  8. ¿Ninguno de los 70 foreros que se han descargado este puede ayudar a los Reyes Magos en su viaje, guiados por la Estrella de la Navidad? La estrella está formada con los botones de opción que localizan a las ciudades. Repito la pregunta: ¿Qué hay que hacer para que salga esta Estrella en el mapa de relojes mundiales? ¡Quedan 2 días para ayudar a los Reyes Magos!
  9. Los Reyes Magos necesitan ayuda para llegar a todas las latitudes, con sus distintas zonas horarias, y llevar sus regalos a los niños. Los amigos del foro podéis ayudarles contestando a la siguiente pregunta de magia: ¿Qué hay que hacer para que salga la Estrella en este Mapa Mundial (descárgalo aquí)? Responde a este mensaje con tu respuesta.
  10. No es por ser agorero pero buscar "inoxidables y aluminios" entre comillas induce a google a ponerlo en primer lugar por ser parte del nombre de la página web. Sin comillas sale en el séptimo lugar. Otra cosa es buscar por aluminios inoxidables y entonces sale en la segunda página en cuarto lugar, lo que no está nada mal. Observo textos incompletos y con faltas de ortografía (sin acentos) en la página principal: josemaria, entiende que las críticas constructivas sirven para mejorar.
  11. Hola neverdelimon1, ¿no te has preguntado qué figura tienen los botones de opción moviéndose al norte del mapa? Lo que se han perdido, por perder algún evento, son las coordenadas de las ciudades que representan esos botones por lo que tendrás que abrir el archivo original y copiar el rango Relojes!$P$3:$Q$36 Dependiendo de la memoria RAM del equipo, funciona más o menos tiempo ya que por cada segundo que pasa ocupa 170 KB más (en una hora unos 600 MB) y ¡eso no lo tengo controlado! ¿Alguien me puede ayudar a reducir el consumo de memoria?
  12. De todas maneras puedes abrir un libro de Excel en blanco y usar el Asistente para importar archivo de texto. Elige como tipo de archivo: Todos los archivos e importa descarga.xls paso 1 de 3: Delimitados paso 2 de 3: Tabulación paso 3 de 3: En la vista previa, pincha en cada columna que quieras mantener los ceros a la izquierda y márcala como Texto Pulsa Finalizar Importa los datos en una hoja existente o nueva.
  13. Gracias a la buena sugerencia de mjrofra adjunto la siguiente macro: Sub AbreFicheroPlano() Set xlApp = CreateObject("Excel.Application") xlApp.Workbooks.OpenText Filename:=ThisWorkbook.Path & "\descarga.xls", _ DataType:=xlDelimited, Tab:=True, _ FieldInfo:=Array([COLOR="blue"]Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 2)[/COLOR]) xlApp.Visible = True Set xlApp = Nothing End Sub[/CODE] Este ejemplo es para 4 columnas como texto: [color=blue]Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 2)[/color] Si hay más columnas habrá que añadirlas sepa
  14. Hola ingefor, Prueba con el fichero adjunto que se sirve de estas macros: Sub ImportaTextoPlano(ficheroPlano As String, rango As Range) With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;" & ThisWorkbook.Path & "\" & ficheroPlano, Destination:=rango) .Name = Left$(ficheroPlano, InStr(1, ficheroPlano, ".") - 1) .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False
  15. Re: Felices Fiestas, a todas las personas de buena voluntad Me uno a las felicitaciones en estos días de fiesta y comparto un enlace a varios Christmas en Excel publicados en el blog de mi amigo Chandoo. 6 Christmas Cards in Excel – Download and Spread Joy | Chandoo.org - Learn Microsoft Excel Online
  16. Re: Puras matemáticas! Demostración de que 1 = -1 Sabiendo que: SQRT(a* = SQRT(a)*SQRT( 1 = SQRT(1) = SQRT((-1)*(-1)) = SQRT(-1)*SQRT(-1) = (SQRT(-1))^2 = -1[/CODE] donde SQRT es la función para el cálculo de la raíz cuadrada. El gran matemático Leonhard Euler demostró esta igualdad en su teoría de los números imaginarios en la que la letra [b]i = SQRT(-1)[/b] se refiere a la unidad imaginaria con la propiedad [b]i^2 = -1[/b].
  17. Re: Puras matemáticas! Hola ioyama, para que sea más fácil de entender la paradoja, faltaría añadir las igualdades en azul: 4-10+(25/4)=9-15+(25/4) como (a-^2=a^2-2ab+b^2 resulta: 4-10+(25/4)=2^2-2*2*(5/2)+(5/2)^2=(2-(5/2))^2 9-15+(25/4)=3^2-2*3*(5/2)+(5/2)^2=(3-(5/2))^2 y se deduce: (2-(5/2))^2=(3-(5/2))^2 si hago la raíz cuadrada a cada término 2-(5/2)=3-(5/2) y si sumo 5/2 a cada témino con lo que 2=3 Ioyama, ya ves que no desvelo la "trampilla" pero así será más inteligible que, con ese razonamiento, 2 es igual a 3.
  18. Gracias verzulsan por tu feedback. El comprobador de compatibilidad de Excel 2010 me dice que lo es con Excel 2003 con pérdidas menores de fidelidad. ¿Qué diablos entenderá por fidelidad Micro$oft Excel? ¡No lo mismo que entendemos nosotros! No te extrañen los lags iniciales mientras se construyen las formas de los relojes y las ciudades. De todas maneras es una primera versión Beta para ser testeada en diferentes rincones del Planeta Tierra ¡que no es tu caso! Realmente le he prestado más atención a conseguir reducirlo en tamaño, para subirlo al foro, que en la gestión de los eventos.
  19. Re: Puras matemáticas! Germán, el segundo párrafo de la PREGUNTA induce a malas interpretaciones y debería ser redactado así: entonces 9€x3=27€ han pagado los 3 amigos, (+ los) 2€ que se ha quedado el camarero de bote(=29€) y 25€ de la ronda de cañas, ¿correcto? ¡Y NO FALTA NINGÚN EURO DE LOS 3 BILLETES DE 10€ CON LOS QUE PAGARON LA RONDA DE CAÑAS Y RECIBIERON 1€ CADA UNO DE LAS VUELTAS! Entre paréntesis: (en rojo) lo que hay que eliminar de la pregunta. (en azul) lo que hay que añadir a la pregunta.
  20. Quisiera mejorar el World Clock por lo que necesito recibir comentarios con los test y chequeos de neverdelimon1, verzulsan, Gerson y los que os bajéis el fichero del https://www.ayudaexcel.com/foro/f64/mapa-mundial-con-relojes-marcando-las-horas-en-excel-15530/#post78598. Las características principales de este mapa de relojes mundiales son: Mapa mundial con 32 relojes analógicos e infinitos relojes digitales Relojes en sus zonas horarias y con ajuste del horario de verano Actualización de los relojes al Tiempo Universal real UTC y GTM/Zulu 24 relojes analógicos en las 24 zonas horaria
  21. Subo adjunto con el que he pasado las horas porque quiero saber, de un vistazo, a qué horas se levantan y se acuestan mis amigos, en particular los amigos del foro. Lo que me ha costado unas horas más es conseguir meter un fichero de 6 megas en un zip de menos de 97.7 KB. Al final ocupa 78.4 KB a base de crear dinámicamente los relojes, las ciudades y conectarse a Internet para descargar el mapa mundial. Tengo que dar las gracias por la inspiración a George Lungu y su tutorial de cómo hacer un reloj analógico en Excel: En alguna hora de estas vacaciones explicaré en mi blog cómo lo hice.
  22. Verzulsan, me pasa lo mismo que a Macro Antonio. Seguro que uno de los dos lo arregla. ¿Acaso has dibujado a mano a las mama noel? Feliz Navidad a los amigos del foro.
  23. Wiru, después de analizar detenidamente tu problema reenvío nuevo adjunto con mis NOTAS para que lo pruebes. Observa la condición: SI(Y($C$5>50;MES($E$2)=1);0;$C$5*7) dentro de la celda D5. Calendario2PW.zip
  24. Wiru te vuelvo a contestar lo mismo que te dije en este comentario de hace más de 6 meses por lo que será mejor que lo leas: https://www.ayudaexcel.com/foro/f6/%5Bsolucionado%5D-mostrar-qu%E9-semana-del-%F1o-es-la-actual-11790/index3.html#post58602 No vale usar lo siguiente pues no calcula el calendario gregoriano: =NUM.DE.SEMANA(HOY())+2 Adjunto tu fichero en Excel 2003 con las fórmulas propuestas (lee las NOTAS). Si lo abres con Excel 2010 podras comprobar que se obtiene el numero de semana correcto en A5: =NUM.DE.SEMANA(A1;21) Si lo abres con Excel 2007 o 2003 no se puede usar la for
  25. Macro Antonio, ¿no querrás que pintemos pirámides en Excel? La verdad es que es muy entrañable tu felicitación hecha a mano. ¡Felicidades!
×
×
  • Create New...

Important Information

Privacy Policy