Introducción a la Programación en Visual Basic y su aplicación en Excel. M.I. Jaime Alfonso Reyes Cortés

TEMA 3 CREACIÓN DE MACROS Y FUNCIONES EN EXCEL.

Programación Orientada a Objetos y Programación Basada en Objetos. • En la P.O.O. se trabaja con objetos que representan entidades del mundo real; les asocian propiedades (atributos) y tienen procedimientos que permiten trabajar con ellos (métodos o funciones). • Se puede definir cualquier objeto que se desee, así como sus atributos y métodos.

• En la P.B.O. los objetos, junto con sus atributos y métodos ya se encuentran definidos. El programador hace uso de dichos objetos, métodos y puede cambiar los valores de los atributos.

El modelo de objetos de Excel

El modelo de objetos de Excel

El objeto cuadro de diálogo de mensajes. • MsgBox “Curso Introducción a la programación en Visual Basic y su aplicación en Excel.“ • MsgBox “Valor de la celda A3 es: " & Range("A3").Value • MsgBox “Una línea" & vbNewLine & “y debajo otra línea."

Objetos Workbook y Worksheet • Range("A1").Value = “En la celda A1“ • Application.Workbooks(“listaejemplo").Worksheets(1).Range(" A1").Value = " En la celda A1 “

Objetos Workbook y Worksheet (Colecciones) • Worksheets(“Asistencias").Range("A1").Value = “Asistencias“ • Worksheets(1).Range("A1").Value = “Asistencias“ • Hoja1.Range("A1").Value = "Asistencias"

Objetos Workbook y Worksheet (Propiedades y métodos) • Workbooks.Add • MsgBox “Hojas de trabajo = “ & Worksheets.Count

Objetos Range y Cells • Range("B3").Value = 2 • Range("A1:A4").Value = 5

• Range("A1:A2,B3:C4").Value = 10 • Cells(3, 2).Value = 2 • Range(Cells(1, 1), Cells(4, 1)).Value = 5

Objetos Range y Cells • Dim rango As Range Set rango = Range("A1:C4") rango.Value = 8

Objeto Range y Select • Dim rango As Range Set rango = Range("A1:C4") rango.Select • Dim rango As Range Set rango = Range("A1:C4") rango.Rows(3).Select • rango.Columns(2).Select

Copiar y Pegar • Range(“A1:A2”).Value = 5 • Range("A1:A2").Select Selection.Copy Range("C3").Select ActiveSheet.Paste • Range("C3:C4").Value = Range("A1:A2").Value

Borrar contenido de celdas • Range("A1").ClearContents • Range("A1").Value = ""

Conteo de celdas seleccionadas • Dim rango As Range Set rango = Range("A1:C4") MsgBox rango.Count • MsgBox rango.Rows.Count

Tipos de variables en VBA • Dim x As Integer x=6 Range("A1").Value = x

• Dim libro As String libro = “Ingenieria" Range("A1").Value = libro • Dim y As Double y = 5.5 MsgBox “Valor de y= " & y

• Dim bandera As Boolean bandera = True • MsgBox “bandera= " & bandera

InputBox • • • •

Dim Numero1 As Double Dim Numero2 As Double Numero1 = Val(InputBox(“Primer calificación", “Calificación 1")) Numero2 = Val(InputBox(“Segunda calificación", “Calificación 2")) ActiveSheet.Range("A1").Value = Numero1 + Numero2

• • • •

Dim cadena1, cadena2 As String cadena1 = Str(InputBox(“Primer cadena", “Cadenas")) cadena2 = Strl(InputBox(“Segunda cadena", “Cadenas")) ActiveSheet.Range("A1").Value = cadena1 + cadena2

Estructura de decisión simple • If Then • ‘bloque de Sentencias

End If • Dim calif As Double, result As String calif = Range(“L3").Value

If calif >= 6.0 Then result = “pasó el examen.“

End If Range(“A1").Value = result MsgBox Range(“A1").Value

Estructura de decisión doble • If