Saltar al contenido

Userform con animaciones o efectos de transición


AlexanderS

Recommended Posts

Hola pues haber si me exprese bien en el titulo.

Bueno esta es una idea para crear formularios mas parecidos a una aplicación o por lo menos mas "llamativos a la vista", el userform tiene efectos de transición y alguna que otra cosita. No hace nada importante pues es solo para que vean los efectos en el userform

Las opciones de buscar no las he programado por lo que no hacen nada todo lo demás funciona.

Si tienen alguna duda o sugerencia no duden en decirme...

Hago una pequeña encuesta para ver que les pareció espero no les moleste.

Probado en Excel 2010 y 2013. Añado a servidores externos por tamaño.

Microsoft SkyDrive - Access files anywhere. Create docs with free Office Web Apps.

https://www.mediafire.com/folder/sbop2bda45shz/Formulario%20animado

Edito:

Añado archivo con efecto "Nieve" a solicitud de Enigma25

Edito otra vez ;)

Añado efecto MATRIX

Añado efecto rebote de balón

Añado Efecto letras que cambian de color

Añado otro efecto "Efecto letras" (No se me ocurrió otro nombre)

Salu2

Blanca Navidad.zip

Matrix.zip

Efecto rebote de balón.zip

Letras de color.zip

Efecto letras.zip

Enlace a comentario
Compartir con otras webs

Felicidades señor Riddle.

excelente aporte y en verdad, yo menos pensaba que se pudiera hacer con codigo VBA, por tanto mis felicitaciones.

Su archivo lo opero bien pero si trato de crear un nuevo archivo y hacerme del codigo, me sale error....

Hay algun control del cual debo incluir y donde lo ubico?

Enlace a comentario
Compartir con otras webs

Perdon, ya vi que faltaba los Public Declare Function en el modulo, por ello me salia error.

Mil gracias mi amigo y por cierto... se puede crear un efecto tipo cascada? asi como matrix o lluvia?

Perdone tantas preguntas.

Hola Enigma25 prueba a ver si este archivo se acerca algo a lo que dices, utilice "textbox" para crear el efecto.

Salu2

Efecto userform.rar

Efecto userform.zip

Enlace a comentario
Compartir con otras webs

Voy a adjuntarlo de nuevo para que vea algo que se me ocurrió con respecto a la lluvia o algo parecido. Lastima que este solo aplique para una a la vez pero es mas o menos lo que espero.

Pues bien, resulta que no sabia como repetir la acción del código para que este repitiera una y otra vez. ahora con su nuevo aporte, pude notar que emplea el Goto.

P.D. Estoy seguro que en algún lado, ví lo del efecto de cascada o lluvia. Voy a investigar y si logro dar con el video, les doy el link.

Mis respetos.

Efectos.zip

Enlace a comentario
Compartir con otras webs

jajaja excelente amido Riddle!

Es lo que esperaba y mil gracias por el tiempo que se tomó para hacerlo y bueno, lo del adelanto de navidad no estaria mal para alegrar la vida, de hecho, ahora que lo pienso,... en la cancion " 'LA JORNADA' de 'VILLANCICOS DE NAVIDAD' se declaran variables de texto : ¡DIM, DIM, DIM! ES HORA DE PARTIR

¡DIM, DIM, DIM! CAMINO DE BELEN

LOS ESPOSOS VAN DESDE NAZARETH

1. La Virgen María, modesta y sencilla,

es la maravilla del dichoso Edén

del dichoso Edén (2da vez)

2. Sobre un jumentillo se sienta María

y es experto guía el casto José.

3. Van José y María, van hacia Belén,

donde nuestro Bien ha de aparecer.

4. Largo es el camino, aire sofocante,

es más importante cumplir el deber.

5. Llegan extenuados al morir el día

y en la noche fría no hay donde hospedar.

6. Posadas repletas de inmenso gentío

¡ah, Señor, Dios mío! ¿ a dónde llegar?

7. Y saliendo al campo una grupa encuentran

y en ella se adentran para pecnotar

8. San José y la Virgen la mula y el buey

fueron lo que vieron al niño nacer.

9. Celebremos juntos este hermoso día:

llega la alegría de la Navidad.

jejeje cambié lo DIN por DIM

Enlace a comentario
Compartir con otras webs

Guau! Es si que tiene el efecto mejorado!

Este me lo quedo,... tiene el efecto esperado.

Solo una pregunta y perdona..... cuando se cierra el formulario, se mantiene el codigo trabajando.... Existe alguna forma en parar el Sleep para que no siga corriendo?

En verdad perdone.

Enlace a comentario
Compartir con otras webs

Enigma25, no es ninguna molestia mas bien gracias a eso descubrí algunas cosillas que no sabia antes.

Para que se pare el código solo coloca esto en el formulario:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
End
End Sub[/PHP]

Salu2

Enlace a comentario
Compartir con otras webs

Amigo, es el slider.

Quizás por ser un boton con el que no cuento, porque los demás los seleccioné y no me daban error pero cuando seleccionaba el slider, este mo arrojaba error y no me deja ver sus propiedades y demas.

De hecho estaba pensando,.... usted sabria que causas podrian ser que estos controles no funcionen en otras computadoras como en el caso del ListView?

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 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 hay 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!  
    • Hola, Mejor que subas un archivo que contenga esas fórmulas, indicando qué resultados esperas conseguir. Así ayudas a quien quiera ayudarte; no le obligas a que reproduzca ese modelo, y de paso podrá ver cuál es el objetivo buscado con esa/s fórmula/s. Saludos,
  • 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.