Prezi

Present Remotely

Send the link below via email or IM

Copy

Present to your audience

Start remote presentation

  • Invited audience members will follow you as you navigate and present
  • People invited to a presentation do not need a Prezi account
  • This link expires 10 minutes after you close the presentation
  • A maximum of 30 users can follow your presentation
  • Learn more about this feature in the manual

Do you really want to delete this prezi?

Neither you, nor the coeditors you shared it with will be able to recover it again.

DeleteCancel

Make your likes visible on Facebook?

Connect your Facebook account to Prezi and let your likes appear on your timeline.
You can change this under Settings & Account at any time.

No, thanks

Programación en Excel - Programas Básicos

No description
by Angel Moreano Terrazas on 29 July 2013

Comments (0)

Please log in to add your comment.

Report abuse

Transcript of Programación en Excel - Programas Básicos

Ejercicios Básicos de
Programación en Excel

Hacer un programa que ponga en la hoja1, columna A fila 5, los números múltiplos de 7 menores a 100.
Sub Multiplos7()
Dim k As Integer
Hoja1.Range("A4") = "Multiplos de Siete"
For i = 1 To 14
Hoja1.Range("A" & (i + 4)) = i * 7
Next
End Sub
Solución Ejercicio 1.
Ejercicio 1.
Hacer un programa que llene la columna B, desde la final 6 con números del 1 al 50, los pares deben ser pintados con fondo rojo.
Ejercicio 2.
Sub ParesMarcados()
Dim k As Integer
Hoja1.Range("B5") = "Pares Marcados"
For k = 6 To 55
'Colocando datos
Hoja1.Range("B" & k) = k - 5
'Poniendo color
If (k - 5) Mod 2 = 0 Then
Hoja1.Range("B" & k).Interior.Color=RGB(255, 0, 0)
End If
Next
End Sub
Solución Ejercicio 2.
Llenar la columna C y D desde la fila 5 hasta la 25 con cualquier valor numérico, luego deberá hacer un modulo que calcule el promedio en la columna E.
Ejercicio 3.
Sub PromediarColumnas()
Dim k As Integer, pro As Double
Dim a As Double, b As Double
For k = 5 To 25
a = Hoja1.Range("C" & k)
b = Hoja1.Range("D" & k)
pro = (a + b) / 2
Hoja1.Range("E" & k) = pro
Next
End Sub
Solución Ejercicio 3.
Hacer una función que devuelva verdadero o falso si un numero es primo o no, hacer el modulo de prueba
Ejercicio 4.
Function esPrimo(ByVal numero As Integer) As Boolean
Dim k, contador As Integer
contador = 0
For k = 1 To numero / 2
If numero Mod k = 0 Then
contador = contador + 1
End If
Next
If contador = 1 Then
esPrimo = True
Else
esPrimo = False
End If
End Function
Solución Ejercicio 4.
Sub ListaDePrimos()
Dim k, j As Integer
Hoja2.Range("A4") = "Los Primos"
j = 5
For k = 0 To 100
If esPrimo(k) Then
Hoja2.Range("A" & j) = k
j = j + 1
End If
Next
End Sub
Solución Ejercicio 5.
Sub Pintar(celdas As String)
Hoja1.Range(celdas).Interior.Color = RGB(180, 0, 0)
Hoja1.Range(celdas).Borders.Color = RGB(180, 255, 0)
Hoja1.Range(celdas).ColumnWidth = 5
Hoja1.Range(celdas) = ""
End Sub

Sub PruebaPintar()
Pintar ("C3:H9")
End Sub
Solución Ejercicio 6.

Sub prueba()
Dim dato As Integer
dato = InputBox("Ingresar un Número:", "AMT")
If esPrimo(dato) Then
MsgBox ("El numero esprimo")
Else
MsgBox ("No es numero primo")
End If
End Sub
Hacer un programa que muestre los numeros primos menores a 100 en la columna A de la hoja 2, usando la función del anterior ejercicio.
Ejercicio 5.
Hace un procedimiento que limpie un bloque de celdas como parámetro.
Ejercicio 06
Ejercicio7
Hacer un programa en Excel que llene de la columna A a E hasta la fila 10 con números aleatorios del 0 al 100, luego que con otro modulo se marque los números mayores a 90.
Sub LlenarAleatorio()
Hoja1.Range("A1:E10").Interior.Color = RGB(200, 240, 200)
For i = 1 To 5 'Columna
For j = 1 To 10 'fila
Hoja1.Cells(j, i) = Int(100 * Rnd(Time))
Next
Next
End Sub

Sub MayoresA90()
Hoja1.Range("A1:E10").Interior.Color = RGB(250, 250, 180)
azul = 255 * Rnd(Time) 'rnd numero aleatorio
For i = 1 To 5
For j = 1 To 10 'Cells se usa en lugar de range
If Hoja1.Cells(j, i) >= 90 Then
Hoja1.Cells(j, i).Interior.Color = RGB(0, 180, azul)
End If
Next
Next
End Sub

Solución Ejercicio 7.
Pon así tus botones
https://www.facebook.com/amoreanoterrazas
Ing. Angel Moreano Terrazas
See the full transcript