Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado
portada 150x150, Hermosas Frases De Confianza

Hermosas Frases De Confianza

| 1 comentario

portada

Descargar el archivo generador de frases de confianza desde aquí –> Frases de Confianza

Este proyecto permitirá la creación de un formulario en Microsoft Excel que nos permita mostrar imágenes y frases sobre confianza de forma aleatoria cada vez que presionemos el botón Generar Otra.

En esta sección se explicara paso como fue la creación de este proyecto:

1.- Primero aparecerá una ventana de Bienvenida cuando ingresemos al Archivo de Microsoft Excel:

c2

Este formulario aparecerá cuando abrimos el archivo de Excel para ello hemos tenido que crear los siguientes códigos:

En el Workbook.

          Private Sub Workbook_Open()
         UserForm1.Show
         End Sub

Si selecciona el botón continuar deberá parecer la ventana que permita ver la imágenes y las frases sobre confianza de una manera aleatoria cada vez que se presiona el botón Generar Otra…

portada

Este formulario tiene los siguientes códigos:

  • El botón Salir.

         Private Sub CommandButton2_Click()
         End
         End Sub

  • El botón Generar Otra…

         Private Sub CommandButton1_Click()

        contador_frase = WorksheetFunction.RandBetween(1, 20)

         frasealetoria = Worksheets(2).Cells(contador_frase + 1, 2)

         T1.Text = frasealetoria

        contador_imagen = WorksheetFunction.RandBetween(1, 5)

         Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\frasesconfianza\" & contador_imagen & ".jpg")
         End Sub

Espero que les guste este proyecto tanto como a mí.

Descargar el archivo generador de frases de confianza desde aquí –> Frases de Confianza

Un comentario

  1. Buenos días.
    si yo tengo un formato predefinido para utilizar como userform como lo puedo usar.

Deja un comentario

Los campos requeridos estan marcados con *.