Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation since 11/18/2009 in all areas

  1. Antoni

    Calendario Sin ActiveX

    Version 1.0.0

    432 downloads

    Es otro calendario mas a base de autoformas. Hay código en los módulos Calendario y Thisworkbook. Doble click en cualquier fecha o en una celda en blanco. No tiene misterio.
    11 points
  2. Version 3.0.0

    986 downloads

    Este es un aporte que había compartido en el foro de ideas y aportes por allá del 2014, se trata de una macro que puede crear un formulario para ingreso y modificación de datos sin necesidad de que el usuario escriba códigos. Lo subo de nuevo aquí ya que por lo que veo en el foro de ideas y aportes el archivo dejo de existir, dejo el link del post original ya que en el se encuentran mas detalladas las instrucciones y un video de como utilizar el aporte. POST ORIGINAL El mismo es un archivo .Bas y debe importar desde la ventana de VBA para después ejecutar la macro "MakeForm" que es la que crea el formulario. IMPORTANTE: Se debe tener habilitada la opción "Confiar en el acceso al modelo de objetos de proyectos VBA", ya que el formulario se crea en tiempo de ejecución.
    9 points
  3. Version 1.0.0

    154 downloads

    No tiene mas misterio de lo que explica el título. Abrir el archivo, pulsar sobre la flecha azul y ver lo que ocurre en la barra de estado. La idea no se me ha ocurrido a mi, pero me hubiera gustado.
    8 points
  4. Version 1.0.0

    282 downloads

    Se trata, se puede decir la evolución de este aporte Chat en red local desde excel, con la diferencia de que en lugar de utilizar textbox para mostrar los mensajes utilizo únicamente un control WebBrowser, lo que da mayor personalización. En el rar nos encontramos con un archivo excel y uno de access, el access debemos copiarlo a una ruta compartida en una red local, se debe modificar la ruta del mudulo1 del archivo excel(por defecto utiliza la misma donde se ubica el archivo excel). Podemos: *Cambiar el nombre de Usuario a mostrar en el chat. *Cambiar la imagen del Usuario, incluso utilizar gifs para la misma. *Compartir imágenes locales o de direcciones de internet. *Cambiar el color de las letras. *Crear salas privadas o publicas. Espero que les guste y cualquier recomendación es bien recibida. Salu2 Chat Excel.rar
    7 points
  5. LeandroA

    Nuevo Aporte

    Les comparto este ultimo proyecto en que estado jugando espero que les sea de utilidad.
    6 points
  6. Version 1.0.0

    122 downloads

    Qué tal, A partir de una duda de un usuario, surge este archivo mejorado para la busqueda y apertura de ficheros Microsoft Office (Excel, Word y PowerPoint) y ficheros PDF. Entre otras tiene las siguiente características: Permite buscar solo en un directorio raiz, o en todo sus subdirectorios Permite buscar un fichero entre el listado de todos Permite filtrar por tipos de ficheros Permite volver a mostrar de nuevo todos los ficheros tras un filtro Espero que os sirva y os guste. Espero vuestras opiniones
    6 points
  7. Version 1.2.0

    160 downloads

    Qué tal, Después de mucho preguntar en el foro y búsquedas en internet, dejo este buscador de ficheros excel: - El directorio de búsqueda por defecto está en el código y por defecto es "C:\". Si no se necesita otro directorio, se introduce directamente el nombre a buscar - Permite buscar en los subdirectorios del directorio principal seleccionado, si se necesita la búsqueda en otro directorio - Las búsquedas de ficheros se hace mediante comodines, por lo que solo es necesario introducir parte del nombre a buscar - Permite la visualización previa de el área de impresión del archivo seleccionado - Permite imprimir el área de impresión del fichero seleccionado - Permite abrir los ficheros seleccionados para su modificación - Los datos usados se copian en la Hoja1 del fichero subido. El color de la fuente está en blanco para no molestar (cambiar para ver los datos y la fórmula usada para el nombre del fichero Agradecimientos y Créditos: - A la página de Stephen Bullen por la función PastePicture (PastePicture) - La página de EXCELTOTAL por la fórmula para extraer el nombre del último directorio (EXCELTOTAL) - Al usuario Macro Antonio por su buscador de ficheros (Abrir Archivos) - A todos los usuarios que han contestado ayudándome en los post que he ido repartiendo por el foro - A todas las páginas que he visitado y de las que no me acuerdo... Si se ven reflejados en el archivo dense por agradecidos. Bueno, espero que les sirva. Saludos, Haplox
    6 points
  8. Version 1.0.0

    170 downloads

    VBA Resource File Editor es una Herramienta para añadir recursos a nuestros documentos de Office, vale decir que no necesitamos acompañar una carpeta con el contenido sino más bien podremos incluir el contenido dentro del mismo documento. Vale aclarar este contenido es sólo de lectura ya que cualquier cambio no se guarda dentro del documento cuando utilicemos las macros. Ahora bien un poco de explicación de cómo funciona todo esto, los archivos de office tanto Excel como Word o Power Point no son otra cosa que Archivos.Zip que contienen documentos .xml y otro tipos de archivos, si uno inserta cualquier archivo dentro de este zip y lo registra en el xml correspondiente, Office lo conserva cada vez que el documento es modificado, así que mediante vba haciendo un par de piruetas podemos leer este contenido en tiempo de ejecución (todo esto es un tanto parecido a cómo se generan las cintas de ribbon personalizadas). Espero que les sea de utilidad, dentro de la descarga encontrarán VBA Resource File Editor.xlsm con la ayuda y tres ejemplos.
    6 points
  9. Antoni

    Calendario minimalista

    Version 1.0.0

    67 downloads

    Es un calendario al uso, sin misterios. Ya sabeis de mi debilidad por los calendarios, en este caso la gracia está en el código VBA. Os recomiendo que lo reviseis y os dareis cuenta que se puede hacer click en un label sin evento individual y sin módulo de clase. Calendario mínimo.xlsm
    5 points
  10. Version 1.0.2

    58 downloads

    En este aporte intenta dar una fachada diferente a los controles clásicos de VBA que se utilizan en la parte de la hoja de Excel, no es que sean controles nuevos, sino que están retocados estéticamente con ayuda de shapes y automatizaciones, hay dos modulos adentro que nos ayudaran para hacer que todo esto funcione, tenia ganas de crear un formulario para que se automatice agregar el control a la hoja, pero por el momento tendrán que copiar y pegar los controles de esta hoja a la que quieran utilizar. los controles intentan simular la fachada de la interfaz de Bootstrap o controles web, los que mas les recomiendo es el control calendario que creo que quedo bastante fachero. esto aun no esta muy testeado por lo que puede haber que ir ajustando algunas cosas solo arme un grupo de controles, pero no se me dio para hacer alguna hoja con alguna utilidad que los emplee, si alguien se anima bienvenido bien cualquier duda pregunten, no soy de conectarme mucho pero tratare de ayudar.
    5 points
  11. Antoni

    ¡ 5.000 likes !

    A por los 10.000. 🙂
    5 points
  12. Hola a los dos Yo creo que entendí otra cosa.. 😆🤪 Saludos, Silvia Ejemplo asignacion de ID a cada semana de acuerdo a historial sq.xlsx
    5 points
  13. Version 2.0.0

    1,313 downloads

    La contraseña del proyecto VBA es "riddle" Hola, el día de hoy voy a compartir una alternativa al control dtpicker, que seria básicamente un calendario que se instala como complemento y puede ser utilizado en cualquier formulario VBA. Los pasos serian los siguientes: 1. Descargar el complemento, es preferible que lo guardes en la carpeta por defecto para complementos de excel la cual suele estar aqui: "C:\Users\NOMBRE USUARIO\AppData\Roaming\Microsoft\Complementos", o simplemente lo guardan donde deseen. 2.Instalamos el complemento Guía para instalar complementos 3.Vamos a abrir el archivo excel donde queremos que el calendario aparezca y nos dirigiremos a la Ventana de VBA (Alt + F11), iremos a Herramientas -> Referencias, y activaremos la que dice CalendarioRiddle. 4.El calendario esta listo para ser usado, solo debemos ligarlo a un textbox, para esto crearemos un botón junto al textbox y agregaremos el siguiente código el el evento click() del CommandButton: Private Sub CommandButton1_Click() CalendarioR TextBox1 End Sub Se debe colocar la palabra "CalendarioR" seguido del nombre del textbox que guardara la fecha. El calendario por defecto empieza la semana el día Domingo, podemos cambiar esto agregando un 2 como segunda variable para que empiece por el día Lunes: Private Sub CommandButton1_Click() CalendarioR TextBox1, 2 End Sub También es posible cambiar el color del calendario (por defecto es negro) agregando como tercera variable el color deseado, por ejemplo morado: Private Sub CommandButton1_Click() CalendarioR TextBox1, 2, &H400040 End Sub Quedaría así: Para cambiar de mes dan click sobre el mes actual y seleccionan el mes deseado, para volver al día actual click sobre la leyenda del día de hoy. Pueden salir del calendario con la tecla "ESC" del teclado. Saludos y espero que sea de utilidad.
    5 points
  14. Version 1.0.0

    117 downloads

    Útil para tratar muchos controles del mismo tipo con un único evento.
    5 points
  15. Hola Si eso, ocultar el menu y barras de excel (por el foro hay unos similares, pero no cae mal verlo de diferente forma:)) Espero que sirva... Saludos desde Honduras Ocultar Menu-Barras.zip
    5 points
  16. 4 points
  17. Onkey, tiene un argumento opcional, que es llamar a un procedimiento, bueno ahi agregas el mensaje y listo Sub MostrarMensaje() If Application.OnKey Key:="{c}" Then "MiSub" End Sub Sub MiSub() VBA.MsgBox "Hola mundo" End Sub Saludos
    4 points
  18. También puedes configurar la hoja desde las propiedades en el proyecto VBA Mira la imagen Saludos
    4 points
  19. Hoy, 14/02/2021, se cumple el 75 aniversario de la creación del primer ordenador. Se programaba por cables conectando funciones preestablecidas por hardware, podía hacer hasta 500 sumas por segundo, ocupaba 170 metros cuadrados y gastaba como 18.000 bombillas. (180 Kw/hora) Os dejo el artículo de El País. 75 aniversario de la creación de ENIAC, el primer ordenador electrónico
    4 points
  20. Hola JOCAMI90 la formula tenía una falla =SUMAR.SI.CONJUNTO(Datos!$D$3:$D$5000,Datos!$B$3:$B$5000,"*WH/"&B$3&"*",Datos!$C$3:$C$5000,$A4,Datos!$A$3:$A$5000,">="&$B$1,Datos!$A$3:$A$5000,"<="&FIN.MES($B$1,0)) considera que mi separador de argumentos es la coma (,), si el tuyo es otro, corriges. esto solo funciona para las columnas B y C que pertenecen a Setiembre, deberás cambiar manualmente B1, por D1 en Octubre, esa situación se dá , debido a que utilizaste celdas combinadas, lo que podrías hacer es descombinar las celdas y colocar las fechas en todas las columnas, en ese caso, la formula quedaría así: =SUMAR.SI.CONJUNTO(Datos!$D$3:$D$5000,Datos!$B$3:$B$5000,"*WH/"&B$3&"*",Datos!$C$3:$C$5000,ESPACIOS($A4),Datos!$A$3:$A$5000,">="&B$1,Datos!$A$3:$A$5000,"<="&FIN.MES(B$1,0)) y podrías arrastrarla a la derecha y hacia abajo.. sin modificar nada. Lo de la función Espacios, queda a tu decisión, (según lo que te comento líneas abajo), no olvides que cuanto mas cálculos haga la formula, mas ralentizará tu archivo. Además toma en cuenta lo siguiente: En la columna A, de la hoja resultados, no se si todos, pero por lo menos, los que revisé, tienen un ESPACIO al final. Para que un Texto coincida con otro, debe estar escrito EXACTAMENTE IGUAL que en la base de búsqueda. podríamos agrandar la formula, para quitar los espacios, de esta forma =SUMAR.SI.CONJUNTO(Datos!$D$3:$D$5000,Datos!$B$3:$B$5000,"*WH/"&B$3&"*",Datos!$C$3:$C$5000,ESPACIOS($A4),Datos!$A$3:$A$5000,">="&$B$1,Datos!$A$3:$A$5000,"<="&FIN.MES($B$1,0)) o podrias crear una columna auxiliar provisionar, colocas por ejemplo en k4 =ESPACIOS(A4) Lo llevas hacia abajo y luego lo copias A VALORES en A. ======================== tienes otro inconveniente con los WH/IN/00012 WH/N/A/00003 WH/OUT/00058 WH/IN/00015 como ves, WH/IN y WH/N no son iguales, por lo que esa no se sumará, debes corregir en la base. =================== Toma en cuenta que nunca deberías trabajar con Rangos de columnas completas, tipo A:A, B:B, si es el tema, que tienes todas las columnas llenas de datos (que lo dudo), ese libro te dará muchos problemas, por la lentitud de los cálculos.. ya que tendrá que evaluar las cuchucientas mil filas. Es mejor que trabajes con rangos amplios, dando un margen extra... (o también puedes convertir tu base en TABLA, en ese caso las formulas se autoajustan automáticamente. Bueno, creo que son todas mis observaciones.. Por si acaso incluyo tu archivo. saludos, Silvia AYUDA EXCEL EJEMPLO.xlsx
    4 points
  21. Como @Antoni debe estar muy ocupado, adjunto un archivo con 3 macros para obtener el día de la semana desde el 0100-01-01 (aaaa-mm-dd), en formato ISO 8601, que es el primer día admitido por VBA. La función GetWeekDayName() devuelve el día de la semana si se le pasa una cadena de texto en formato ISO 8601, llamando a las otras dos macros. Es fácil convertir una string con una fecha en formato de texto al formato estándar ISO. Option Explicit Function GetWeekDayName(sDate As String) As String ' ' VBA WeekdayName Function ' Dim iWeekDay As Integer iWeekDay = GetWeekDay(sDate) GetWeekDayName = WeekdayName(iWeekDay, False, vbMonday) End Function Function GetWeekDay(sDate As String) As Integer ' ' VBA WeekDay Function ' Dim dtDate As Date dtDate = GetSerialDate(sDate) GetWeekDay = Weekday(dtDate, vbMonday) End Function Function GetSerialDate(sDate As String) As Double ' ' VBA DateSerial Function ' Dim iYear As Integer Dim iMonth As Integer Dim iDay As Integer iYear = Left$(sDate, 4) iMonth = Mid$(sDate, 6, 2) iDay = Right$(sDate, 2) GetSerialDate = DateSerial(iYear, iMonth, iDay) End Function En el fichero adjunto he incluido las fechas especiales que: Fechas incorrectas en Excel inferiores al 1900-03-01 Fecha errónea en Excel y en VBA: 1900-02-29, ya que el año 1900 no es bisiesto. Primera fecha correcta en VBA: 0100-01-01 Fechas que no han existido en el Calendario Gregoriano, anteriores al 1582-10-15 Último día correcto en Excel y en VBA: 9999-12-31 @zelarra821 , @isidrod , espero que sea de ayuda y ayude a comprender el mundo pasado, presente y futuro. Años Menores que 1900 PW1.xlsm
    4 points
  22. Nunca debes utilizar los textbox, la función Val(), ni la función Format() en los cálculos, utiliza las variables y las funciones de conversión del tipo adecuado. He añadido un pequeño calendario. PRUEBA1.xlsm
    4 points
  23. Hola Esas fallas no están relacionadas a la versión del VBA o de Window (7, 10, etc.) sino a: - Uso de objetos ActiveX no compatibles entre ediciones de Office (32 o 64 bits, ojo, bits del Office, no importa lo de Windows). - Uso de objetos ActiveX compatible pero no registrados/instalados entre distintas PC. Recuerden que las librerías y objetos ActiveX (o similares), no "viajan" con los archivos de Excel. - "Llamadas" a funciones de la API de Windows solo para 32 bits. - Uso de propiedades y/u objetos de Excel "nuevas". Recuerden que las versiones más recientes de Excel tienen nuevos objetos y funciones que no son compatibles en versiones más antiguas. Si bien el VBA puede ser igual, obvio usar esas propiedades desde VBA traerá problemas en versiones más antiguas. - Ojo con lo que comentas, Haplox, si usas libros compartidos para trabajar... creo que sabes que traen muchos problemas que tampoco están relacionados a la versión de VBA necesariamente. Por ahí que se me escapan un par de cosas más. Saludos
    4 points
  24. itzy alonso

    modo tactil

    Version 1.0.0

    90 downloads

    4 points
  25. Version 1.0.0

    289 downloads

    Saludos a todos, comparto un login que hace poco diseñe para ustedes, espero les sea de gran ayuda, me despido un abrazo informático a todos. Nota: el libro corre con: y el macro de se desbloquea con:
    4 points
  26. LeandroA

    MSO UI Editor

    Version 1.0.0

    116 downloads

    MSO UI Editor es una herramienta para personalizar la interfaz de usuario de Microsoft Office como ser la cinta Ribbon, Menu contextual entre otras, mediante el formato XML, es casi una copia del “Custom UI Editor For Microsoft Office” pero éste trae unas pequeñas mejoras. Esta programado en Visual Basic 6. Cuenta con un detector de errores en la formación del xml y utiliza .xsd que garantizan una mejor validación. También genera automáticamente los Callbacks para los eventos en VBA, otra opción extra es que se puede buscar y reemplazar en el xml. Me hubiera gustado poder armar algunos ejemplos pero me ganó el cansancio y opté por subir algunos que encontré en la web. Si desean leer mas sobre esta herramienta o conocer su codigo de fuente pueden acceder desde mi Blog donde estaré publicando nuevas versiones. http://leandroascierto.com/blog/mso-ui-editor/ Espero que alguien de aqui le pueda sacar provecho y subir algún trabajo que realicen.
    4 points
  27. Version 1.0.0

    158 downloads

    Amigos en este nuevo aporte les traigo el archivo Copa FIFA Confederaciones Rusia 2017-Pronosticos que nos permitirá hacer el seguimiento al evento futbolístico más importante del año: Copa FIFA Confederaciones Rusia 2017; este puede ser usado de 2 maneras (en ambos casos el funcionamiento es el mismo): Simplemente como seguimiento de los juegos, donde vamos colocando los resultados de los juegos y vemos como va evolucionando la clasificación, se puede llevar el seguimiento hasta el juego final. Podemos usarlo para participar en una quiniela, hacemos nuestro pronóstico para todos los juegos, se le envía la quiniela a la persona encargada y esa persona con un archivo especial se encarga de llevar el control de todas las quinielas. Anexo está el archivo y la guía completa de uso, espero que les guste y disfruten del torneo siguiendolo con este archivo gracia
    4 points
  28. Version 2.1

    194 downloads

    Amigos, saludos nuevamente.., ahora les traigo este Archivo/Programa que realice en Excel para hacer seguimiento a unos de los eventos futbolisticos mas importante del año: COPA AMERICA CENTENARIO - USA 2016; este puede ser usado de 2 maneras: Simplemente como seguimiento de los juegos, donde vamos colocando los resultados de los juegos y vemos como va evolucionando la clasificación, se puede llevar el seguimiento hasta el juego final. Podemos usarlo para participar en una quiniela, hacemos nuestro pronóstico para todos los juegos, se le envía la quiniela a la persona encargada y esa persona con un archivo especial se encarga de llevar el control de todas las quinielas. Como pueden ver, es un sistema completo para no perdernos nada de esta gran Copa América donde se celebra en CENTENARIO del torneo de selecciones mas viejo del mundo. La Copa se llevará a cabo como parte de un acuerdo entre la Conmebol y la Concacaf, como una edición especial de la Copa América (45.ª edición desde su creación en 1916), y contará con con 10 equipos de la Conmebol y 6 de la Concacaf. Para realizar este archivo, tome como base el archivo realizado para la edición pasada de la Copa America Chile 2015 [-] Copa américa chile 2015 - fixture / quiniela y el aporte para el Mundial de Futbol Brasil 2014: [-] Mundial brasil 2014 - fixture / quiniela Este archivo está realizado completamente con MACROS (VBA), (NO existe una sola formula directamente en el archivo), así que es estrictamente necesario activar las macros para que el archivo funcione correctamente Anexo encontraran el archivo en formato Excel 2003 y 2007 o mayores (es exactamente el mismo archivo en ambos casos) y una pequeña guía en PDF. Tambien pueden revisar el aporte en la siguiente dirección: WordPress: Quinielas en Excel Espero que sea de su agrado y lo disfruten.....
    4 points
  29. Aqui os dejo una pequeña utilidad para listar archivos, que encontre en el baul de los recuerdos, funciona con excel 2010. Espero que os sirva de utilidad Un saludo. listar archivos.zip
    4 points
  30. Hola, Os dejo aqui un archivo auxiliar que hice por necesidad de crear una animacion de casilla en un programa de ajedrez que ando haciendo en C++, como ya esta terminada esa fase de animacion, lo iba a guardar en el baul y me acordé de vosotros, quizas os guste para tener mas flexibilidad a la hora de pintar del color que mas os interese el color de fondo de las celdas. Aqui la formula, donde Pix.R, Pix.G y Pix.B han de ser sustituidos por el valor ROJO, VERDE, AZUL que os interese en un rango entre 0 y 255, habrá otros metodos pero este es el mio: Dim P8 As Double: P8 = 2 ^ 8 'potencias de colores Dim P16 As Double: P16 = 2 ^ 16 'potencias de colores Pix.R + (((Pix.G + 1) * P8) - P8) + (((Pix.B + 1) * P16) - P16)[/CODE] Para pintar la celda del color deseado, solo hay que usar la propiedad de celda: Range(A1).Interior.Color = FORMULA DE ARRIBA Os dejo tambien el archivo de pruebas, a ver si os da ideas para alguno de vuestros proyectos. Un saludo! Eligiendo colores2.zip
    4 points
×
×
  • Create New...

Important Information

Privacy Policy