Estructura de un procedimiento (Macro Excel) Visual Basic

Por error borre esta entrada,  por lo que la estoy republicando. Fecha de publicacion anterior 13/11/2013 

Del ejemplo anterior en donde se publico como se grava una macro y el código que se obtiene.
Ahora nos preguntaremos que quiere decir todo esto. Bueno veamos.

 Sub Nombre () significa el inicio del procedimiento y
Las lineas en las que precede un apostrofe indica que esas lineas no son leídas por el procedimiento.
aquí en medio se escribe lo que hará el procedimiento.
End Sub Significa el fin del procedimiento.

 Sub Nombre()
'
' Nombre Macro
' Esta macro sirve para escribir mi nombre y la fecha del día.
'
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "mi nombre escrito por una macro grabada"
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "10/5/2013"
    Range("B2").Select 
End Sub

A Continuación se mencionan alguna de las propiedad que se utilizan de forma regular en la
grabación de las macros y así como para poder personalizarlas.
Estos son algunos de las propiedad mas utilizadas:

ActiveCell  --- Que hace referencia al objeto de una celda activa.
Range --- A un rago de celdas.
Worksheets  --- Contiene la colección de hojas del libro.
Workbooks --- Se refiere al libro
ActiveSheet --- Hace referencia a la hoja activa.
Cells --- coleccion de celdas de un libro.
Selection --- Hace referencia al objeto seleccionado. (Celda o Columna)
ThisWorkBook  --- Hace referencia al libro en uso.
Ejemplos de como se podría usar, estos son algunos de los ejemplos que se pueden llevar a cabo de muchos que se puede realizar con estos objetos.

Sub celdaactiva()
      'Vamos a insertarle un valor a una celda activa.

       ActiveCell.Value = "Mi celda Activa"

End Sub
 

 Sub rangos()
    'vamos a seleccionar un rango de celda.

    Range("A1:b15").Select

End Sub


Sub workbokks()
    'Haremos que se guarde los cambios de un determinado libro abierto
    Workbooks("Milibro.xlsx").Save
End Sub


Sub activeshet()
    'Vamos a darle un nombre nuevo a la hoja activa-
    ActiveSheet.Name = "Hoja Activa"

End Sub

Sub cellss()
    'vamos ubicar una celda y darle un valor y seleccionarla
    Cells(3, 3).Value = "Celda buscada"
    Cells(3, 3).Select
End Sub

 Sub seleccion()
    'de la celda o celdas seleccionadas daremos un valor.
    Selection.Value = "hola"
End Sub

Sub ThisWorkbooksss()
    'vamos a guarda el libro actual o en uso.
    ThisWorkbook.Save
End Sub

Para la utilizacion de estas macros pueden pegar el código directamente en el editor de visual basic de excel y probarlas y analizar su código.
Eso es todo por hoy espero y les sirva para aquellos que empiezan a incursionar en la poderosa hoja de excel.

Saludos Cordiales.

JASR

Share this

AppsJasr