Código de Visual Basic para Aplicaciones

Código de Visual Basic para Aplicaciones - Números factoriales

Pos: 9

Val: 85

Ha aumentado 1 puesto en Visual Basic para Aplicaciones (en relación al último mes)

Números factoriales

Visual Basic para Aplicaciones

Publicado el 11 de Agosto del 2017 por David (9 códigos)

1.189 visualizaciones desde el 11 de Agosto del 2017

Buen día

A continuación dejo a su disposición un vídeo que trata sobre generar lista de números factoriales, empleando VBA (Visual Basic for Applicacions).

Espero que el vídeo muestre de forma sencilla la construcción del mismo.

Saludos cordiales.

Requerimientos

Windows, Microsoft Office

Versión 1.0

Actualizado el 30 de Septiembre del 2017 (Publicado el 11 de Agosto del 2017)

1.190 visualizaciones desde el 11 de Agosto del 2017

Dim I As Double

Dim J As Double

Dim N As Double

Dim A As Double

Dim B As Double

Dim Suma As Double

With Hoja1

    .Cells.Clear

    .Cells.Font.Size = 14

    .Cells(1, 1) = "NUMEROS FACTORIALES"

    .Cells(1, 1).Interior.Color = vbBlue

    .Cells(1, 1).Font.Color = vbYellow

    .Cells(1, 1).Font.Bold = True

    N = Application.InputBox("NUMEROS FACTORILES", "!")

        For I = 1 To N

                A = I

                .Cells(I + 1, 1) = I & "!"

                For J = (I - 1) To 1 Step -1

                    Suma = 0

                    B = A * J

                    A = B

                    Suma = Suma + A

                    .Cells(I + 1, 1) = .Cells(I + 1, 1) & " X " & J

                Next J

                If Suma = 0 Then Suma = 1

                .Cells(I + 1, 1) = .Cells(I + 1, 1) & " = " & Format(Suma, "#,##0")

        Next I

                .Columns(1).AutoFit

End With

Comentarios sobre la versión: Versión 1.0 (0)

No hay comentarios

Comentar la versión: Versión 1.0

http://lwp-l.com/s4104

Sucesión Numeros de Lucas

Registrar información desde ListBox

Código de Visual Basic para Aplicaciones - Números factoriales

Requerimientos

Versión 1.0

Comentarios sobre la versión: Versión 1.0 (0)

Comentar la versión: Versión 1.0

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.