martes, 17 de abril de 2018

Sesión 05: Formularios en Ms Excel y VBA



Paz y Bien Srtas. Estudiantes
A continuación tenemos una pequeña actividad la cuál pretender potencializar la actividad anterior.
El objetivo de esta actividad es realizar un registro de datos, teniendo como base fundamental la programación estricta de la secuencia de comandos.
Por ejemplo si yo formulo bien mis variables antes de. Podemos proceder con la secuencia del código de programación:

Objeto WorkSheet. Propiedades y Métodos. Ejemplos.

El objeto WorkSheet representa un libro en Excel. Como objeto, es un elemento de la clase o conjunto WorkSheets.  Como clase o conjunto, WorkSheets contiene todos los objetos WorkSheet abiertos en un momento determinado en Microsoft Excel.

Cada objeto WorkSheet representa una hoja de cálculo.

Propiedades del objeto WorkSheet

Describiremos dos propiedades del objeto WorkSheet

a) Propiedad WorkSheets

Esta propiedad devuelve el resultado de una acción realizada sobre una determinada hoja de cálculo identificada por su nombre o por un índice en el argumento de esta propiedad.

Sintaxis:

WorkSheets(x).Método

Donde

 x                     puede ser el número de hoja o el nombre de la misma.

Método            es el método que se usará sobre la hoja x

b) Propiedad ActiveSheet

Esta propiedad permite hacer referencia a la hoja activa y extraer o modificar alguna de sus propiedades mediante el uso de algunos métodos.

Sintaxis:

ActiveSheet.Método

En los siguientes ejemplos haremos uso de estas dos propiedades sea en forma individual o en forma complementaria

Ejemplo 01

WorkSheets(1).Activate

Permite activar la hoja 1 del libro activo

Ejemplo 02

El siguiente ejemplo pide la ruta y nombre de libro a abrirse y activa la hoja 3 de dicho libro.

Sub Activar()

Libro = Trim(InputBox("Ruta y nombre del archivo"))

Libro = Libro + ".xls"

Workbooks.Open Filename:=Libro

Book = ActiveWorkbook.Name

Workbooks(Book).Worksheets("Hoja3").Activate

End Sub

Ejemplo 03

El siguiente ejemplo permite obtener el nombre de la hoja activa.

Sub Nombre()

Worksheets(1).Activate

NombreHoja = Worksheets(1).Name

MsgBox NombreHoja

End Sub

https://drive.google.com/file/d/0B0zLLelhmRJGWFlTRUlONF95dTQ/view

Recuerda que la práctica incrementa mucho más tus conocimientos.
Estudiante Fatimense, tú eres el orgullo de tus Padres.


0 comentarios:

Publicar un comentario