Unidad 5. Programación usando objetos del Excel (XX)

Ejercicios

a)    Cómo diferencia una variable local de una pública?

Las variables locales son aquellas que se encuentran activas dentro de un procedimiento o módulo; esto significa que fuera del procedimiento la variable no existe. El ámbito de estas variables es dentro del procedimiento en el cual se las define. Estas variables se las declara mediante la sentencia DIM.

Ejemplos:

DIM XIngreso As Double

DIM Codigo As variant

Las variables públicas son aquellas cuya definición y valor se encuentran activas en todos los procedimientos o módulos que conforman un proyecto. Se las define mediante la sentencia PUBLIC y se las define antes del primer módulo y fuera de él.

Ejemplo

PUBLIC Saldo As Double

PUBLIC Precio, Stock, Tasa As Double

b)    Qué hacer si la ejecución de una instrucción del procedimiento falla; es decir, cuando el programa encuentra un error?

El manejo de errores en un procedimiento puede ser administrado de varias formas, para los cuales existen ciertas sentencias especiales que se colocan en la cabecera del procedimiento:

i)              On Error Resume Next:

Significa que si al ejecutarse el procedimiento se produce un error, la ejecución debe continuar con la siguiente sentencia del procedimiento.

ii)             On Error GoTo Labxx

Si se produce un error en la ejecución, la ejecución continuará en la sentencia cuya etiqueta es Labxx (este es un nombre cualquiera).

Sub Decode()

On Error GoTo Labxx

Sentencia - 1

Sentencia – 2.

…….

Labxx: Sentencia – kk

      ….

End Sub

iii)            On Error GoTo 0

Permite restablecer el manejo de errores, después de haber usado una de las dos alternativas anteriores.

c)    Obtenga el nombre del libro activo

Sub LibroName()

DIM LibNom As String

LibNom = WorkBooks(1).Name

MsgBox "El nombre del libro es: " & LibNom

End Sub

d)    ¿Cuál es el nombre del primer libro abierto y el del libro activo?

Sub LibNa()

Dim Libro01, LibroAct As String

Libro01 = Workbooks(1).Name

LibroAct = ActiveWorkbook.Name

MsgBox ("El libro 1: " & Libro01 & Chr(10) & "El Libro activo: " & LibroAct)

End Sub

 Cursos Informática Gratuitos