JORNADA PFS Macros

...

a.Range("a11").Value = c1

a1 = InputBox("ingrese nombre del primer articulo", "factura articulo 1")

a.Range("b11").Value = a1

p1 = InputBox("ingrese precio del primer articulo", "factura articulo 1")

a.Range("e11").Value = p1

co1 = c1 * p1

a.Range("f11").Value = co1

c2 = InputBox("ingrese cantidad del segundo articulo", "factura articulo 2")

a.Range("a12").Value = c2

a2 = InputBox("ingrese nombre del segundo articulo", "factura articulo 2")

a.Range("b12").Value = a2

p2 = InputBox("ingrese precio del segundo articulo", "factura articulo 2")

a.Range("e12").Value = p2

co2 = c2 * p2

a.Range("f12").Value = co2

c3 = InputBox("ingrese cantidad del tercer articulo", "factura articulo 3")

a.Range("a13").Value = c3

a3 = InputBox("ingrese nombre del tercer articulo", "factura articulo 3")

a.Range("b13").Value = a3

p3 = InputBox("ingrese precio del tercer articulo", "factura articulo 3")

a.Range("e13").Value = p3

co3 = c3 * p3

a.Range("f13").Value = co3

c4 = InputBox("ingrese cantidad del cuarto articulo", "factura articulo 4")

a.Range("a14").Value = c4

a4 = InputBox("ingrese nombre del cuarto articulo", "factura articulo 4")

a.Range("b14").Value = a4

p4 = InputBox("ingrese precio del cuarto articulo", "factura articulo 4")

a.Range("e14").Value = p4

co4 = c4 * p4

a.Range("f14").Value = co4

c5 = InputBox("ingrese cantidad del quinto articulo", "factura articulo 5")

a.Range("a15").Value = c5

a5 = InputBox("ingrese nombre del quinto articulo", "factura articulo 5")

a.Range("b15").Value = a5

p5 = InputBox("ingrese precio del quinto articulo", "factura articulo 5")

a.Range("e15").Value = p5

co5 = c5 * p5

a.Range("f15").Value = co5

st = co1 + co2 + co3 + co4 + co5

a.Range("f16").Value = st

i = (st * 12) / 100

a.Range("f17").Value = i

tot = st + i

a.Range("f18").Value = tot

End Sub

Realice un macro que permita ingresar un número del 1 al cinco el programa deberá indicar que numero se ingresó en letras.

Sub numeroes_con_letras()

Dim N As Integer

Set A = ActiveSheet

A.Range("c5").Value = "numeros"

A.Range("d5").Value = "letras"

N = InputBox("ingrese un numero del 1 al 5")

A.Range("c6").Value = N

If (N = 1) Then

A.Range("d6").Value = "uno"

Else

If (N = 2) Then

A.Range("d6").Value = "dos"

Else

If (N = 3) Then

A.Range("d6").Value = "tres"

Else

If (N = 4) Then

A.Range("d6").Value = "cuatro"

Else

If (N = 5) Then

A.Range("d6").Value = "cinco"

Else

A.Range("d6").Value = "solo del 1 AL 5"

End If

End If

End If

End If

End If

End Sub

Realice un macro que le permita ingresar tres números el programa deberá indicar cuál de los números ingresados es el mayor, el medio y el menor.

Sub comparacion_mayor_medio_menor()

Dim n1 As Integer, n2 As Integer, n3 As Integer

Set a = ActiveSheet

n1 = InputBox("ingrese